Discussion :

[Rico2a]

Bonjour à tous,


Je n'arrive pas à remettre à 0 ma 2ème liste quand je change les données de ma liste source. La liste 2 est créée avec l'outil validation de liste et la fonction indirect.
J'ai trouvé quelque chose mais je n'arrive pas à l'adapter vu mes faibles connaissances en VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A2]) Is Nothing Then
Target.Offset(, 1) = ""
End If
End Sub

Je souhaite en effet que ma cellule E44 (liste 2) se remette à 0 quand j'effectue un autre choix dans ma cellule E42 (liste 1)

Merci de votre aide

[Daniel.C]

Bonjour,

Qu'est-ce que tu entends par "une liste qui se remet à zéro" ? Le plus simple serait de mettre ton classeur (sans données confidentielles).

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, range("E42")) Is Nothing Then
range("E44") = ""
End If
End Sub

[Rico2a]

Merci Enque Enque, cela fonctionne parfaitement.