Comment insérer des numéros ou des lignes afin de compléter une séquence numérique manquante dans Excel ?
Supposons que vous ayez une liste de numéros séquentiels dans une feuille de calcul, mais que certains soient manquants. Comment insérer rapidement ces numéros manquants ou des lignes vides pour rétablir une séquence complète dans Excel ?
Insérer les numéros manquants dans une séquence à l’aide de la fonction Trier et de la fonctionnalité Supprimer les doublons
Vous pourriez repérer un par un les numéros manquants, puis les insérer, mais il deviendrait très difficile d’identifier leur emplacement exact s’il y a des centaines de numéros séquentiels. Dans Excel, je peux utiliser la fonction **Trier** ainsi que l’outil **Supprimer les doublons** pour accomplir cette tâche en toute simplicité.
1. À la fin de la liste séquentielle, saisissez une autre série de nombres consécutifs allant de 2005023001 à 2005023011. Voir la capture d’écran :
2. Sélectionnez ensuite la plage contenant les deux nombres consécutifs, puis cliquez sur Données > Ordre croissant. Voir la capture d’écran :
3. Les données sélectionnées ont été triées comme indiqué dans la capture d’écran suivante :
4. Ensuite, supprimez les doublons en cliquant sur Données > Supprimer les doublons. Dans la boîte de dialogue Supprimer les doublons qui s’ouvre, cochez le nom de la colonne dont vous souhaitez supprimer les doublons. Voir les captures d’écran :
 |  |  |
5. Cliquez ensuite sur OK. Les doublons présents dans la colonne A ont été supprimés, et les numéros manquants ont été insérés dans la liste séquentielle. Voir la capture d’écran :
Insérer les numéros manquants ou des Lignes vides dans une séquence à l’aide de Kutools pour Excel
Je vais vous présenter ici un outil simple et pratique : Kutools pour Excel. Grâce à sa fonctionnalité Trouver une séquence manquante, vous pouvez rapidement insérer les numéros de séquence ou les lignes vides manquants entre les données existantes de la séquence.
Si vous avez installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage de données dans laquelle vous souhaitez insérer les numéros manquants.
2. Cliquez sur Kutools > Insérer > Trouver une séquence manquante. Voir la capture d’écran :
3. Dans la boîte de dialogue Trouver une séquence manquante, cochez Insérer des données manquantes pour insérer les numéros manquants, ou cochez Insérer des lignes vides lorsqu’un nombre consécutif est manquant afin d’insérer les lignes vides selon vos besoins. Voir la capture d’écran :
4. Cliquez ensuite sur le bouton OK. Les nombres consécutifs ou les lignes vides manquants ont été insérés dans les données. Voir les captures d’écran :
 | |  | |  |
Téléchargez et testez gratuitement Kutools pour Excel dès maintenant !
Insérer les numéros manquants dans une séquence à l’aide d’un code VBA
Si vous trouvez les méthodes ci-dessus trop longues ou complexes, voici un code VBA qui vous permettra de résoudre ce problème en toute simplicité. Suivez ces étapes :
1. Maintenez enfoncées les touches ALT + F11. La fenêtre Microsoft Visual Basic pour Applications s’ouvre alors.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
VBA : insérer les numéros manquants dans une séquence
Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche alors : veuillez sélectionner la plage de données dans laquelle vous souhaitez insérer les numéros manquants (n’incluez pas la plage de titre). Voir la capture d’écran :
4. Cliquez ensuite sur OK. Les numéros manquants ont été insérés dans la liste séquentielle. Voir les captures d’écran :
 | |  |
Insérer des Lignes vides pour combler les numéros manquants dans une séquence à l’aide d’un code VBA
Parfois, il suffit simplement de repérer l’emplacement des numéros manquants et d’insérer des lignes vides entre les données pour pouvoir saisir les informations souhaitées. Bien entendu, le code VBA suivant peut également vous aider à résoudre ce problème.
1. Maintenez enfoncées les touches ALT + F11. La fenêtre Microsoft Visual Basic pour Applications s’ouvre alors.
2. Cliquez sur Insertion>Module, puis collez le code suivant dans la fenêtre Module.
VBA : insérer des Lignes vides pour combler les numéros manquants dans une séquence
Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
If dic.Exists(i + num1) Then
outArr(i + 1, 1) = i + num1
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 1) = ""
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche alors : sélectionnez la plage de données dans laquelle vous souhaitez insérer des lignes vides afin de combler les numéros manquants (n’incluez pas la plage d’en-tête). Voir la capture d’écran :
4. Cliquez ensuite sur OK. Les lignes vides ont été insérées pour combler les numéros manquants dans la liste séquentielle. Voir les captures d’écran :
| |  |
Article associé :
Comment identifier facilement une séquence de numéros manquants dans 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