Discussion :

[Tempus01]

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 :

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

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,

[popo]

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 :

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

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 :

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

1
2
3
Sample
a : 1
c : 3

[Tempus01]

Merci popo,

C'est parfait !!