Discussion :

[Invité]

Bonjour,

J'ai 3 listes déroulantes mais à des colonnes différentes, j'ai modifié le code de cette façon mais ça ne fonctionne pas...

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C20:C122")) Is Nothing Then Range(Cells(Target.Row, "D"), Cells(Target.Row + 1, "J")).ClearContents
    If Not Intersect(Target, Range("E20:E122")) Is Nothing Then Range(Cells(Target.Row, "F"), Cells(Target.Row + 1, "F")).ClearContents
    If Not Intersect(Target, Range("G20:G122")) Is Nothing Then Range(Cells(Target.Row, "G"), Cells(Target.Row + 1, "G")).ClearContents
End Sub

[ARTURO83]

Bonjour,

Etes-vous sûre de vos zones à effacer?
premier cas: on efface le contenu des cellules de la ligne sélectionnée à la ligne + 1 des colonnes D à J
deuxième cas: on efface le contenu des cellules de la ligne sélectionnée à la ligne + 1 de la colonne F
troisième cas: on efface le contenu des cellules de la ligne sélectionnée à la ligne + 1 de la colonne G, donc on efface aussi le contenu de la cellule sélectionnée.

Si vous confirmez alors essayez ceci:

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("C20:C122")) Is Nothing Then Range(Cells(Target.Row, "D"), Cells(Target.Row + 1, "J")).ClearContents
    If Not Intersect(Target, Range("E20:E122")) Is Nothing Then Range(Cells(Target.Row, "F"), Cells(Target.Row + 1, "F")).ClearContents
    If Not Intersect(Target, Range("G20:G122")) Is Nothing Then Range(Cells(Target.Row, "G"), Cells(Target.Row + 1, "G")).ClearContents
    Application.EnableEvents = True
End Sub

Cdlt

[Menhir]

J'ai 3 listes déroulantes mais à des colonnes différentes

Dans quelles colonnes ?

j'ai modifié le code de cette façon mais ça ne fonctionne pas...

"ne fonctionne pas", ça ne veut rien dire.
Qu'est-ce que tu obtiens ? Qu'est-ce que tu souhaitais avoir ?

Pour info, ton code un peu simplifié :

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("C20:C122")) Is Nothing Then Cells(Target.Row, "D").Resize(2, 9).ClearContents
    If Not Intersect(Target, Range("E20:E122")) Is Nothing Then Cells(Target.Row, "F").Resize(2, 1).ClearContents
    If Not Intersect(Target, Range("G20:G122")) Is Nothing Then Cells(Target.Row, "G").Resize(2, 1).ClearContents
End Sub

Mais j'ai un gros doute concernant la dernière ligne : effacer la cellule qu'on vient de saisir ????