DO WHILE dans VBA

[CharlesSSQ]

Bonjour,

J'aimerais savoir s'il y a une autre manière d'écrire le code suivant pour générer ce msgbox voici mon exemple. (sans utiliser DO LOOP)

Sub Motdepasse()
Dim reponse As String
Do While reponse <> "mimi"
reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
Loop

MsgBox "Ok, poursuite de la procédure."

End Sub


Merci beaucoup!
Charles

 

[Roland_M]

Re : DO WHILE dans VBA

bonsoir à tous

Sub Motdepasse()
Dim Reponse As String
'1'
While Reponse <> "mimi"
Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
Wend
'2'avec goto (mais c'est mieux While)
Retour: Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
If Reponse <> "mimi" Then GoTo Retour

'3'il faut aussi prévoir une sortie pour abandon(sans saisie) !!!
'(sinon blocage pour une personne qui ne sait pas !?)
'avec ton InputBox je te conseils comme ceci
Do
Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
If Reponse = "" Or Reponse = "mimi" Then Exit Do
Loop

'suite... voir à tester si Reponse = "" ou Ok !?

End Sub

tu peux aussi faire simple
Reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
if Reponse = "mimi" then à voir pour la suite

 

[job75]

Re : DO WHILE dans VBA

Bonsoir Charles,

Ben tout dépend de ce que vous voulez...

Avec votre code, si l'on oublie le mot de passe, il faut quitter Excel par Ctrl+Alt+Suppr, pas très agréable 😉

Un code sans boucle :

Sub Motdepasse()
Dim reponse As String
reponse = InputBox("Saissez le mot de passe:", "Mot de passe")
If reponse <> "mimi" Then
  MsgBox IIf(reponse = "", "Le mot de passe n'a pas été entré", "Mot de passe incorrect") & ", la procédure est abandonnée", 48
  Exit Sub
End If
MsgBox "Ok, poursuite de la procédure."
End Sub

Edit : bonsoir Roland, pas rafraîchi

A+