XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente

Jeannette à dit:

Bonsoir,
Pour obtenir ce que tu veux, je n'utilise pas de macro, mais Power Query.
A partir du tableau de gauche, nommé "t_source"
La mise à jour peut se faire via le bouton "Actualiser" du ruban "Données"

Cliquez pour agrandir...

• la première méthode ci-dessus (copie puis insertion) prend 15 s
• la seconde méthode ci-dessous (tableaux en mémoire) prend 0,1 s

Sub test2()
Dim n As Long, t, i As Long, j As Long, k As Long
   Application.ScreenUpdating = False
   n = Range("A" & Rows.CountLarge).End(xlUp).Row
   t = Range("a4:c" & n)
   ReDim r(1 To 12 * UBound(t), 1 To UBound(t, 2) + 1): n = 0
   For i = 1 To UBound(t)
      For k = 1 To 12
         n = n + 1
         For j = 1 To UBound(t, 2): r(n, j) = t(i, j): Next j
         r(n, UBound(r, 2)) = k
      Next k
   Next i
   Range("a4").Resize(UBound(r), UBound(r, 2)) = r
End Sub

1. la méthode initiale très longue (env. 26 s) et pouvant bloquer Excel si trop de lignes sont à dupliquer
2. la méthode initiale accélérée (env. 1 s)
3. la méthode via des arrays en mémoire (env. 0,2 s)

mapomme à dit:

Re,

Un classeur avec trois méthodes :

1. la méthode initiale très longue (env. 26 s) et pouvant bloquer Excel si trop de lignes sont à dupliquer
2. la méthode initiale accélérée (env. 1 s)
3. la méthode via des arrays en mémoire (env. 0,2 s)

Les codes sont dans module1.

nota : les exemples dupliquent 2 000 lignes de données sources (soit 24 000 lignes au niveau du résultat).

Cliquez pour agrandir...