Besoin d'aide pour macro

[patsyl60]

Bonsoir le forum,

J'ai besoin de votre aide. J'ai une liste variable en nombre ( voir colonne A) et je dois faire une macro pour dupliquer 12 fois ( 1 par mois ) chaque valeur de la colonne A.

J'ai mis 3 noms dans la liste mais il y en a une centaine dans mon tableau.

Pouvez vous m'aider

Ci joint petit fichier exemple.

D'avance merci.

Patsyl60 😕

 

[ROGER2327]

Re : Besoin d'aide pour macro

Bonsoir patsyl60

Essayez cette procédure :

[COLOR="DarkSlateGray"]Sub Tout_fois_n()
Dim oD1, oD2, sDat, i As Long, n As Long
   With Sheets("Feuil1")
      oD1 = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
      oD2 = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value
   End With
   n = -1 + UBound(oD2, 1)
   ReDim sDat(2 * n To -1 + (1 + UBound(oD1, 1)) * n, 1 To 2)
   For i = 2 * n To UBound(sDat, 1)
      sDat(i, 1) = oD1(i \ n, 1)
      sDat(i, 2) = oD2(2 + i Mod n, 1)
   Next i
   Sheets("Feuil1").Cells(2, 4).Resize((-1 + UBound(oD1, 1)) * n, 2).Value = sDat
End Sub[/COLOR]

Elle fonctionne pour un nombre variable d'items dans les deux listes (pour autant que le produit de ces nombres n'excède pas le nombre de lignes disponibles dans la feuille).​

ROGER2327

 

[patsyl60]

Re : Besoin d'aide pour macro

Bonsoir ROGER2327,

Merci pour ton aide précieuse. Tout fonctionne parfaitement. Je n'ai plus qu'à essayer de déchiffrer ta formule. Et là, c'est pas gagné...

Bonne soirée.

Patsyl60 😉