Concaténer des Textbox mais sans celles qui sont vides

Version imprimable

Bonjour le forum,

Je souhaite concaténer des Texbox en écartant celles qui sont vides ,en gros ne pas les inclure dans la chaine, je bloque depuis un moment, des exemples existent mais que sur Excel, avez-vous une solution à me proposer ?

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Code = " FLECHE : " & TextBox213.Text _
                   & vbCrLf & "U : " & UVb.Text _
                   & vbCrLf & SV1.Text & " : " & STV1b.Text _
                   & vbCrLf & STV2.Text & " : " & STV2b.Text _
                   & vbCrLf & GV1.Text & " : " & GV1b.Text _
                   & vbCrLf & GTV2.Text & " : " & GTV2b.Text _
                   & vbCrLf & GTV3.Text & " : " & GTV3b.Text _
                   & vbCrLf & B.Text & " : " & Label884.Text _
                   & vbCrLf & AV1.Text & " : " & Label885.Text _
                   & vbCrLf & AV2.Text & " : " & Label886.Text _
                   & vbCrLf & AV3.Text & " : " & Label890.Text _
                   & vbCrLf & AV4.Text & " : " & Label891.Text _
                   & vbCrLf & AV5.Text & " : " & Label892.Text _
                   & vbCrLf & AV6.Text & " : " & Label889.Text _
                   & vbCrLf & AV7.Text & " : " & Label1001.Text _
                   & vbCrLf & AV8.Text & " : " & Label881.Text _
                   & vbCrLf & AV9.Text & " : " & Label882.Text _
                   & vbCrLf & AV10.Text & " : " & Label883.Text _
                   & vbCrLf & FV1.Text & " : " & Label888.Text _
                   & vbCrLf & FV2.Text & " : " & Label887.Text _
                   & vbCrLf & "MV1 : " & MV1b.Text _
                   & vbCrLf & "LV1 : " & LV1b.Text _
                   & vbCrLf & "EV1 : " & EV1b.Text _

Merci à vous,

Citation:

Envoyé par Tempus01

des exemples existent mais que sur Excel, avez-vous une solution à me proposer ?

Je me demande bien ce que tu as bien pu mettre comme mot clé sur Google pour ne pas obtenir une réponse à ce problème trivial.
Code:

1 2 3 4 5 6 7 8 9 10 Dim a1 = "a", a2 = "1" Dim b1 = "b", b2 = "" Dim c1 = "c", c2 = "3" Dim code = "Sample" _ & IIf(String.IsNullOrEmpty(a2), String.Empty, vbCrLf & a1 & " : " & a2) _ & IIf(String.IsNullOrEmpty(b2), String.Empty, vbCrLf & b1 & " : " & b2) _ & IIf(String.IsNullOrEmpty(c2), String.Empty, vbCrLf & c1 & " : " & c2) Console.WriteLine(code)
Code:

1 2 3 Sample a : 1 c : 3

09/05/2024, 07h51
Tempus01

Merci popo,

C'est parfait !!