Avec une macro utilisant VBA :
Public Sub customCustomers()
Application.ScreenUpdating = False
sourceSheet = "Sheet1"
destSheet = "Sheet2"
initialSrcRow = 1
initialDstRow = 1
times = 6
Dim wkb As Workbook
Dim wks, wks1 As Worksheet
Set wkb = ThisWorkbook
Set wks = wkb.Sheets(sourceSheet)
Set wks1 = wkb.Sheets(destSheet)
wks1.Rows.Clear
seeking = True
While seeking
theCustomer = wks.Cells(initialSrcRow, 1)
If theCustomer <> "" Then
For i = 1 To times
wks1.Cells(initialDstRow, 1) = theCustomer
initialDstRow = initialDstRow + 1
Next i
initialSrcRow = initialSrcRow + 1
Else
seeking = False
End If
Wend
Application.ScreenUpdating = True
theMessage = MsgBox("Finished copying customers on Sheet: " & destSheet, vbOKOnly)
End Sub
Ouvrez VBA/Macros, sous Ce manuel de travail insérez un nouveau module et collez ce code sur le côté droit.
Vous pouvez ajuster les variables suivantes en fonction de vos besoins :
-
sourceSheet : Le nom de la feuille originale, dans mon exemple est Feuille 1 .
-
destSheet : Nom de la feuille de destination, dans mon exemple c'est Feuille 2 .
-
initialSrcRow : La première ligne de la feuille source.
-
initialDstRow : Première ligne de la feuille de destination.
-
times : Nombre de fois que le client doit être répété sur la feuille de destination.
