Hello,

je suis confronté à un petit soucis d'optimisation dont je ne trouve pas la solution, 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
 
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