Discussion :

[polder]

Bonjour,
J'essaie toujours de trouver la réponse à mes questions dans le forum, mais là, je n'y arrive pas. Cela ne me semble pas trop compliqué et pourtant...

Comment lancer automatiquement une macro à partir du contenu d'une cellule?
Donc si la cellule "A1" contient le mot "non", la macro 1 démarre
Si on met "oui" à la place du "non", la macro 2 démarre.
Merci à tous et toutes et bon weekend.

[U. Milité]

Bonjour,

L'événement "Change" de l'objet Worksheet me semble assez adapté. Le résultat pourrait ressembler à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Select Case Target.Value
        Case "oui"
            Call macro1
        Case "non"
            Call macro2
        End Select
End If
End Sub

U. Milité

[polder]

Merci de votre réponse si rapide.
Cependant, j'avoue ma non connaissance de cette procédure "Private Sub".
Où l'écrit-on? L'intègre-t-on dans une macro "Sub"? Comment se lance-t-elle?

Peut-être y a-t-il un tuto sur le site?
Merci encore
Polder

[polder]

Re bonjour,

J'ai été trop vite pour demander des explications complémentaires.
En cherchant un peu, j'ai trouvé et cela répond exactement à ce que je voulais.
Merci encore,
Polder