INPUTBOX erreur code

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:

---

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

Bonjour

Citation:

---

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. ;)

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

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:

---

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

---

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

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:

---

1 2 3

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

---

Cordialement 8-)

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:

---

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

---

Bonjour Transitoire

Citation:

---

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 ? :plusser:

ok je comprends mieux l'utilisation de l'evenement change au depart
tu veux que ton textbox reagisse un peu comme un input box ou comme les logins dans les page web avec un masque(chaine de caractere)
dans ce cas le c'est plus compliqué que cela
imagine tu a "dose svp?" au depart tu tape lla valeur de ta dose et tu change d'avis ou tu veux corriger donc tu efface, ton texte de depart de reviendra pas tout seul
d'autant plus que au depart avec le texte "dose svp?" il faut tout le selectionner

donc conclusion tout faux le input est bien necessaire a moins de vouloir s'amuser a mouliner avec l'evenement change

d'autant plus que l'on peut gerer simplement son affichage par la valeur de base ou vide dans son evenement change

et que l'on peut faire cette gestion pour 36 textboxs dans une meme fonction

perso selectionner la chaine(masque) pour pouvoir taper ma valeur a fin qu'elle s'efface m'agacerais tres fortement dans une application

les inputs sont la pour ca
ils ont dans l'essentiel du cas present un titre, la question et le textbox pour taper
mais bon les gouts et les couleurs comme on dit

BONJOUR LE FORUM
merci beaucoup pour vos conseilles et vos code constructifs
patricktoulon merci pour votre code me retire une épine du pied j 'ai plus aucun problème
avec tout mes respects et ma gratitude pour vos message et votre aide
l' affaire est résolus

de rien
pour toi ou transitoire puisque l'on doit s'amuser
testez ca un userform et un textbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TextBox2_Change() With TextBox2: If .Value = "" Then .Text = "Dose SVP ?": .SelStart = 0: .SelLength = Len(TextBox2) .SetFocus: .ForeColor = vbRed: Beep ElseIf .Value = "Dose SVP ?" Then .ForeColor = vbRed: Beep Else .ForeColor = vbBlack End If End With End Sub   Private Sub UserForm_Activate() With TextBox2: .ForeColor = vbRed: .Text = "Dose SVP ?":: .SelStart = 0: .SelLength = Len(TextBox2): End With End Sub

---

taper et reculer jusqu'a vider le textbox
sympa hein!!!????
mais entre nous l'input n'est pas plus simple;)
a mediter

Salut

Citation:

---

Envoyé par Transitoire

[...]
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).

Pièce jointe 377225




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...

Pièce jointe 377237

re
bonjour pierre Fauconnier
oui bien vu
donc le texte ecrit en dur en mode vbe et de couleur rouge pour l'exemple
j'ai ajouté le mousedown au cas ou ce serait pas le textebox qui a le focus au depart
au mouse down si c'est le texte de base tout est selectionné automatiquement on peut donc taper la dose directement sans selectionner a la main
ca evite aussi de pourvoir placer le curseur au milieu de la chaine de base
des que ce n'est plus la chaine de base il le texte est de couleur noire
si l'on efface la valeur tapée on revient au texte de base et rouge et tout selectionné

le toulonnais fait joujou;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub TextBox2_Change() With TextBox2: If .Value = "" Then .Text = "Dose SVP ?": .SelStart = 0: .SelLength = Len(TextBox2) .SetFocus: .ForeColor = vbRed: Beep ElseIf .Value = "Dose SVP ?" Then .ForeColor = vbRed: Beep: .SelStart = 0: .SelLength = Len(TextBox2) Else .ForeColor = vbBlack End If End With End Sub   Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With TextBox2 If .Value = "Dose SVP ?" Then .SelStart = 0: .SelLength = Len(TextBox2) End With End Sub

---

;)
correction :

et pour eviter de pouvoir selectionner par erreur q'une parti du texte de base ce n'est pas mousedown mais mouseup

Code:

---

1 2 3 4 5

Private Sub TextBox2_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With TextBox2 If .Value = "Dose SVP ?" Then .SelStart = 0: .SelLength = Len(TextBox2) End With End Sub

---

Pièce jointe 377241

Re Bonjour:D super tout ça
Puisqu'on en est à se compliquer la vie pour faire semblant de se la simplifier, j'ai ça aussi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Label1_Click() x = InputBox("Entrez la dose!", "DOSE") Label1.Caption = x End Sub   Private Sub TextBox1_Enter() TextBox1.Value = "SVP ?" End Sub   Private Sub TextBox2_Enter() TextBox2.Value = "Dose SVP ?" End Sub   Private Sub UserForm_Initialize() CommandButton1.SetFocus Label1.Caption = "Dose SVP ?" End Sub

---

Si on passe par Tabulation: on arrive sur le textbox dont le texte est surligné. toute l'écriture s'efface d'un Retour et il n'y a plus qu'a écrire. Par contre, si on clique directement sur le TB ça ne marche pas pareil.
On peut aussi remplacer le TextBox par un simple Label dont le caption serait remplacé par l'écriture du inputBox et la donnée récupérée par la même voie. je ne trouve pas satisfaisant pour l'esprit d'utiliser un système d'entrée de données pour entrée des données dans un "Truc" crée pour cela. On double le risque de panne ainsi que signalé par Pierre Fauconnier.
Pièce jointe 377245
Pièce jointe 377249
Pièce jointe 377253
Pièce jointe 377257
Cordialement 8-)

MERCI BEAUCOUP tout est mieux que je pensez
tout ma gratitude sincère