Requête d'ajout de variable texte

Hello,

je suis confronté à un petit soucis d'optimisation dont je ne trouve pas la solution, voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Lignecom(2 To 100)   For Z = 2 To derli_panier If Sheets("Panier").Range("B" & Z) <> "" Then If Z > 2 Then sp = Chr(10) Lignecom(Z) = sp & Sheets("Panier").Range("G" & Z) & " étiquette" End If Next   Listepanier = Lignecom(2) + Lignecom(3) + Lignecom(4) + Lignecom(5) + Lignecom(6) + Lignecom(7) + Lignecom(8) + Lignecom(9) + Lignecom(10) + Lignecom(11) + Lignecom(12) + Lignecom(13) 'Ligne à modifier   MsgBox (Listepanier)

---

Dans une msgbox, je cherche à avoir toutes les lignes de mon panier ayant une donné, jusqu'ici c'est bon mais la ligne de la variable Listepanier ne me plait pas avez vous une meilleur solution ?

Merci d'avance

Bonjour,
J'utiliserais la fonction Join soit Listepanier = Join(Lignecom, VbCrLf) (je l'ai écrit de mémoire donc pas testé) mais on n'est pas obligé de passer par la variable ListePanier. MsgBox avec Join directement fonctionne très bien également

Pour en savoir plus sur la fonction Join, à lire Utiliser les variables tableaux en VBA Excel

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
J'utiliserais la fonction Join soit Listepanier = Join(Lignecom, VbCrLf) (je l'ai écrit de mémoire donc pas testé) mais on n'est pas obligé de passer par la variable ListePanier. MsgBox avec Join directement fonctionne très bien également

Pour en savoir plus sur la fonction Join, à lire Utiliser les variables tableaux en VBA Excel

---

C'est pas mal mais ça prend mes 100 Lignecom du coup ça me fait une msgbox à rallonge...

C'est bon j'ai trouver une solution j'ai ajouter une condition de retour à la ligne pour ma variable Lignecom et enlevé la délimitation.

Merci beaucoup !

Bonjour,

Citation:

---

C'est pas mal mais ça prend mes 100 Lignecom du coup ça me fait une msgbox à rallonge...

---

C'est normal, parce-que vous utilisez la variable Z que cela réponde aux critères ou pas. Il faut modifier votre façon de gérer la variable tableau en redimensionnant à chaque fois que le critère est VRAI

Cette procédure fonctionnera parfaitement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub t() Const derli_panier As Long = 100 ' Nombre de lignes à parcourir Dim Lignecom As Variant Dim r As Long Dim z As Long With Sheets("Panier") For r = 2 To derli_panier If Len(.Range("B" & r).Value) Then If z Then ReDim Preserve Lignecom(z) Else ReDim Lignecom(z) Lignecom(z) = .Range("G" & r).Value & " étiquette" z = z + 1 End If Next End With If IsArray(Lignecom) Then MsgBox Join(Lignecom, vbCrLf) End Sub

---

Et pour en savoir plus, je conseille toujours la lecture de Utiliser les variables tableaux en VBA Excel