Si mdp bon, alors Remplissage 3 TextBoxs

[Halffy]

Bonjour à tous,

Je me permets de vous soumettre un nouveau problème;
car jusqu'ici, sur ce projet, j'ai réussi à me dépatouiller "seul" (avec vos exemples 😀);
Toutefois, là je suis bloqué. En effet suite à la demande d'un mot de passe, comment autoriser une macro à poursuivre?
Je vous joins un fichier pour explications.
Avec tous mes Remerciements par avance; Bonne journée.
Halffy /.

 

[jeanpierre]

Re : Si mdp bon, alors Remplissage 3 TextBoxs

Bonjour Halffy,

Je lis, dans ta macro :

If ComboBox2 = "Yamaha" Then
Call Pass.Show

Else
For n = 2 To Range("B65536").End(xlUp).Row
If CStr(Range("B" & n)) = ComboBox1 And CStr(Range("C" & n)) = ComboBox2 Then
TextBox1 = Range("D" & n)
TextBox2 = Range("E" & n)
TextBox3 = Range("F" & n)
End If

Il me semble que c'est le Else qui est en trop, si j'ai bien compris puisque cela semble être la condition du MDP.

Donc, et peut-être :

If ComboBox2 = "Yamaha" Then
Call Pass.Show

For n = 2 To Range("B65536").End(xlUp).Row
If CStr(Range("B" & n)) = ComboBox1 And CStr(Range("C" & n)) = ComboBox2 Then
TextBox1 = Range("D" & n)
TextBox2 = Range("E" & n)
TextBox3 = Range("F" & n)
Else exit sub
End If

A voir.... pas essayé ne sachant ce que tu veux faire.

Bon après-midi.

Jean-Pierre

 

[Habitude]

Re : Si mdp bon, alors Remplissage 3 TextBoxs

Peut-être essayer

If CStr(Range("B" & n)) = ComboBox1.text And CStr(Range("C" & n)) = ComboBox2.text Then

 

[Lii]

Re : Si mdp bon, alors Remplissage 3 TextBoxs

Bon soir,

dans : If ComboBox2 = "Yamaha" Then Call Pass.Show , le Call ne s'impose pas !
Ci-joint : autre exemple (avec gestion d'appels répétitifs d'initialisation de Combo liés).

 

[Halffy]

Re : Si mdp bon, alors Remplissage 3 TextBoxs

Bonsoir JeanPierre, Habitude, Lili & le forum

Je vous remercie pour l'interêt porté à mon problème;
Effectivement JP, "Else" était en trop 😱
Sinon les solutions de Habitude & Lili fonctionne très bien, Merci.
Toutefois, je viens de m'apercevoir d'un autre problème....
En effet si le mot de passe est NOK et que l'on ferme la MsgBox et l'UserForm "mot de passe" avec la croix ==> les 3 textBoxs se remplissent automatiquement 🙁
Ci-joint nouveau fichier corrigé.
A nouveau Grand Merci à tous

Nota:
J'ai trouvé la solution: lorsque je ferme l'UserForm de mot de passe, je ferme l'UserForm1 en même temps 😀
Bonne soirée / Sujet Clos à défaut de nouvelle réponse.

Halffy /.