vba selection + suppression d'une ligne

Question

Bonjour, je souhaite selectionner une ligne a partir d'une valeur d'un combobox. dans la colonne, il y a les item de ma combobox. si je selectionne un item et que je clik sur suppression, je souhaite supprimer la ligne correspondant à cet item

Pouvais vous m'aider please, j'ai essayé ca :


NmProjet = SaisieDonnées.ComboBox1
Set r = Sheets("param").Cells(2, 1)
Do While r <> NmProjet
    Set r = r.Offset(1, 0)
Loop

r.delete


MERCI

michel_m · Answer

Bonjour,
pour supprimer ta ligne

With Sheets("param")
    On Error Resume Next
        .Rows(Columns(1).Find(SaisieDonnées.ComboBox1, .Range("A1")).Row).Delete
        If Err.Number > 0 Then
            MsgBox "valeur inconnue"
            '....tes actions en cas d'erreur
        End If
    On Error GoTo 0
End With

s'il n'y a pas risque d'erreur de valeurs dans le combo
With Sheets("param")
      .Rows(Columns(1).Find(SaisieDonnées.ComboBox1, .Range("A1")).Row).Delete
End WIth

Vba selection + suppression d'une ligne

1 réponse

Discussions similaires

Newsletters