listes déroulantes en cascade

  • Initiateur de la discussion Lu
  • Date de début
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG