Comment répéter des lignes un nombre spécifié de fois en fonction d'une autre colonne dans Excel ?
Avez-vous déjà essayé de répéter une ligne en fonction de la valeur d'une autre colonne comme le montre la capture d'écran ci-dessous ? Dans cet article, je vais vous présenter la méthode pour accomplir cette tâche dans Excel.
Répéter des lignes en fonction de la valeur d'une autre colonne avec VBA
Répéter des lignes en fonction de la valeur d'une autre colonne avec Kutools pour Excel
Répéter des lignes en fonction de la valeur d'une autre colonne avec VBA
Voici un code qui peut rapidement répéter les lignes en fonction des valeurs de la dernière colonne.
1. Appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, puis copiez le code ci-dessous et collez-le dans le nouveau script du Module.
VBA : Répéter des lignes en fonction de la valeur d'une autre colonne
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Appuyez sur F5 une boîte de dialogue apparaît, sélectionnez la liste de nombres sur laquelle les lignes seront répétées.
4. Cliquez sur OK, les lignes ont été répétées en fonction de la valeur de la colonne sélectionnée.
Répéter des lignes en fonction de la valeur d'une autre colonne avec Kutools pour Excel
Si vous n'êtes pas à l'aise avec l'utilisation de VBA, vous pouvez essayer la fonction Dupliquer des lignes/colonnes en fonction de la valeur d'une cellule de Kutools pour Excel, qui ne nécessite que deux étapes.
1. Cliquez sur Kutools > Insérer > Dupliquer des lignes/colonnes en fonction de la valeur d'une cellule.
2. Dans la boîte de dialogue qui apparaît, choisissez Copier et insérer des lignes l'option dans la section Type puis choisissez la plage que vous souhaitez répéter dans la zone de texte Plage d'insertionet choisissez la colonne qui détermine le nombre de répétitions dans la zone de texte Nombre de répétitions Cliquez sur Ok.
Les lignes seront ensuite répétées en fonction de la colonne sélectionnée.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels