Comment déplacer une ligne entière vers une autre feuille selon la valeur d’une cellule dans Excel ?
Pour déplacer une ligne entière vers une autre feuille en fonction de la valeur d’une cellule, cet article vous sera particulièrement utile.
Déplacer Ligne entière vers une autre feuille en fonction de la valeur d’une cellule à l’aide d’un code VBA
Déplacer Ligne entière vers une autre feuille en fonction de la valeur d’une cellule avec Kutools pour Excel
Déplacer Ligne entière vers une autre feuille en fonction de la valeur d’une cellule à l’aide d’un code VBA
Comme illustré ci-dessous, déplacez toute la ligne de Feuil1 vers Feuil2 dès que le mot « Done » apparaît dans la colonne C. Vous pouvez utiliser le code VBA suivant pour y parvenir.
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 Insertion > Module, puis copiez et collez le code VBA ci-dessous dans la fenêtre.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubRemarque : Dans le code, Feuil1 est la feuille de calcul contenant la ligne que vous souhaitez déplacer. Feuil2 est la feuille de destination où la ligne sera placée. « C:C » correspond à la colonne contenant la valeur recherchée, et le mot « Done » est la valeur spécifique sur laquelle repose le déplacement des lignes. Adaptez-les selon vos besoins.
3. Appuyez sur la touche F5 pour exécuter le code ; les lignes répondant aux critères dans Feuil1 seront immédiatement déplacées vers Feuil2.
Remarque : Le code VBA ci-dessus supprime des lignes des données d’origine après leur déplacement vers une feuille de calcul spécifiée. Si vous souhaitez uniquement copier les lignes en fonction de la valeur d’une cellule sans les supprimer, utilisez le code VBA ci-dessous.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubDéplacer Ligne entière vers une autre feuille en fonction de la valeur d’une cellule avec Kutools pour Excel
Si vous débutez en VBA, laissez-moi vous présenter l’outil Sélectionner des cellules spécifiques de Kutools pour Excel. Grâce à cette fonctionnalité, sélectionnez facilement toutes les lignes correspondant à une valeur précise ou à plusieurs valeurs dans une feuille de calcul, puis copiez-les directement vers la feuille de destination de votre choix. Voici comment procéder.
1. Sélectionnez la colonne contenant la valeur de cellule sur laquelle vous souhaitez baser le déplacement des lignes, puis cliquez sur Kutools > Sélectionner > Sélectionner des cellules spécifiques. Voir la capture d’écran :
2. Dans la boîte de dialogue Sélectionner des cellules spécifiques qui s’ouvre, choisissez Ligne entière dans la section Sélectionner le type, sélectionnez Égal à dans la liste déroulante Spécifier le type, saisissez la valeur de la cellule dans la zone de texte, puis cliquez sur le bouton OK.
Une autre boîte de dialogue Sélectionner des cellules spécifiques s’ouvre pour vous indiquer le nombre de lignes sélectionnées ; par ailleurs, toutes les lignes contenant la valeur spécifiée dans la colonne sélectionnée ont été sélectionnées. Voir la capture d’écran :
3. Appuyez sur les touches Ctrl+C pour copier les lignes sélectionnées, puis collez-les dans la feuille de destination souhaitée.
Remarque: Si vous souhaitez déplacer des lignes vers une autre feuille de calcul en fonction de deux valeurs de cellule différentes — par exemple, déplacer les lignes dont la valeur est soit « Done », soit « Processing » — vous pouvez activer la condition Oudans la boîte de dialogue Sélectionner des cellules spécifiquescomme illustré ci-dessous :
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
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