Microsoft 365 Chargement table vba dans onglet

Dranreb à dit:

Bonsoir.
Conseil: Travaillez avec deux tableaux dynamiques en mémoire, ce sera à la fois plus simple et beaucoup plus rapide.

Cliquez pour agrandir...

Dranreb à dit:

Avec le test sur le magasin :

Code:

Option Explicit
Sub CreationEtiquettes()
   Dim TDon(), LD As Long, CD As Integer, TEtq(), L0E As Long, C0E As Integer, C As Integer, CMag As Integer
   TDon = [ZITMPRIX].Value
   ReDim TEtq(1 To 20000, 1 To 8)
   For LD = 1 To UBound(TDon, 1)
      For CMag = 22 To 38
         If TDon(LD, CMag) <> 0 Then
            TEtq(L0E + 1, C0E + 1) = TDon(LD, 2)
            TEtq(L0E + 1, C0E + 4) = TDon(LD, 1)
            TEtq(L0E + 2, C0E + 1) = "Prix de base TTC"
            TEtq(L0E + 2, C0E + 3) = TDon(LD, 5)
            TEtq(L0E + 3, C0E + 1) = "Tarifs remisés TTC"
            For C = 0 To 3
               If TDon(LD, 6 + 4 * C) = "" Then Exit For
               TEtq(L0E + 4, C0E + 1 + C) = "de " & TDon(LD, 6 + 4 * C) & " à " & TDon(LD, 7 + 4 * C) & " articles"
               TEtq(L0E + 5, C0E + 1 + C) = TDon(LD, 8 + 4 * C)
               Next C
            C0E = (C0E + 4) Mod 8: If C0E = 0 Then L0E = L0E + 5
            End If
         Next CMag
      Next LD
   Feuil4.[A:H].Clear
   Feuil4.[A1].Resize(L0E, 8).Value = TEtq
   End Sub

Cliquez pour agrandir...

Mongo à dit:

Avant même de le tester, je suis impressionné par l'optimisation du code 🧠
Je regarde demain matin et te fais un retour dans la foulée.

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Attention, je pense qu'il manque une instruction juste avant de décharger le tableau :

VB:

If C0E > 0 Then L0E = L0E + 5

Sinon on risque de ne pas prendre la dernière étiquette si elles sont en nombre impair.

Cliquez pour agrandir...