Si variable vide, l'ignorer en VBA

Question

Bonjour,

Je récupère la valeur de variables dans une TextBox.

Exemple avec 3 variables, mais il y en a plus.

MaVariable1 ="123Ab"
MaVariable2 ="AbC45"
MaVariable3 ="Ab1234r6CdEf"

Je les affiche dans ma TextBox1 sur plusieurs lignes:

UserForm1.TextBox1 = MaVariable1 & vbCr & MaVariable2 & vbCr & MaVariable3

Si une ou plusieurs variables sont vide, j'ai une ou plusieurs lignes vide dans ma TextBox.

Comment faire pour, si variable vide passer à la suivante sans faire de saut de ligne dans ma TextBox?

Whismeril · Answer

Au lieu de plusieurs variables, peux-tu utiliser une collection ou un tableau ?

Si oui, tu fais une boucle et tu ne concatènes pas les vides.

NeriXs · Answer

Heu! Pour être franc je ne sais pas trop!

C'est toujours sur le projet de ma discussion précédente "[REGEX] Recherche Patten de capture, un défi ?"

Plus précisément:

'on écrit le résultat complet
resultat = resultat + vbCrLf + "(01) GTIN de l’article: " + gtin + vbCrLf + "(11) Date de production: " + dateProd + vbCrLf + "(17) Date d'expiration : " + dateExpi + vbCrLf + "(10) Numéro de lot: " + numLot + vbCrLf + "(21) Numéro de série: " + numSerie

Sauf que j'utilise des TextBox.

UserForm1.TextBox1 = "(01) GTIN de l’article: " + gtin + vbCrLf + "(11) Date de production: " + dateProd + vbCrLf + "(17) Date d'expiration : " + dateExpi + vbCrLf + "(10) Numéro de lot: " + numLot + vbCrLf + "(21) Numéro de série: " + numSerie

Je regarde comment est construit une collection.

Declare				Dim coll As Collection

Create at run time		Set coll = New Collection

Declare and Create		Dim coll As New Collection

Add item			coll.Add "Apple"

Access item 			coll(1) or coll(2)

Access item added first 	coll(1)

Access item added last		coll(coll.Count)

Get number of items		coll.Count

Access all items(For)		Dim i As Long
				For i = 1 To coll.Count
   					Debug.Print coll(i)
				Next i

Access all items(For Each)	Dim fruit As Variant
				For Each fruit In coll
   					Debug.Print fruit
				Next fruit

Remove item			coll.Remove(1)

Remove all Items		Set coll = New Collection

C'est chaud, en plus j'ai du texte avant la variable!

Si variable vide, l'ignorer en VBA

2 réponses

Votre réponse

Discussions similaires