Cadre de frame

[olivepao]

Bonjour à tous

J'ai utilisé le cadre XYZ pour regrouper une liste de puce en dehors d'un USF.

J'ai plusieurs liste à puces dans ma feuille excel, j'utilise donc le système de

cadre pour que les différentes listess soient indépendantes les unes des autres.


Je désire savoir comment faire pour que le cadre ne soit pas visible car un cadre noir au milieu d'une feuille blanche, c'est pas trop top.

En effet pas moyen de modifier la couleur car il n'y a pas d'option de propriété

Merci d'avance à ceux qui ont une soluce car en recherchant sur le forum, je n'ai pas trouvé !

 

[BERRACHED said]

Re : Cadre de frame

Salut,olivepao

a défaut d'un fichier exemple je te dit simplement qu'il faut utliser les propreité distinée a ce genre de controles False et True

exemple :

Frame1.visible=False

pour le masque

Frame1.Visible=True

le rendre Visible

Cordialement

 

[olivepao]

Re : Cadre de frame

Salut,olivepao

a défaut d'un fichier exemple je te dit simplement qu'il faut utliser les propreité distinée a ce genre de controles False et True

exemple :

Frame1.visible=False

pour le masque

Frame1.Visible=True

le rendre Visible

Cordialement

Merci BERRACHED Said

J'y avais pensé mais voilà lorsque je crée mon cadre celui-ci prend un nom du style "Zone de groupe 22", je peux également supprimer ou changer le titre du cadre. Je n'ai pas de Frame1 qui s'affiche.

Merci

 

[Guest]

Re : Cadre de frame

Bonjour OlivePAO,

Il ne s'agit pas d'un frame mais d'un objet shape


sheets("Feuil2").Shapes("Group Box 2").DrawingObject.Visible = False

Si lorsque tu crées le cadre celui-ci porte le texte "Zone de groupe 2" son nom en réalité est en anglais "Group Box 2".

Sinon tu as une propriété BlackWhiteMode dans à définir dans:

Feuil2.Shapes("Group Box 2").DrawingObject.ShapeRange.BlackWhiteMode = msoBlackWhiteBlackTextAndLine

Pour n'afficher que la ligne du cadre.
A plus

 

[MuscatMimi]

Re : Cadre de frame

Salut A tous

 

[olivepao]

Re : Cadre de "objet shape"

Bonjour OlivePAO,

Il ne s'agit pas d'un frame mais d'un objet shape


sheets("Feuil2").Shapes("Group Box 2").DrawingObject.Visible = False

Si lorsque tu crées le cadre celui-ci porte le texte "Zone de groupe 2" son nom en réalité est en anglais "Group Box 2".

Sinon tu as une propriété BlackWhiteMode dans à définir dans:

Feuil2.Shapes("Group Box 2").DrawingObject.ShapeRange.BlackWhiteMode = msoBlackWhiteBlackTextAndLine

Pour n'afficher que la ligne du cadre.
A plus

Merci Hasco de t'être penché sur mon problème . . .

Hélas pour moi ton aide ne n'a pas résolu mon problème.

Ta première soluce fait apparître une erreur

Erreur d'exécution : '-2147352565 (800200b)'
Le focus ne peut être déplacésur le contrôle car celui-ci est invisible, non activé, ou d'un type n'acceptant pas le focus.

Ta 2ème proposition n'a aucun effet, j'ai toujours le cadre visible et le titre "Zone de groupe" également visible.

Aurais-tu éventuellement plus de précision ?

Quelqu'un aurait-il également un proposition à me faire ?

D'avance merci

A++++

 

[Guest]

Re : Cadre de frame

bonjour OlivePAO,

Excuses pour le retard mais je ne suis pas là tous les jours.

Pour aller plus avant dans la résolution de ton problème, il nous faudrait un fichier joint (avec données anonymisées) reproduisant le problème.

Joint sur ce site. (je n'ouvre pas les fichiers joints au moyen d'autre site)

A bientôt

 

[olivepao]

Re : Cadre de frame

bonjour OlivePAO,

Excuses pour le retard mais je ne suis pas là tous les jours.

Pour aller plus avant dans la résolution de ton problème, il nous faudrait un fichier joint (avec données anonymisées) reproduisant le problème.

Joint sur ce site. (je n'ouvre pas les fichiers joints au moyen d'autre site)

A bientôt

Salut Hasco

Mon fichier étant assez volumineux, je t'envoye un extrait au format zip reproduisant mon problème.

Tu verras les cadres "Zone de groupe 42" et "Zone de groupe 61". Ces deux cadres sont indispensables car ils rendent indépendants les deux listes à puces. Je désire uniquement que les cadres et les noms soient "invisibles".

 

[Dull]

Re : Cadre de frame

Salut olivepao, Said, Hasco, le Forum

Pourquoi n'utilises tu pas les OptionButtons avec la proprieté GroupName

Regardes le Fichier joint et dis nous

Bonne Journée

 

[Cousinhub]

Re : Cadre de frame

Bonjour,

salut Hasco et Dull

essaie avec ce code :

For Each shp In ActiveSheet.Shapes
    If shp.Name Like "Group Box*" Then
        shp.Visible = False
    End If
Next shp

 

[olivepao]

Re : Cadre de frame

Bonjour,

salut Hasco et Dull

essaie avec ce code :

For Each shp In ActiveSheet.Shapes
    If shp.Name Like "Group Box*" Then
        shp.Visible = False
    End If
Next shp

Salut bhbh , salut Hasco , salut Dull ,

C'est soluce est tout simplement géniale elle répond tout-à-fait à mes attentes.

Merci à tous