macros automatiques

[cruz]

slt tout le monde

j'aimerais savoir comment inserer une macro qui s'execute automatiquement sans taper les combinaisons de lettres (Ctrl+...)
par exemple:
Sub Macro 2()
If Range 'A1'.Value = 3
Else Range 'A2'.Value = 4
End If
End Sub

Que faut-il ajouter dans cette macro pour qu'elle s'execute automatiquement ???

merci d'avance et A+
cruz

 

[_Thierry]

Bonjour Cruz, le Forum

Il te faut t'orienter vers les Macros évènementielles....

Tu as par exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = 'A1' Then
        If Not Target.Value = 3 Then
            Range('A2') = 4
        End If
    End If

End Sub

Pour accéder à un Private Module de Feuille pour ce genre de Macro évènementielle il te faut faire un clik droit sur l'onglet de la Feuille voulue et ensuite dans le menu contextuel 'Visualiser le Code'

Ensuite la Macro ci-dessus, placée dans ce Private Module de Feuille, interviendra automatiquement à chaque changement de la Cellule 'A1'... Ici si il n'y pas la valeur '3'...

Bonne Soirée
[ol]@+Thierry[/ol]

Message édité par: _Thierry, à: 28/08/2005 19:09