Re : suprimer une ligne
Le fichier est un peu lourd
Voila une partie de mon code
Private Sub CommandButton1_Click()
Sheets("Ventes Boursorama").Select
ActiveSheet.Unprotect
Range("A2") = Format(iDate, "dd-mmm-yyyy")
Range("C2") = TextBox4.Value
Range("E2") = TextBox5.Value
Range("D2") = TextBox6.Value
Range("B2") = ListBox1.Value
For i = 1 To 1
Next i
Range("A2:K2").Select
Selection.Copy
Range("A253").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2,B2,C2,D2,E2").Select
Selection.ClearContents
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
ListBox1.Value = ""
Range("A253").End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
J'aimerai effacer la ligne qui correspond a la listbox1 si la valeur de J2 = la corespondante dans une autre feuille