Comment insérer automatiquement une ligne en fonction de la valeur d’une cellule dans Excel ?
Insérer une ligne en dessous en fonction de la valeur d’une cellule avec VBA
Insérer une ligne au-dessus en fonction de la valeur d’une cellule avec Kutools pour Excel
Insérer une ligne en dessous en fonction de la valeur d’une cellule avec VBA
Pour insérer une ligne en fonction de la valeur d’une cellule en exécutant du code VBA, procédez comme suit :
1. Appuyez simultanément sur Alt + F11 : une fenêtre Microsoft Visual Basic pour Applications s’ouvre.
2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la fenêtre du Module qui s’affiche.
VBA : insérez une ligne en dessous selon la valeur d’une cellule.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Cliquez sur F5 ou sur le bouton Exécuter : une boîte de dialogue s’ouvre. Sélectionnez alors la colonne contenant des zéros. Voir capture d’écran :
4. Cliquez sur OK. Une ligne « Lignes vides » sera alors insérée sous les valeurs nulles.
Astuce:
1. Si vous souhaitez insérer des lignes en fonction d’une autre valeur, remplacez simplement 0 par la valeur de votre choix dans le code VBA : If Rng.Value = "0" Then.
2. Si vous souhaitez insérer des lignes au-dessus de zéro ou d’une autre valeur, utilisez le code VBA ci-dessous.
VBA : insérer une ligne au-dessus des valeurs nulles :
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Insérer une ligne au-dessus en fonction de la valeur d’une cellule avec Kutools pour Excel
Si vous n’êtes pas à l’aise avec VBA, vous pouvez essayer l’utilitaire Kutools pour Excel : utilisez la fonction Sélectionner des cellules spécifiques, puis insérez des lignes comme indiqué ci-dessus.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la liste dans laquelle vous souhaitez identifier les cellules spécifiques, puis cliquez sur Kutools > Sélectionner > Sélectionner des cellules spécifiques. Voir la capture d’écran :
2. Dans la boîte de dialogue qui s’ouvre, cochez l’option Ligne entière, puis sélectionnez Égal à dans la liste Spécifier le type et saisissez la valeur recherchée dans la zone de texte située à droite. Voir la capture d’écran :
3. Cliquez sur OK : une boîte de dialogue s’affiche pour vous indiquer le nombre de lignes sélectionnées ; fermez-la simplement.
4. Placez le curseur sur l’une des lignes sélectionnées, cliquez avec le bouton droit et choisissez Insérer dans le menu contextuel. Voir la capture d’écran :
Les lignes sont désormais insérées au-dessus selon une valeur spécifique.
Insérer des lignes Au-dessus en fonction de la valeur d’une cellule
Articles associés :
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