Discussion :

[mimic44]

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

[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

[mimic44]

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

[mimic44]

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 !

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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