Bonsoir le forum,
je vous livre un petit problème qui n'a pas de réponse dans les archives
Voilà je souheterais à partir d'un userform + combobox supprimer une ligne sur plusieures feuilles. Alors voici le code :
Private Sub CommandButton7_Click()
Dim c As Range
Set c = Sheets("Feuil1").Columns("b").Find(ComboBox1)
Sheets("Feuil1").Rows(c.Row).Delete shift:= xlup ' OK
Sheets("Feuil2").Rows(c.Row).Delete shift:= xlup 'NOK
Sheets("Feuil3").Rows(c.Row).Delete shift:= xlup 'NOK
End Sub
Merci pour votre aide et bon week end
@+ Ozons
je vous livre un petit problème qui n'a pas de réponse dans les archives
Voilà je souheterais à partir d'un userform + combobox supprimer une ligne sur plusieures feuilles. Alors voici le code :
Private Sub CommandButton7_Click()
Dim c As Range
Set c = Sheets("Feuil1").Columns("b").Find(ComboBox1)
Sheets("Feuil1").Rows(c.Row).Delete shift:= xlup ' OK
Sheets("Feuil2").Rows(c.Row).Delete shift:= xlup 'NOK
Sheets("Feuil3").Rows(c.Row).Delete shift:= xlup 'NOK
End Sub
Merci pour votre aide et bon week end
@+ Ozons