Discussion :

[Carlu]

Dans Excel 2002, comment se nomme un "Bouton" en VBA, mon nom de bouton est !Bouton 17! dans la zone de nom en haut à gauche.

ATTENTION: Je ne parla pas d'un nom de bouton dans uen "userform" qui est "CommandButton1"

J'aimerais le faire disparaitre (.visible = False) à l'ouverture de l'application Excel lorsque la situation le demande.

Merci

[ouskel'n'or]

Utilise toujours les contrôles de la "boîte à outils contrôles" et teste ce code placé dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub VoirOuNePasVoir()
Worksheets("Feuil1").Shapes("CommandButton1").Visible = Not Worksheets("Feuil1").Shapes("CommandButton1").Visible
End Sub

Pour lancer cette macro à l'ouverture du classeur, utilise l'événement Workbook_Open dans ThisWorkbook -> Editeur VBA -> deux clics sur Thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
VoirOuNePasVoir
End Sub

Pour le faire apparaître quand tu le souhaites tu appelles la même procédure.
Bon après-midi

PS - Pour connaître le nom des "formes" se trouvant dans une feuille de calculs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub LeursNoms()
Dim Bouton As Shape
    For Each Bouton In Worksheets("feuil1").Shapes
        MsgBox Bouton.Name
    Next
End Sub

[Carlu]

Merci ouskel'n'or

Voici la commande que j'ai mis pour que ça marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Demande").Shapes("Bouton 17").Visible = Not Worksheets("Demande").Shapes("bouton 17").Visible

Le nom du bouton en français ? ? ? ? Bouton 17 étant le nom dans ma barre de nom.

Encore Merci et ça marche dans les 2 sens c'est super.