Activer une UserForm

Bonjour,

C'est tout simple et idiot de ma part, mais je n'ai pas trouvé dans la FAQ dans 3.6. Userforms, Code et Contrôles(6) comment activer une UserForm de type textbox par exemple.
j'ai fait un

Code:

---

TextBox_xxx.Activate

---

dans un If, mais ça marche pas :D

Merci d'éclairer ma lanterne, je pense que ce sera vite réglé


le if complet :

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox_quant_Change() If TextBox_quant.Value = TextBox_art.Value Then MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre.") TextBox_quant.Value = "" TextBox_quant.Activate End If End Sub

---

bonjour

ton textbox est sur un UserForm

Code:

---

UserForm1.show

---

UserForm1 étant le nom par défaut du 1er UserForm

regarde dans l'aide Touche F1

cordialement

Si j'ai bien compris, c'est parce que je n'avais pas précisé le nom de la UserForm ?

J'ai donc modifié ainsi :

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox_quant_Change() If TextBox_quant.Value = TextBox_art.Value Then MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre. Scannez le code-barre de quantité s'il vous plait.") TextBox_quant.Value = "" Inventaire.TextBox_quant.Activate End If End Sub

---

L'erreur persiste sur le "Activate" :/

Peut-être ai-je mal compris ton explication.


ouuuuuuups edit :

J'ai remplacé Activate par SetFocus, ça fonctionne. En revanche la msgbox n'apparait pas et j'ai un sablier éternel >_<
Pourtant ça m'efface bien le contenu de la TextBox... Donc la ligne msgbox a été prise en compte.

que veux tu faire?

ça?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox_quant_Change() If TextBox_quant.Value = TextBox_art.Value Then MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre. Scannez le code-barre de quantité s'il vous plait.") TextBox_quant.SetFocus TextBox_quant.SelStart = 0 TextBox_quant.SelLength = Len(TextBox1.Text) 'TextBox_quant.Value = "" 'Inventaire.TextBox_quant.Activate End If End Sub

---

cordialement

désolé, j'ai édité mon message précédent ^^.

Concernant la msgbox, elle apparait brièvement et disparait. Même lorsque je passe en commentaire les deux lignes d'après.

Que veulent dire ces lignes s'il te plait :

Code:

---

1 2	TextBox_quant.SelStart = 0 TextBox_quant.SelLength = Len(TextBox1.Text)

---

Citation:

---

Envoyé par Zak Blayde

Que veulent dire ces lignes s'il te plait :

Code:

---

1 2	TextBox_quant.SelStart = 0 TextBox_quant.SelLength = Len(TextBox1.Text)

---

---

Sélection du texte du TextBox devant le premier caractère (SelStart = 0) sur une "longueur" de nombre de caractères du TextBox. Ok?

Pour le problème de MsgBox, il faudrait voir le code complet.

@+

edit : oui ça y'est j'ai compris

Sinon mon code complet est pas plus long, j'ai pour l'instant juste une UserForm que j'exécute, puis je saisis dans chaque textbox.

Code:

---

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

Option Explicit Private Sub TextBox_quant_Change() If TextBox_quant.Value = TextBox_art.Value Then MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre. Scannez le code-barre de quantité s'il vous plait.") Inventaire.TextBox_quant.SetFocus TextBox_quant.SelStart = 0 TextBox_quant.SelLength = Len(TextBox_quant.Text) End If End Sub   Private Sub TextBox_Lot_Click() If TextBox_lot.Value = TextBox_quant.Value Then MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre. Scannez le code-barre de quantité s'il vous plait.") Inventaire.TextBox_quant.SetFocus TextBox_quant.SelStart = 0 TextBox_quant.SelLength = Len(TextBox_lot.Text) End If End Sub

---

re

je préfère laisser le texte s'il n'y a qu'un caractère à ressaisir.
Sinon avec le texte en surbrillance, dès que tu saisies le texte précédent disparait.

Pour le MsgBox je ne vois pas.

@+

ok j'ai compris, tu préfères sélectionner le texte pour que la prochaine saisie l'efface plutôt que de tout effacer. Autre méthode, même résultat ;)

Merci de ton aide en tout cas, je continue de chercher pour la msgbox.