do while loop etc..????

[Evelynetfrancois]

bonjour le Forum
voici mon problème :

la macro :

Private Sub Paramètres()
Dim X As String
retour = MsgBox("Accés aux différents paramêtres ", 4 + vbInformation + vbDefaultButton2, " PARAMETRAGES DU PROGRAMME . ")
If retour = vbYes Then
X = InputBox(" Saisir le code d'accés .", " CODE D'ACCÉS AUX DIFFÉRENTS PARAMÈTRES.", " Password !")
If X = ("ok") Then
End If
End If
End Sub

Comment installer une boucle pour revenir à l'ImputBox
tant que "ok" n'est pas saisi
et arreter de boucler si je clique le bouton "annuler" de l'impuBox
(c'est là que je coince !! je boucle je boucle .....
merci pour vos solutions
bonne journée à tous et toutes

Evelynetfrancois

 

[Ti]

essaie avec ça :

Private Sub Paramètres()
Dim X, Retour
Retour = MsgBox("Accés aux différents paramêtres ", 4 + vbInformation + vbDefaultButton2, " PARAMETRAGES DU PROGRAMME . ")
If Retour = vbYes Then
Do
X = Application.InputBox(" Saisir le code d'accés .", " CODE D'ACCÉS AUX DIFFÉRENTS PARAMÈTRES.", " Password !", Type:=2)
Loop Until X = "ok" Or X = False
End If
End Sub

si tu veux rendre ta saisie indépendante des majuscules et des minuscules, change ton test comme ça :
Loop Until LCase(X) = "ok" Or X = False

 

[Evelynetfrancois]

merci ti
pour ta reponse rapide cependant
tant que je ne saisis pa "ok" dans l'imputbox , je ne peux en sortir.

et en fait je voudrais pouvoir en sortir soit par le bouton annule de l'imputbox soit par la croix en haut à droite

merci d'avance de te creser le cerveau
Evelynetfrancois

 

[Ti]

ah, tu dois avoir un "ancienne" version d'Excel, parce que chez moi, sur XP, je sors sans problème si je clique sur Annuler (j'ai fait le test). Excel 2000 est beaucoup plus pointilleux sur les types et je me doutais que ça risquait de poser un problème, mais avec quelques tests supplémentaires on doit s'en sortir

 

[Evelynetfrancois]

SNIFF j'ai Excel 97
enfin je suis sur la bonne voix
merci pour tout
Evelynetfrancois

 

[Ti]

Excel 97, ma pauvre !
Bah, essaie ça, je ne te garantis pas que ça marchera (chez moi ça marche aussi), mais ça devrait normalement...

Private Sub Paramètres()
Dim X, Retour, OK As Boolean
Retour = MsgBox("Accès aux différents paramètres ", 4 + vbInformation + vbDefaultButton2, " PARAMETRAGES DU PROGRAMME . ")
If Retour = vbYes Then
Do
X = Application.InputBox(" Saisir le code d'accés .", " CODE D'ACCÉS AUX DIFFÉRENTS PARAMÈTRES.", " Password !", Type:=2)
If VarType(X) = vbBoolean Then
OK = True
Else
OK = UCase(X) = "OK"
End If
Loop Until OK
End If
End Sub

 

[Evelyntfrancois]

çbonsoir Ti
a y est avec un peu de recherche a mon niveau j'ai enfin reussi
grace a ta macro (la 1er)
d'autre part j'ai aussi Excel 2000 , non mais....;lol.

autre chose.
Application.InputBox Type:=2 ??
j'ai essayer avec type 1; type 3 mais ??? bon ??c'est quoi ça ?
salut et merci
evelynetfrancois