timeodanao
XLDnaute Nouveau
Bonjour,
Je viens de créer 2 listes dynamiques entre elles l'une en dessous de l'autre (et non l'une à côté de l'autre)
Je souhaiterais maintenant créer un code "macro" me permettant de remettre ma 2nde liste sur le 1er libellé la concernant.
J'ai le code suivant qui fonctionne quand 2 listes sont côte à c^ote mais je n'arrive pas à le modifier pour 2 listes l'1 en dessous de l'autre.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C17"), Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
temp = Range(Target)(1)
Target.Offset(0, 1) = temp
Application.EnableEvents = True
End If
End Sub
Quelqu'un aurait-il une idée ou pas?
Merci d'avance de votre aide
Alex. 😕
Je viens de créer 2 listes dynamiques entre elles l'une en dessous de l'autre (et non l'une à côté de l'autre)
Je souhaiterais maintenant créer un code "macro" me permettant de remettre ma 2nde liste sur le 1er libellé la concernant.
J'ai le code suivant qui fonctionne quand 2 listes sont côte à c^ote mais je n'arrive pas à le modifier pour 2 listes l'1 en dessous de l'autre.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C17"), Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
temp = Range(Target)(1)
Target.Offset(0, 1) = temp
Application.EnableEvents = True
End If
End Sub
Quelqu'un aurait-il une idée ou pas?
Merci d'avance de votre aide
Alex. 😕