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.
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.