Discussion :

[amateur23]

BONSOIR le forum
je viens ici vous demandé un conseille
voila dans mon userform, j'ai un inputbox voila un petit bout de son code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox2_Change()
TextBox2.Value = InputBox("quelle dose svp ?"),"dose ?"
End Sub

il faut que je rentre 2 fois le chiffre avant qu'il se disparaisse même si je retire le deuxième code ,"dose ?" le pire il fonctionne très bien mais voila je voudrais savoir pourquoi et ou est mon erreur svp
avec tout ma gratitude

[unparia]

Bonjour

je voudrais savoir pourquoi et ou est mon erreur svp

parce-que tu modifies le contenu de ta textbox et que cela provoque donc à nouveau son évènement Change.

[amateur23]

merci unparia pour votre message
comment changer la chose si cela est possible sinon pas grave cela fonctionne
avec tout mes respects

[unparia]

La vraie question est probablement celle-ci : pourquoi utilises-tu l'évènement Change ?

PS : il y en a une seconde : pourquoi as-tu mis ici un code qui n'est très manifestement pas une copie exacte de celui que tu as écrit ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

InputBox("quelle dose svp ?"),"dose ?"

n'est pas en conformité avec la syntaxe de InputBox.

[Transitoire]

Bonjour,
Si vous voulez avoir une proposition dans votre TextBox2 à l'ouverture du UserForm. C'est pas une bonne manière, vous utilisez Un inputBox pour entrer une valeur dans un TextBox qui est censé avoir la presque même fonction au sein du UF.
Pour ma part, je vous propose de virer le InputBox et de passer votre message par Userform1_initialize() et d'entrer le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
TextBox1.Value = "Dose SVP  ?"
End Sub

Cordialement

[Pierre Fauconnier]

Salut

[...]
Pour ma part, je vous propose de virer le InputBox et de passer votre message par Userform1_initialize() et d'entrer le code suivant[...]

Alors, autant mettre le texte directement dans le textbox à la création du formulaire, non? Perso, je n'ai jamais vu l'utilité de Initialize (Si on utilise correctement un userform).






Cela dit, je ne comprends pas pourquoi on cherche à faire compliqué lorsque l'on peut faire simple? Une simple étiquette devant le textbox et on s'évite une usine à gaz. Les textbox ne sont pas prévus pour cette ergonomie et ça devient vite une pirouette buguogène...

[patricktoulon]

non seulement la syntaxe n'est pas bonne mais aussi l'evenement
il est normal qu'avec l'input dans l'evenement change ca se repete indefiniement

quand au click il faut pas y penser il ne fonctionnera pas question de focus en conflit avec le input

donc l'evenement mouse_down avec le control du bouton gauche ou droite de la souris
bouton 1=gauche:bouton 2 = droite ( de la souris)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then TextBox2 = InputBox("quelle dose svp ?", "dose ?")
End Sub

[unparia]

Bonjour Transitoire

C'est pas une bonne manière, vous utilisez Un inputBox pour entrer une valeur dans un TextBox qui est censé avoir la presque même fonction au sein du UF

Comment na pas saluer la sagesse d'une telle remarque, plus que fondée ?