Bonjour,
J'ai un formulaire contenant les champs Couleur_1, Couleur_2 ect.. jusqu'à Couleur_20.
J'ai fait ce petit code très basic qui reprend la valeur des différents champs pour les intégrer dans une variable string ce qui donnera :
Les couleurs disponible sont : couleur 1 , couleur 2, ect jusqu'à couleur 20.
Mais j'aimerais améliorer le code pour ne prendre en compte que les champs non vide sinon ça donne comme résultat Couleur1, Couleur2,,,,,,,,,,,,,,,,,,,.
Ce qui n'est pas très jolie.
J'ai essayé plusieurs variantes de boucle mais je n'ai pas réussi à obtenir quelque chose d'exploitable notamment pour ma variable texte qui doit lister les couleurs disponible.
Voici un exemple qui ne fonctionne pas
Merci pour votre aide.
J'ai un formulaire contenant les champs Couleur_1, Couleur_2 ect.. jusqu'à Couleur_20.
J'ai fait ce petit code très basic qui reprend la valeur des différents champs pour les intégrer dans une variable string ce qui donnera :
Les couleurs disponible sont : couleur 1 , couleur 2, ect jusqu'à couleur 20.
VB:
'Ma condition est d'avoir au moins 2 couleurs donc si le champs 2 est vide je ne veux rien faire
If Couleur_2.Value = "" Then
Else
CouleurBatterie = "Les couleurs disponible sont : " & Couleur_1.Value & Couleur_2.Value & Couleur_3.Value & Couleur_4.Value
End If
Mais j'aimerais améliorer le code pour ne prendre en compte que les champs non vide sinon ça donne comme résultat Couleur1, Couleur2,,,,,,,,,,,,,,,,,,,.
Ce qui n'est pas très jolie.
J'ai essayé plusieurs variantes de boucle mais je n'ai pas réussi à obtenir quelque chose d'exploitable notamment pour ma variable texte qui doit lister les couleurs disponible.
Voici un exemple qui ne fonctionne pas
Code:
Dim T(21) As Variant
For c = 1 To 20
T(c) = Couleur_c.Value
Next
CouleurBatterie = "Les couleurs disponible sont : " & T(0) & T(1) & T(2)
Merci pour votre aide.