Lancer une macro automatiquement
h
Bonjour je souhaite exécuter la macro suivante automatiquement sans passer par " Outils---Maco---exécuter"
la macro est la suivante:
Sub test()
For i = 1 To 20
If Range("A" & i) <> "" Then Range("C" & i) = Range("B" & i)
Next
End Sub
Merci pour votre Aide
A
Bonjour
Le Code de Feuille suivant applique la modification sur la ligne de saisie ou d'effacement en colonne A
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A20")) Is Nothing Then
If Target <> "" Then Target.Offset(, 2).Value = Target.Offset(, 1).Value
If Target = "" Then Target.Offset(, 2).ClearContents
End If
End SubRegarde si cela convient
Cordialement