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

F22Raptor · 1 Mars 2015

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 · 1 Mars 2015

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

Bonsoir à tous

Je peux me répéter sans me lasser

F22Raptor à dit:
Une idée dominicale ?

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

F22Raptor · 1 Mars 2015

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

et voici !

Staple1600 · 1 Mars 2015

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)

Code:

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 · 2 Mars 2015

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

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

F22Raptor

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

F22Raptor

XLDnaute Impliqué

Discussions similaires