Supprimer une ligne

[Airwolf]

Bonjour,

Celà fait plusieurs jours que j'essaie de comprendre ou est mon erreur. 😕 😡
Je m'explique, j'ai créé un userform pour supprimer les lignes voulu, mais ça ne fonctionne pas comme je voudrais.
En fait j'aimerai mettre un code, si ce code n'est pas le bon, on ferme le userform et si c'est le bon MDP il me supprime la ligne voulu.

Private Sub CommandButton1_Click()
If Me.TextBox1 = "admin" Then
MsgBox "Identification correcte."
mdp = MOT
Unload Me

ElseIf Me.TextBox1 <> "admin" Then
MsgBox "Erreur. Vous n'êtes pas Administrateur, veuillez cliquer sur le bouton annuler, et contacter votre Administrateur"
Me.TextBox1 = ""
Me.TextBox1.SetFocus


If mdp = MOT Then
Set f = Sheets("Donnée")

On Error Resume Next
Rows([A1:A50].Find(Critere1.Value).Row).EntireRow.Delete

MsgBox ("Ligne supprimée!")
Unload UserForm2

End If
End If
End Sub



J'espère être suffisament claire.
Merci pour votre aide. 😎

 

[Airwolf]

Re : Supprimer une ligne

Re,

Toute mes escuses.😱

Ci-joint le fichier. Tu comprandras peut-être ma demande.

 

[Airwolf]

Re : Supprimer une ligne

Re Bonsoir

Merci, je vais essayer demain dans mon fichier, mais ça a l'air de marcher
Je te tiens au courrant

Merci encore et bonne soirée.

 

[Airwolf]

Re : Supprimer une ligne

Bonsoir,

J'ai testé sur mon fichier mais ça ne supprime pas la ligne. J'ai testé ton fichier seul et le tient fonctionne. C'est à rien n'y comprendre. Si tu sais pourquoi, je suis preneur.

Merci

 

[Airwolf]

Re : Supprimer une ligne

RE,

Oui, j'ai tout recopier.

Slt

 

[Airwolf]

Re : Supprimer une ligne

RE,

Rien ne se passe.

Slt

 

[Airwolf]

Re : Supprimer une ligne

Bonjour,

J'ai collé sur mon fichier perso et le résultat est le même.

Slt

 

[Airwolf]

Re : Supprimer une ligne

Bonsoir,

Toutes mes excuses pour la réponce tardive. Je vais encore chercher, ton fichier fonctionne, je ne vois pas pourquoi il ne ne pas fonctionner sur mon fichier d'origine.
Je te tiens au courant dès que j'ai trouvé.
Merci encore pour ton aide.

Slt