Suppression par formulaire dans tableau

Bonjour à tous,

Je suis nouveau sur VBA, j'ai commencé début semaine dernière (on s'occupe comme on peut).

J'ai un tableau qui liste les employés avec Nom Prénom Site et une dernière colonne avec [@Nom]&" "&[@Prénom].

J'ai fais un formulaire pour pouvoir supprimer la ligne contenant le nom et prénom inscrit (Combobox).

Mon code fonctionne sur des lignes toutes simples en changeant ma référence par un mot clé cherché directement mais dès que je l'adapte avec la combobox, la macro se lance bien mais ne supprime rien et aucun message d'erreur.

Je pensais qu'il "n'aimait pas" la recherche dans des cellules comportant des "formules" mais si je change pour me mettre juste sur la colonne des Noms c'est pareil le code se lance bien, pas de message d'erreur mais rien de supprimé.

Voici le code inscrit:

Private Sub CommandButton_Supprimer_Click()

Dim onglet_data As Feuil1
Dim mot_clef As String
Dim derniere_ligne As Long
Dim ligne_en_cours As Long

'identifier l'onglet
Set onglet_data = Feuil1

'identifier nom cherché
mot_clef = "ComboBox_Nomprenom"

'boucle sur les lignes
derniere_ligne = onglet_data.Cells(Rows.Count, 5).End(xlUp).Row

For ligne_en_cours = derniere_ligne To 3 Step -1

    'comparer avec le nom cherché
    If InStr(onglet_data.Cells(ligne_en_cours, 5), mot_clef) >= 1 Then
        onglet_data.Cells(ligne_en_cours, 5).EntireRow.Delete

    End If

Next

 MsgBox ("La suppression est faite")

Unload Me

End Sub

Un grand merci pour votre aide.

Bonjour et

La valeur cherchée est "ComboBox_Nomprenom" ... peu de chances que ta macro la trouve dans le tableau

Merci U. Milité,

Effectivement...

Après quelques recherche en plus j'ai pu rajouter ceci

Dim valeur_combobox As String

valeur_combobox = ComboBox_Nomprenom.Value

'identifier nom cherché
mot_clef = valeur_combobox

Et ça fonctionne.

Merci

Re-bonjour,

Tu pouvais aussi simplement supprimer les guillemets dans mot_clef = "ComboBox_Nomprenom"