L
Lu
Guest
Bonjour,
J'ai le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$2' Then
[B2] = Range('Types' & [A2]).Item(1)
[C2] = Range('Couleurs' & [A2]).Item(1)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = '$A$2' _
Or Target.Address = '$B$2' _
Or Target.Address = '$C$2' _
Then Application.SendKeys '%{down}'
End Sub
Mais j'aimerai que la macro s'applique à chaque ligne, est-ce possible ?
Merci d'avance de votre retour
J'ai le code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$2' Then
[B2] = Range('Types' & [A2]).Item(1)
[C2] = Range('Couleurs' & [A2]).Item(1)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = '$A$2' _
Or Target.Address = '$B$2' _
Or Target.Address = '$C$2' _
Then Application.SendKeys '%{down}'
End Sub
Mais j'aimerai que la macro s'applique à chaque ligne, est-ce possible ?
Merci d'avance de votre retour