Macro : suppression de ligne

[jofdm]

Bonjour à tous,

Dans le fichier ci-joint, j'aimerais que, quand on est sur le Userform "Supprimer FDS" et que l'on clique sur le bouton "VALIDER" (CB5), la ligne de la feuille MSDS MP correspondante à l'affichage du Userform soit effacée.
Le code que j'ai écrit ne fonctionne pas ...
Merci d'avance pour votre aide

 

[Cousinhub]

Re : Macro : suppression de ligne

Bonsoir, jofdm

le problème vient du fait que tu veux sélectionner la ligne trouvée dans ta deuxième feuille.
Remplace ton code par ceci :

Private Sub CommandButton5_Click()
If Supprimer.TextBox1.Text = "" Then
MsgBox ("Veuillez saisir un nom de produit")
Exit Sub
End If
Dim x As Long
Dim trouve As Boolean
Dim FL1 As Worksheet
Set FL1 = Worksheets("MSDS MP")
With FL1
For x = 2 To .Range("A65535").End(xlUp).Row
If UCase(.Range("A" & x)) Like UCase(Supprimer.TextBox1.Value) Then
LigneActive = x
.Rows(LigneActive).Delete Shift:=xlUp
Exit For
End If
Next
End With
End Sub

Tu remarques les lignes With..... et End With