Apparition Bouton Sous condition
chewwe1602
Messages postés
49
Statut
Membre
-
chewwe1602 Messages postés 49 Statut Membre -
chewwe1602 Messages postés 49 Statut Membre -
Bonjour,
Je travail sous Excel 2010
je n'arrive pas a faire un truc qui semble tout bete.
J'ai un tableur a plusieur feuille.
Dans la première je rentre différent paramètre. dans la seconde feuille un autre type de paramètre. et dans la troisième feuille j'ai des resultat par rapport au deux premiere feuille.
Je voudrais que quand dans ma feuille 1 cellule f7 j'ai selectionné "oui" ( il y a trois choix possible : " ", "oui", "non".
il apparaisse mon bouton contrôle activix nommé " allé en feuille 2" . Et que lorsque je clique dessus, Je passe en feuille 2 cellule A1
J'ai essayé ceci
privat sub worksheet- change(ByVal Target As Range)
if.target.address <> "$f$7" then exit sub
if.target.value = "oui" then me.commandbutton1.visible = true
if.target.value <> "oui" then me.commandbutton1.visible = false
endsub
private sub commandbutton1_click()
sheets ("feuil 2").select
end sub
Biensur cela ne fonctionne pas vraiment. Le bouton est toujours apparent mais quand je clic dessus ca m'envoie bien en feuille 2
Ou est ce que ca pèche?
Merci de votre aide .
Je travail sous Excel 2010
je n'arrive pas a faire un truc qui semble tout bete.
J'ai un tableur a plusieur feuille.
Dans la première je rentre différent paramètre. dans la seconde feuille un autre type de paramètre. et dans la troisième feuille j'ai des resultat par rapport au deux premiere feuille.
Je voudrais que quand dans ma feuille 1 cellule f7 j'ai selectionné "oui" ( il y a trois choix possible : " ", "oui", "non".
il apparaisse mon bouton contrôle activix nommé " allé en feuille 2" . Et que lorsque je clique dessus, Je passe en feuille 2 cellule A1
J'ai essayé ceci
privat sub worksheet- change(ByVal Target As Range)
if.target.address <> "$f$7" then exit sub
if.target.value = "oui" then me.commandbutton1.visible = true
if.target.value <> "oui" then me.commandbutton1.visible = false
endsub
private sub commandbutton1_click()
sheets ("feuil 2").select
end sub
Biensur cela ne fonctionne pas vraiment. Le bouton est toujours apparent mais quand je clic dessus ca m'envoie bien en feuille 2
Ou est ce que ca pèche?
Merci de votre aide .
3 réponses
-
Bonjour,
Essaies plutôt avec la propriété "enabled"Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
If Target.Address = "$F$7" And Target = "oui" Then CommandButton1.Enabled = True
End Sub
Michel -
-
Oui effectivement il n'y avait pas de soucis a mon code.
Juste des fautes d'orthographe.
le $f$5 et le "oui" au lieu du $F$5 et "Oui".
Ça m'agace de vous avoir demandé pour si peu !!
En tous cas merci michel et Gyrus.
