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 basée sur la valeur d'une cellule en exécutant VBA, veuillez suivre les étapes ci-dessous :
1. Appuyez simultanément sur Alt + F11, et une fenêtre Microsoft Visual Basic for Applications apparaît.
2. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la fenêtre Module qui apparaît.
VBA : Insérer une ligne en dessous en fonction de 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 F5 ou sur le bouton Exécuter Une boîte de dialogue apparaît, sélectionnez la colonne contenant la valeur zéro. Voir la capture d'écran :
4. Cliquez OK. Ensuite, des lignes vides seront insérées sous la valeur zéro.
Astuce :
1. Si vous souhaitez insérer des lignes en fonction d'une autre valeur, vous pouvez remplacer 0 par n'importe quelle valeur souhaitée 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, vous pouvez utiliser le code VBA ci-dessous.
VBA : Insérer une ligne au-dessus de la valeur zéro :
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 ne maîtrisez pas bien VBA, vous pouvez essayer l'utilitaire Sélectionner des cellules spécifiques de Kutools pour Excel, puis insérer des lignes au-dessus.
Après avoir installé Kutools pour Excel, veuillez procéder comme suit :
1. Sélectionnez la liste à partir de laquelle vous souhaitez trouver des 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 apparaît, cochez Ligne entière option, puis allez sélectionner Égal à dans Spécifier le type liste, puis entrez la valeur que vous souhaitez rechercher dans la zone de texte à droite. Voir la capture d'écran :
3. Cliquez sur OK, et une boîte de dialogue apparaît pour vous rappeler le nombre de lignes sélectionnées, fermez-la simplement.
4. Placez le curseur sur une ligne sélectionnée, faites un clic droit et sélectionnez Insérer à partir du menu contextuel. Voir la capture d'écran :
Maintenant, les lignes sont insérées au-dessus en fonction d'une valeur spécifique.
Insérer des lignes au-dessus en fonction de la valeur d'une cellule
Articles connexes :
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