Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

DO WHILE dans VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion CharlesSSQ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

CharlesSSQ

Guest
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
 
Trier par date Trier par votes
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 :

Code: 
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+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
453
Dranreb
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
910
picc
P
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
808
arnoldbrice19
A
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
552
sylvanu
D
  • Question Question
Microsoft 365 Couper Coller Fichiers en VBA
Réponses
3
Affichages
1 K
patricktoulon
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
748
patricktoulon
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
978
Excellearning
E
S
  • Question Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
619
patricktoulon
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
  • Résolu(e)
XL 2013 (RESOLU)Mot de passe Masqué
Réponses
5
Affichages
913
Compte Supprimé 979
C
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
J
  • Résolu(e)
XL 2010 Avoir 2 mots de passe pour une même macro?
Réponses
2
Affichages
504
jigour
J
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
768
patricktoulon
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
677
Quentin2106
Q
L
  • Question Question
XL 2021 Si le nom de la feuille est égale alors .... HELP !
Réponses
4
Affichages
483
Lune999
L
T
  • Question Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
868
ThierryP
T
P
  • Question Question
Microsoft 365 Macro qui plante exel
Réponses
1
Affichages
575
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…