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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mars 2024

• #2

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:

VB:

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 :

Code:

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.

 

Pièces jointes

• Classeur2.xlsm

  21.8 KB · Affichages: 4

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 28 Mars 2024

• #3

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+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 28 Mars 2024

• #4

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

VB:

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

 

Pièces jointes

• CHARLIE BOUTON MASQUER R SYLVANU.xlsm

  22 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mars 2024

• #5

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

VB:

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 ?

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 28 Mars 2024

• #6

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+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mars 2024

• #7

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.

 

Pièces jointes

• Classeur2 V2.xlsm

  55.3 KB · Affichages: 1

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 28 Mars 2024

• #8

Re
MERCI C'est parfait
A+

 

Vote positif 0 Vote négatif