Bonjour à tous,
J'ai le code suivant, en fait dès qu'un utilisateur double click dans la colonne F ligne 6 (sur laquelle est située la valeur "toto" en B6 ), je souhaiterais que la feuil1 soit effacée (jusque là ça marche) et que toutes les lignes de la feuille 2 sur laquelle "toto" figure en colonne B soient supprimées, seulement voilà toutes les lignes de la feuille 2 qui ont "toto" en colonne B ne se suppriment pas...
Private Sub Worksheet_beforedoubleclick(ByVal target As Range, Cancel As Boolean)
If target.Column = 6 and target.row = 6 then
Application.EnableEvents = False
Sheets("Feuil1").Range("A12:Z5000").ClearContents
For Each Cell In Feuil2.Range("B:B")
If Cell.Value = "Toto" Then
Cell.EntireRow.Delete
End If
Next
Application.EnableEvents = True
End If
Voyez vous d'où peut venir le problème ?
Merci beaucoup d'avance !
J'ai le code suivant, en fait dès qu'un utilisateur double click dans la colonne F ligne 6 (sur laquelle est située la valeur "toto" en B6 ), je souhaiterais que la feuil1 soit effacée (jusque là ça marche) et que toutes les lignes de la feuille 2 sur laquelle "toto" figure en colonne B soient supprimées, seulement voilà toutes les lignes de la feuille 2 qui ont "toto" en colonne B ne se suppriment pas...
Private Sub Worksheet_beforedoubleclick(ByVal target As Range, Cancel As Boolean)
If target.Column = 6 and target.row = 6 then
Application.EnableEvents = False
Sheets("Feuil1").Range("A12:Z5000").ClearContents
For Each Cell In Feuil2.Range("B:B")
If Cell.Value = "Toto" Then
Cell.EntireRow.Delete
End If
Next
Application.EnableEvents = True
End If
Voyez vous d'où peut venir le problème ?
Merci beaucoup d'avance !