Comment mettre en évidence les lignes en double selon la valeur d’une cellule dans une colonne ?
Lorsque vous travaillez avec des tableaux Excel, il peut parfois être nécessaire de dupliquer des lignes entières en fonction d’une valeur présente dans une colonne spécifique. Par exemple, imaginez un tableau où la colonne D indique un nombre, et votre objectif est de copier ou d’insérer chaque ligne autant de fois que la valeur correspondante dans cette colonne. Cette opération s’avère particulièrement utile pour étendre des données, préparer des jeux de données à des fins de test, simuler un inventaire ou générer des lignes de commande répétées. L’automatiser efficacement, sans recourir à la saisie manuelle, préserve l’intégrité des données et accélère considérablement votre flux de travail, surtout avec des tableaux volumineux.
 |  |  |
Ligne en double plusieurs fois selon les valeurs des cellules avec du code VBA
Ligne en double via une transformation Power Query
Ligne en double plusieurs fois selon les valeurs des cellules avec du code VBA
Si vous devez créer rapidement des doublons de lignes entières en fonction des valeurs d’une colonne spécifique (par exemple, la colonne D), VBA propose une solution directe et efficace. Cette approche s’avère particulièrement utile pour traiter de grands ensembles de données, car elle automatise le processus tout en garantissant une précision optimale. Toutefois, l’utilisation de VBA nécessite une connaissance de base de l’onglet Développeur d’Excel ainsi qu’une compréhension du fonctionnement des macros. Son principal atout réside dans sa flexibilité : le code peut facilement être adapté à différentes plages ou colonnes cibles. En revanche, si vous n’êtes pas à l’aise avec VBA ou si les politiques de sécurité de votre environnement bloquent l’exécution des macros, envisagez l’une des solutions alternatives présentées ci-dessous.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Ligne en double plusieurs fois selon la valeur d’une cellule :
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Les lignes entières seront dupliquées plusieurs fois selon la valeur indiquée dans la cellule de la colonne D, conformément à vos besoins.
Copier et insérer des lignes selon un nombre spécifié à l’aide d’un outil pratique – Kutools pour Excel
Si vous préférez une méthode sans code ou souhaitez une interface conviviale pour gérer la duplication par lots, Kutools pour Excel propose une solution pratique. Sa fonction Copier ou insérer des lignes/colonnes en fonction des données spécifiées vous permet de copier et d’insérer rapidement des lignes selon le nombre indiqué dans les cellules concernées. Cette solution convient particulièrement aux utilisateurs qui effectuent régulièrement ce type d’opérations répétitives sur les lignes et ont besoin d’un processus visuel et personnalisable. Kutools conserve la mise en page et la mise en forme du tableau d’origine pendant la duplication, réduisant ainsi le risque d’erreurs accidentelles. Cette méthode fonctionne parfaitement quelle que soit votre expérience avec VBA et améliore nettement l’efficacité pour les plages de taille moyenne à grande.
- Cliquez sur Kutools>Insérer>Ligne en double/Colonnes selon la valeur des cellulespour activer cette fonctionnalité ;
- Ensuite, choisissez l’option Copier et insérer des lignes, puis indiquez séparément les cellules de la Plage de génération et la valeur de la Nombre de répétitions dans la boîte de dialogue. Confirmez vos choix et cliquez sur OK.
Ligne en double via une transformation Power Query
Power Query offre une solution robuste et reproductible pour dupliquer des lignes en fonction d’une valeur de colonne – idéale pour les grands tableaux ou lorsque vous devez actualiser fréquemment vos données. Grâce à cet outil, étendez facilement les lignes selon des indicateurs numériques, sans formule ni code. Cette méthode convient parfaitement aux utilisateurs recherchant un processus clair, étape par étape, et exigeant une reproductibilité lors des futures mises à jour.
1. Transformez vos données en tableau Excel (sélectionnez la plage et appuyez sur)Ctrl+T). Ensuite, accédez à Données > À partir d’un tableau/plage pour charger votre tableau dans Power Query.
2. Dans l’éditeur Power Query, sélectionnez l’onglet Ajouter une colonne, puis cliquez sur Colonne personnalisée.
3. Saisissez la formule suivante pour générer une liste pour chaque ligne en fonction de la valeur de la colonne D. ()Remarque : vous devez remplacer [D] par l’en-tête réel de votre colonne. Par exemple, ici, je sélectionnerai Duplicate Times et cliquerai sur le bouton Insérer pour remplacer l’argument [D].)
List.Repeat({1}, [D])
4. Cliquez sur le bouton Développer situé à côté de la nouvelle colonne personnalisée, puis sur Développer en nouvelles lignes.
5. Vous verrez alors les données dupliquées en fonction des valeurs de la colonne D, comme illustré ci-dessous :
6. Supprimez les colonnes auxiliaires si nécessaire, puis cliquez sur Fermer et charger pour renvoyer les données vers Excel.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels