Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Intégrer les différents résultats d'une boucle dans une variable texte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ninajams
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

ninajams

XLDnaute Junior
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.

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.
 
Trier par date Trier par votes
Bonsoir Ninajams,
Un petit essai :
Code: 
Sub essai()
Dim T(21) As Variant
CouleurBatterie = "Les couleurs disponible sont : "
For c = 1 To 20
    T(c) = Couleur_c.Value
    If T(c) <> "" Then
        CouleurBatterie = CouleurBatterie & T(c) & ","
    End If
Next
CouleurBatterie = Mid(CouleurBatterie, 1, Len(CouleurBatterie) - 1) ' supprime la virgule finale
End Sub
 
Vote positif 0 Vote négatif
Merci beaucoup. J'ai du le retravailler légèrement parce que les objets aiment pas beaucoup les .value.

Maintenant ça marche.

Et merci encore pour le coup de mettre la variable texte dans la boucle. C'est un truc que je vais réutiliser souvent.

VB: 
Dim TableauCouleur(19) As Variant
CouleurBatterie = "Les couleurs disponible sont : "
For c = 0 To 19
    TableauCouleur(c) = UserForm1.Controls("Couleur_" & c + 1).Value
    If TableauCouleur(c) <> "" Then
        CouleurBatterie = CouleurBatterie & TableauCouleur(c) & ","
    End If
          
Next
CouleurBatterie = Mid(CouleurBatterie, 1, Len(CouleurBatterie) - 1) & "." ' supprime la virgule finale
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
189
Claudinedu13
C
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
901
mapomme
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
R
  • Question Question
Microsoft 365 Supprimer les lignes vides d'une variable tableau
Réponses
1
Affichages
585
Phil69970
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
1 K
gaby.jvx
G
U
  • Résolu(e)
Autres VBA Nom d'une variable qui change dans une boucle For
Réponses
3
Affichages
3 K
dysorthographie
  • Résolu(e)
XL 2019 Comptabiliser un nb de jours fériés devenu variable dans une année glissante
2
Réponses
28
Affichages
3 K
JoBar57
  • Question Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
2 K
patricktoulon
N
  • Résolu(e)
boucle et texte box
Réponses
2
Affichages
524
ninajams
N
A
  • Question Question
XL 2016 probleme de transfert de valeur textbox dans les cellules d'une feuille
Réponses
4
Affichages
2 K
ARGENSON
A
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
1 K
Yoyo01000
N
  • Question Question
insertion d'un nombre variable de données dans une boucle
2
Réponses
17
Affichages
2 K
ninajams
N
B
  • Question Question
XL 2016 Afficher les résultats d'un tableau dans un autre
2
Réponses
16
Affichages
2 K
Bobleesouf
B
  • Question Question
Microsoft 365 Définir une plage variable dans le cadre d'une boucle
Réponses
5
Affichages
690
dysorthographie
  • Résolu(e)
XL 2016 Récupération de Valeur de CheckBox (dans un UserForm) et placement dans une zone de texte
Réponses
2
Affichages
2 K
Jgral
C
  • Question Question
Autres Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
1
Affichages
2 K
claivier_58
C
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
E
  • Résolu(e)
Microsoft 365 Calcul de la longueur d'une liste de taille variable dans Excel sans prendre en compte les erreurs N#A (sans vba)
Réponses
3
Affichages
1 K
e_liot
E
K
  • Question Question
XL 2016 MACRO Comment comparer deux tableaux et reporter les résultats dans un autre Tableau?
Réponses
10
Affichages
1 K
kwint14
K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…