Microsoft 365 Vlookup sous condition

eric72

XLDnaute Accro
Bonjour à tous,
Petit tes avec un vlookup sous condition de "Vrai", sans réussite
Le code ne plante pas mais ne fonctionne pas!!!
Peut-être aurez-vous une petite idée.
Merci beaucoup pour le temps consacré.
Eric
 

Pièces jointes

  • Classeur4.xlsm
    24 KB · Affichages: 5

eric72

XLDnaute Accro
Bonjour et Merci job75,
Je profite de votre gentillesse pour vous demander ce qui cloche dans ce code qui est sensé supprimer la ligne qui correspond au value de la textbox "NomPlante", ça ne supprime pas la ligne mais ça ne plante pas!!!

Private Sub BtSupprProduitBase_Click()
Dim question As Integer
Application.ScreenUpdating = False
Sheets("produit").Visible = True
Sheets("produit").Activate
Call unprotect

On Error Resume Next
If MsgBox("Êtes-vous certain de vouloir supprimer", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("produit").Rows(NomPlante.value).Delete
question = MsgBox("Voulez-vous Effectuer une autre Action", vbQuestion + vbYesNo, "Information")
If question = vbYes Then
Unload Me
UsfProduit.Show 'Fermer puis ouvrir permet d'effacer les données
Else
End If
Unload Me
End If
Sheets("produit").Visible = False
Call protect
On Error GoTo 0
End Sub
Merci beaucoup
Eric