XL 2013 Boutons visibles selon cellule contenant...

[jrol]

Bonjour à tous,

Petit soucis de macro, j’ai deux boutons : Bouton 1 et bouton 2.

Je veux que le bouton 1 disparaissent quand la cellule A1 contient « X » ou/et « Z » et donc que seul le bouton 1 soit visible.

De même je souhaite que le bouton 2 disparaisse quand la cellule A1 contient « Y ».

J’ai cette macro mais cela fait seulement disparaître un des boutons qui ne revient jamais peu importe le contenu de la cellule :


Sub visible()
If UCase([l3]) Like "*Y*" Then
ActiveSheet.Shapes("Bouton 1").visible = True
ActiveSheet.Shapes("Bouton 2").visible = False
End If
End Sub

Merci d’avance de votre aide.

Jeanne

 

[vgendron]

Re : Boutons visibles selon cellule contenant...

Bonjour

il te manque la partie Else..

Sub visible()
If UCase([l3]) Like "*Y*" Then
     ActiveSheet.Shapes("Bouton 1").visible = True
     ActiveSheet.Shapes("Bouton 2").visible = False
else
      ActiveSheet.Shapes("Bouton 1").visible = False
     ActiveSheet.Shapes("Bouton 2").visible = True
End If
End Sub

sinon ce code plus simple

Sub visible()
ActiveSheet.Shapes("Bouton 1").visible=UCase([l3]) Like "*Y*"
ActiveSheet.Shapes("Bouton 2").visible = not(UCase([l3]) Like "*Y*")
End Sub

note: pas essayé car pas de fichier exemple joint

 

[Lone-wolf]

Re : Boutons visibles selon cellule contenant...

Bonjour Jeanne

pourquoi tu met l3 quand c'est A1??
Et ceci: Je veux que le bouton 1 disparaissent quand la cellule A1 contient « X » ou/et « Z » et donc que seul le bouton 1 soit visible. ???

EDIT: Bonjour vgendron

Sheets("Feuil1").Activate
With Activesheet
If .Range("a1") = "X" or .Range("a1") = "Z" then
.Shapes("Bouton 1").visible = False
.Shapes("Bouton 2").visible = True
End If
If .Range("a1") = "Y" then 
.Shapes("Bouton 2").visible = False
.Shapes("Bouton 1").visible = True
End If
End With

 

[jrol]

Re : Boutons visibles selon cellule contenant...

Merci de ta réponse rapide,

J'ai essayé mais toujours un bouton disparait et ne réapparait pas. J'ai essayé avec les deux codes.

Je commence tout juste les macros donc je n'arrive pas à voir ce qui cloche. Voilà un fichier joint

Jeanne

 

[jrol]

Re : Boutons visibles selon cellule contenant...

Désolée, Je me suis perdue dans mes explications et dans les termes.. Toutefois j'ai essayé le dernier code sur le fichier test et toujours un bouton qui disparait. Mon erreur est surement bête mais je ne la trouve pas

Jeanne

 

[jrol]

Re : Boutons visibles selon cellule contenant...

En réalité la dernière macro fonctionne le seule problème c'est que je dois réexcuter la macro a chaque fois donc faire alt11 et F5 dès que je change le contenu de ma cellule. Sinon il ne se passera rien

 

[Bougla972]

Re : Boutons visibles selon cellule contenant...

Bonjour à tous !

Peut être comme ceci...

A+
Bougla

 

[vgendron]

Re : Boutons visibles selon cellule contenant...

Hello Lone ;-)

@jrol

pour que la macro se lance dès que tu changes la valeur de E6, il faut placer le code dans l'évènement "change" de la feuille
ensuite, il faut te décider. cellule A1 ou E6
puis dans ton fichier exemple, il n'y a pas de bouton 1

cf PJ

 

[jrol]

Re : Boutons visibles selon cellule contenant...

Merci beaucoup à vous !
J'ai réussi à l'adapter ^^

Merci encore

Jeanne