Discussion :

[Ercohuma59]

Bonjour à toutes et à tous,

Voici mon problème :

Je voudrai que lorsque l'utilisateur clique sur le Bt 1, le Bt 2 soit masqué et vice versa. Toutefois, lorsque l'utilisateur ouvre le classeur, les 2 boutons doivent être visibles et actifs.

Les bts sont des "commandbutton" de la boite à outils contrôles placé sur une feuille excel "Feuil2"

J'ai essayé en plaçant dans feuil2 sur bouton 1

Code :

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

1
2
Private Sub EnvoiValidN1_Click()
EnvoiValidN2.Visible=False

et l'inverse sur EnvoiValidN2
Puis sur workbook_open

Code :

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

1
2
EnvoiValidN1.Visible=true
EnvoiValidN2.Visible=true

quand je clique sur le bouton 1 ça masque bien le bouton 2 mais lorsque je ferme (aprés avoir enregistré) et que j'ouvre à nouveau le classeur, le bouton 2 n'est plus visible ! Je suis obligé d'aller dans les propriétés du bouton 2 et remettre true manuellement.

J'ai peut être pas placé un code au bon endroit ? Ou code faux ?

Merci pour votre aide.

[theshark85]

Bonjour, initialise tes boutons à l'ouverture grace au thisworkbook, il y a une valeur open.

[jfontaine]

spécifie le nom de la feuille avant le nom des boutons

Code :

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

1
2
3
4
5
6
 
 
Private Sub Workbook_Open()
Sheets("Feuil1").EnvoiValidN1.Visible = True
Sheets("Feuil1").EnvoiValidN2.Visible = True
End Sub

[Ercohuma59]

Désolé Jérome mais avec ton code j'ai : erreur d'éxécution '9' l'indice n'appartient pas à la sélection.

Quand à toi theshark85, désolé aussi mais lorsque que je tape sheets ("Feuil2").EnvoiValid.___ 'je n'ai pas la proposition "initialize"

Si vous avez d'autres propositions, je suis preneur.

[jfontaine]

Juste pour etre sur, tu as bien mis le bon nom de feuille et le bon nom de bouton?

[Ercohuma59]

Yes Jérome,

Feuil2 est bien le nom de ma feuille (name dans propriétés)
EnvoiValidN1 et N2 sont bien les noms de mes boutons (name dans propriétés)

Peut-être faut-il utiliser la fonction select dans workbook ?

[Invité]

Bonsoir Ercohuma59,

J'ai créé un fichier et j'ai essayé le code sur ThisWorkBook :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
Sheets("Feuil2").Select
Sheets("Feuil2).Envoi1.Visible = True
Sheets("Feuil2").Envoi2.Visible = True
End Sub

Puis sur la Feuil2 :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Envoi1_Click()
Envoi1.Visible = True
Envoi2.Visible = False
End Sub
Private Sub Envoi2_Click()
Envoi2.Visible = True
Envoi1.Visible = False
End Sub

Et cela fonctionne. Les 2 boutons sont bien affichés après fermeture du fichier puis réouverture (j'ai raccourci les noms des boutons, mais ça n'a pas d'importance).

Avez-vous bien vérifié la syntaxe ?