Problème de boucle

[benjamin]

Rebonjour

J'ai un nouveau problème avec une boucle. Le but de la boucle ci-dessous est que tant qu'x n'est pas égal à 0 (c'est à dire que l'utilisateur n'a pas saisi le bon mot de passe), un message d'erreur apparait.
Et ensuite dès que x = 0 alors ca lance l'updating (call updating) et ça cache la userform demandant le nom d'utilisateur et du mot de passe (Session.hide).

Voilà ma boucle actuelle :

Dim T As Variant

Do
T = MsgBox("Please enter your password again", vbOK, "Error")
Loop Until x = 0
Call Updating
Session.Hide

Apparement elle est fausse puisque dès qu'il y a une erreur dans le mot de passe, le message d'erreur apparaît bien mais après il reste figé, même en cliquant sur OK.

J'aimerais qu'une fois le message d'erreur affiché et qu'on clique sur OK, on puisse resaisir le nom d'utilisateur et le mot de passe (c'est à dire la userform session)

 

[Valérie]

Salut Benjamin,

Sais pas trop comment fonctionne ton USF mais ce que je sais C que là tu boucles à vie.

Si tu ne fais rien dans ta boucle qui permet de changer X sa valeur restant à 0 tu restes dans la boucle!!

Je pense que tu testes qunque part ton mot de passe
A mon avis lors du test tu met ton message et tu sors

IF "PAS Bon mot de passe" then
Msgbox
exit sub
End If

Call Updating
Session.Hide

@ bientôt
Valérie