Discussion :

[Hazardo]

Bonjour à tous,

Je recherche un bout de code qui efface automatiquement des cellules quand l'utilisateur change de choix dans la liste déroulante.
La liste déroulante se trouve sur toutes les lignes en colonne I et je veux que ça efface la ligne correspondante dans les colonnes L et M.

J'ai fait ça mais ça boucle indéfinniment à chaque execution du clearcontents...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
ligne = Target.Row
Colonne = Target.Column
 
  If Colonne = 9 And Target.Row > 5 Then
    Range(Cells(ligne, Colonne + 3), Cells(ligne, Colonne + 4)).ClearContents
  End If
 
 
End Sub

Merci de votre aide

[Thautheme]

Bonjour Hazardo, bonjour le forum,

Essaie comme ça :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 9 Then Exit Sub
Target.Offset(0, 3).Resize(1, 2).ClearContents
End Sub

[Hazardo]

Bonjour Hazardo, bonjour le forum,

Essaie comme ça :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 9 Then Exit Sub
Target.Offset(0, 3).Resize(1, 2).ClearContents
End Sub

Bonjour Thautheme,

Merci bcp ça marche parfaitement