XL 2013 (RESOLU) Affichage du bouton selon l'événement d'une cellule

[chaelie2015]

Bonjour Forum
Dans la feuille intitulée 'type', j'ai une plage de cellules allant de GL12 à II62 nommée 'TableauRésulta_Type', une cellule de saisie en Y10, et un bouton appelé 'Effacer2_Type'.
Je suis à la recherche d'un code qui affiche le bouton dès que la cellule Y10 est modifiée. c_a_d, a chaque fois que je vide ou que je re saisis une nouvelle valeur dans la cellule Y10, le bouton doit apparaître, et une fois que je clique sur le bouton, celui-ci doit se masquer automatiquement.
le code de bouton est effacé la plage GL12 à II62.
Merci

 

[sylvanu]

Bonjour Chaelie,
Un petit fichier test aurait été le bienvenu, ne serait ce que pour éviter de se le retaper ( avec un risque d'erreur )
Un essai en PJ avec pour la modif de Y10:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Y10]) Is Nothing Then Shapes("Bouton").Visible = True
End Sub

Pour la gestion du bouton :

Sub GereBouton()
    [Gl12:II62].ClearContents
    Shapes("Bouton").Visible = False
End Sub

Le bouton Test ne sert à rien si ce n'est que remplir le tableau de X pour tester.

 

[chaelie2015]

Bonjour Sylvanu
Malheureusement, je n'ai pas inclus le fichier de test cette fois-ci, ce qui est un peu inhabituel de ma part.
Merci quand même pour votre réponse.
A+

 

[chaelie2015]

Re
Je souhaite organiser ton code de cette façon :
Copie le code

Sub GereBouton()
    [Gl12:II62].ClearContents
    Shapes("Effacer2_Type").Visible = False
End Sub

dans un module, puis ajoute 'call GereBouton' dans 'Private Sub Worksheet_Change.
ça n'a pas fonctionné ?
Merci

 

[sylvanu]

Re,
Je ne comprends pas votre approche. En faisant cela ça va faire :

Si cellule Y10 modifiée alors
      Rendre visible le bouton
      Effacer le tableau
      Masquer le bouton

Alors à quoi sert le bouton puisqu'il ne sera jamais visible ?

 

[chaelie2015]

Re
Je voulais utiliser ce code pour plusieurs feuilles similaires à la feuille type, mais avec des noms différents. J'ai demandé si c'était possible. Merci quand même.
A+

 

[sylvanu]

Re,
Mieux compris.
Dans ce cas il ne faut pas intégrer GéreBouton dans Sub Worksheet_Change, mais simplement mettre les deux macros dans un module, voir PJ.
Par contre chaque feuille doit posséder son propre Worksheet_Change.

 

[chaelie2015]

Re
MERCI C'est parfait
A+