Cellule de sortie d'un userform

Bonjour,

J'ai un userform avec 2 textbox, disons textbox1 et textbox2.

Je veux faire en sorte que selon si les deux sont renseignées ou non, il n'y est pas de cellules vides.

Je m'explique: si textbox1 et textbox2 sont renseignées alors la valeur de textbox1 va dans A1 et celle de textbox2 dans A2.
Mais si seulement textbox2 est renseignée, alors sa valeur va dans A1 et non dans A2.

Comment faire?

Quelqu'un peut m'aider svp?

Merci.

Bonjour,

Tu peux adapter ce code

Code:

---

1 2 3 4 5 6 7 8

With Worksheets("Feuil1") If Me.TextBox1 <> "" And Me.TextBox2 <> "" Then .Range("A1") = Me.TextBox1.Value .Range("A2") = Me.TextBox2.Value ElseIf TextBox2 <> "" Then .Range("A1") = Me.TextBox2.Value End If End With

---

Cordialement.

ds ce cas il ne faut pas alimenter le controlsource de la propriété textbox et en adaptant tu pourras faire du genre :

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 <> "" Then Range("a1") = TextBox1.Value Range("a2") = TextBox2.Value Else Range("a1") = TextBox2.Value End If End Sub

---

Cepandant j'ai un cadre avec des dizaines de textbox. Dans ce cas là le traitement serait lourd c'est pur cela que je n'utilise pas ce code. Pour l'exemple j'ai juste dis textbox1 et textbox2 pour alleger le problème.

Cordialement,

Bonjour,

A adapter au contexte :

Code:

---

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

Private Sub CommandButton1_Click() Dim Ctrl As Control, tbCTl(), x As Integer x = 0 Columns(1).ClearContents For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" And Ctrl <> "" Then x = x + 1 ReDim Preserve tbCTl(1 To x) tbCTl(x) = Ctrl.Text End If Next Ctrl If x > 0 Then Range("A1").Resize(x) = Application.Transpose(tbCTl) End Sub

---

Casefayere, pouvez-vous m'expliquer un peu le code s'il vous plaît? Merci.

Voilà l'explication, si tous tes Textbox ne sont pas concernés, il faudra adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'j'imagine un USF avec plusieurs TextBox et un bouton de commande 'Dans mon exemple, tous les TextBox sont concernés 'leurs "TabIndex" dans l'ordre 'tout est fait pour donner le résultat à la feuille active 'sinon prévoir "With("nomdefeuille") 'ci-dessous, code du bouton Private Sub CommandButton1_Click() 'ci-dessous, Ctrl variable objet, TbCTl un tableau (en mémoire) et x...tu as deviné Dim Ctrl As Control, tbCTl(), x As Integer x = 0 'j'initialise x (au cas où...) Columns(1).ClearContents 'je vide la colonne où je vais coller les données (TextBox) For Each Ctrl In Me.Controls 'je boucle sur les controles 'ci-dessous, condition si le ctrl est un texbox et s'il n'est pas vide If TypeName(Ctrl) = "TextBox" And Ctrl <> "" Then x = x + 1 'j'incrémente x de 1 ReDim Preserve tbCTl(1 To x) 'je dimensionne mon tableau pour qu'il reçoive les données tbCTl(x) = Ctrl.Text 'donc les valeurs des textbox vont remplir le tableau 'ci-dessus, voir l'urilisation des tableaux, plein d'exemples sur le site End If Next Ctrl 'ci-dessous, je m'assure que les textbox n'étaient pas tous vides 'et je colle à partir de A1, les textbox non vide (qui sont dans le tableau) 'pour "Resize" et "Transpose", voir l'aide If x > 0 Then Range("A1").Resize(x) = Application.Transpose(tbCTl) End Sub

---

Merci beaucoup!

J'espère que tu sauras adapter le code à ta situation, sinon n'hésites pas, si je suis présent et si c'est dans mes cordes, j'essayerai de répondre, de toutes façons, il y a du monde qui aime aider, sur le forum.

Bonjour à tou(te)s et bon dimanche
indox, tu écris :

Citation:

---

Je penses que je devrais te fournir mon fichier. Car en fait j'aimerais bien organiser mon userform.

---

Si l'organisation de ton USF te pose tant de problèmes, pourquoi pas (en xls ou Zip uniquement), sachant qu'on est dimanche, je ne serai certainement pas dispo aujourd'hui (au moins jusque ce soir). En attentant, Les passionnés disponibles auront peut-être de bons conseils à te donner.

Bon courage