[VBA] lancer une macro au changement de valeur d'une cellule

[F22Raptor]

Bonsoir à tous,
J'ai 3 boutons d'options (de formulaire), et ils sont liés à la cellule A1.
La cellule A1 peut donc prendre les valeurs 1, 2, ou 3, selon le bouton coché.

J'aimerais qu'une macro se lance (à l'image d'un Worksheet_Change) si la valeur de A1 change.

Hélas, Private Sub Worksheet_Change(ByVal Target As Range) ne fonctionne pas, car on ne rentre pas dans la cellule pour en changer la valeur ...

Une idée ?

 

[Staple1600]

Re : [VBA] lancer une macro au changement de valeur d'une cellule

Bonsoir à tous


Je peux me répéter sans me lasser 😉

Une idée dominicale ?

Bonjour à tous
F22Raptor
Oui.
Prendre la peine de nous joindre un fichier Excel exemple allégé créé pour l'occasion...🙄

 

[F22Raptor]

Re : [VBA] lancer une macro au changement de valeur d'une cellule

et voici !

 

[Staple1600]

Re : [VBA] lancer une macro au changement de valeur d'une cellule

Re

En attendant mieux
Affecte cette macro à tes trois Case d'option
(clic-droit sur chacun d'entre eux puis choisir Affecter une macro)

Sub OpBt()
Select Case ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption
Case Is = "Case d'option 2", "Case d'option 3"
Sheets(2).Visible = False
Sheets(3).Visible = False
Sheets("Feuil1").Activate
Case Else
Sheets(2).Visible = True
Sheets(3).Visible = True
Sheets("Feuil1").Activate
Exit Sub
End Select
End Sub

Test OK sur mon PC avec XL 2013.

 

[F22Raptor]

Re : [VBA] lancer une macro au changement de valeur d'une cellule

Merci Staple !
J'avais zappé la possibilité d'affecter une macro à un bouton d'option de formulaire !
Ce sera donc simple de faire exécuter un code sur le clic

🙂