Lancer une macro dans une formule

Bonjour Alex, le Forum

Pas besoin de formule pour ceci, une simple macro évènementielle dans le Private Module de la Feuille en Question :

Soit la cellule 'A1' est modifiée par Saisie (ou par Macro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
    If Me.Range('A1') = 100 Then
        MsgBox '100 en A1'
    Else
        MsgBox 'Pas 100 en A1'
    End If
End If
End Sub

Cliquez pour agrandir...

Soit la cellule 'A1' est modifiée par Formule

Private Sub Worksheet_Calculate()
    If Me.Range('A1') = 100 Then
        MsgBox '100 en A1'
    Else
        MsgBox 'Pas 100 en A1'
    End If
End Sub

Cliquez pour agrandir...

A noter que les deux pourraient être mises dans le Private Module de la Feuille au cas où... (Quoique !!!)

Bon Dimanche
@+Thierry


PS afin de t'éviter un autre Post, vu que tu as bien fait de préciser ton niveau, le Private Module de la Feuille est accessible en cliquant sur le Click Droit de ta souris lorsque que tu pointes sur l'onglet de la dîte feuille, et dans le menu contextuel qui va s'ouvrir tu choisis 'Visualiser le Code', un Private Module VBA va automatiquement surgir !!! ... et c'est dans ce module que tu copiera mon code....

Merci,

en effet cela me semble une bonne solution.

A essayer après le repas.

Alex

Bonjour,

La question d'Alex m'interesse, et la réponse qu'à fait _Thierry ne convient pas dans mon cas.
Existe-t-il donc un moyen de lancer une macro par une formule, plus précisément par la fonction SI comme dans l'expemple d'Alex ?

Je connais assez bien excel, mais quasiment rien en script..
Merci.

Bonjour Alex, Thierry, Psyco et le Forum
Psyco, dans l'exemple de Thierry, il te suffit de remplacer MsgBox ...etc par Macro1 pour lancer la Macro1 et idem pour Macro2 si la condition n'est pas remplie
Bon courage et à +
Denis

Merci beaucoup