Comment insérer automatiquement une ligne en fonction de la valeur d'une cellule dans Excel ?

Supposons que vous ayez une plage de données et que vous souhaitiez insérer automatiquement des lignes vides au-dessus ou en dessous d'une certaine valeur dans Excel, par exemple, insérer automatiquement des lignes sous une valeur zéro comme le montre la capture d'écran ci-dessous. Dans Excel, il n'y a pas de méthode directe pour résoudre cette tâche, mais je peux vous présenter un code Macro pour insérer automatiquement des lignes basées sur une certaine valeur 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 :

• Insérer des lignes vides dans Excel