Comment déplacer une ligne entière vers le bas de la feuille active en fonction de la valeur d'une cellule dans Excel ?
Pour déplacer une ligne entière vers le bas de la feuille active en fonction de la valeur d'une cellule dans Excel, essayez le code VBA présenté dans cet article.
Déplacer une ligne entière vers le bas de la feuille active en fonction de la valeur d'une cellule avec un code VBA
Par exemple, comme illustré dans la capture d'écran ci-dessous, si une cellule de la colonne C contient une certaine valeur « Terminé », alors déplacez toute la ligne vers le bas de la feuille actuelle. Veuillez procéder comme suit.
1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications .
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre.
Code VBA : Déplacer une ligne entière vers le bas de la feuille active en fonction de la valeur d'une cellule
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Remarque : Dans le code VBA, « Terminé » est la valeur de la cellule sur laquelle vous déplacerez toute la ligne. Vous pouvez la modifier selon vos besoins.
3. Appuyez sur la touche F5 pour exécuter le code, puis dans la boîte de dialogue Kutools pour Excel qui apparaît, sélectionnez la plage de colonnes où se trouve la valeur spécifique, puis cliquez sur le bouton OK.
Après avoir cliqué sur le bouton OK, toute la ligne contenant la valeur « Terminé » dans la colonne spécifiée est automatiquement déplacée vers le bas de la plage de données.

Découvrez la magie d'Excel avec Kutools AI
- Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
- Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
- Codage VBA : Écrivez et implémentez du code VBA sans effort.
- Interprétation des formules : Comprenez facilement des formules complexes.
- Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
Articles connexes :
Meilleurs outils de productivité Office
Dynamisez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité la plus essentielle pour vous...
Office Tab apporte une interface à onglets à Office, et facilite grandement 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, au lieu d’ouvrir de nouvelles fenêtres.
- Augmentez votre productivité de50% et réduisez des centaines de clics de souris chaque jour!