Suppression ligne + Feuilles + Combobox

[Ozons123]

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

 

[Pierrot93]

Re : Suppression ligne + Feuilles + Combobox

Bonsoir Ozons

C'est normal, puisque c est défini comme un objet range de la feuille 1, essaye peut être comme ci dessous :

Private Sub CommandButton7_Click() 
Dim c As Range, r As Integer
Set c = Sheets("Feuil1").Columns("b").Find(ComboBox1)
r = c.row
Sheets("Feuil1").Rows(c.row).Delete shift:= xlup ' OK
Sheets("Feuil2").Rows(r).Delete shift:= xlup 'NOK
Sheets("Feuil3").Rows(r).Delete shift:= xlup 'NOK
End Sub

bonne soirée
@+

 

[Ozons123]

Re : Suppression ligne + Feuilles + Combobox

Oui malheureusement le message d'erreur était logique j'avais essayé en définissant de nouveau set. En tout cas merci Pierrot93 pour ton aide car la solution fonctionne 😀
Passe un bon week end

@+ Ozons