Comment insérer une ligne vide au-dessus d’un texte spécifique dans Excel ?
 |  |  |
Lorsque vous travaillez sur une feuille de calcul, avez-vous déjà eu besoin d’insérer une ligne vide juste au-dessus d’un texte spécifique dans une colonne ? Par exemple, la colonne A contient des noms, et vous souhaitez insérer des lignes vides au-dessus de chaque cellule affichant le nom « Mike », comme illustré dans la capture d’écran de gauche. Excel ne propose pas de méthode directe pour effectuer cette tâche, mais dans cet article, je vous dévoile quelques astuces efficaces pour y parvenir facilement.
Insérer Ligne vide au-dessus d’un texte spécifique à l’aide d’un code VBA
Insérer Ligne vide au-dessus d’un texte spécifique avec Kutools pour Excel
Insérer Ligne vide au-dessus d’un texte spécifique à l’aide d’un code VBA
Insérer manuellement une ligne vide au-dessus d’un texte spécifique, cellule par cellule, prendrait énormément de temps. Je vais donc vous proposer un code VBA permettant d’insérer simultanément des lignes vides au-dessus de toutes les cellules contenant une valeur précise.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre du Module.
Code VBA : insérer rapidement Ligne vide au-dessus d’un texte spécifique
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’ouvre alors afin de vous inviter à sélectionner les données de la colonne contenant le texte spécifique au-dessus duquel vous souhaitez insérer une ligne (voir capture d’écran) :
4. Cliquez ensuite sur le bouton OK, et les lignes vides ont été insérées au-dessus du texte spécifique « Mike ».
Remarque : dans le code ci-dessus, vous pouvez remplacer la valeur textuelle «Mike» par toute autre valeur de votre choix dans la ligne de script suivante : If InStr(1, xRng.Cells(i, 1).Value, «Mike») > 0Then.
Insérer Ligne vide au-dessus d’un texte spécifique avec Kutools pour Excel
Si vous disposez de Kutools pour Excel, sa fonctionnalité Sélectionner des cellules spécifiques vous permet tout d’abord de sélectionner les valeurs de cellules souhaitées, puis d’utiliser l’utilitaire « Insérer des lignes de feuille » d’Excel pour insérer simultanément des lignes vides.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage de données que vous souhaitez utiliser.
2. Cliquez ensuite sur Kutools > Sélectionner > Sélectionner des cellules spécifiques (voir capture d’écran) :
3. Dans la boîte de dialogue Sélectionner des cellules spécifiques, sélectionnez Cellule sous Sélectionner le type, puis définissez les critères souhaités dans la section Spécifier le type. Dans ce cas, j’opte pour Égal à dans le menu déroulant Spécifier le type et saisis le nom que je souhaite sélectionner (voir capture d’écran) :
4. Cliquez ensuite sur le bouton OK : toutes les cellules contenant la valeur « Mike » sont alors sélectionnées simultanément (voir capture d’écran).
5.Après avoir sélectionné les cellules contenant le texte spécifique, cliquez sur Accueil>Insertion>Insérer des lignes de feuille, et les Lignes vides seront insérées au-dessus du texte sélectionné (voir captures d’écran) :
 | | |
Téléchargez et testez gratuitement Kutools pour Excel dès maintenant !
Démo : insérer Ligne vide au-dessus d’un texte spécifique avec Kutools pour 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