## Comment déplacer la ligne entière vers une autre feuille en fonction de la valeur de la cellule dans Excel?

Pour déplacer la ligne entière vers une autre feuille en fonction de la valeur de la cellule, cet article vous aidera.

**Sélectionnez facilement des lignes entières en fonction de la valeur de la cellule dans une colonne certian:**

Le **Sélectionner des cellules spécifiques** utilité de **Kutools for Excel** peut vous aider à sélectionner rapidement des lignes entières basées sur la valeur de la cellule dans une colonne certian dans Excel comme ci-dessous capture d'écran montré. Après avoir sélectionné toutes les lignes en fonction de la valeur de la cellule, vous pouvez les déplacer manuellement ou les copier dans un nouvel emplacement comme vous le souhaitez dans Excel.

**Kutools for Excel**: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.** Téléchargez l'essai gratuit maintenant! **

#### **Déplacer la ligne entière vers une autre feuille en fonction de la valeur de la cellule avec le code VBA**

Comme illustré ci-dessous, vous devez déplacer la ligne entière de Sheet1 vers Sheet2 si un mot spécifique "Done" existe dans la colonne C. Vous pouvez essayer le code VBA suivant.

1. presse **autre**+ **F11** touches simultanément pour ouvrir le **Microsoft Visual Basic pour applications** fenêtre.

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 1: déplacer la ligne entière vers une autre feuille en fonction de la valeur de la cellule**

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 Sub

**Note**: Dans le code, Sheet1 est la feuille de calcul contient la ligne que vous souhaitez déplacer. Et Sheet2 est la feuille de calcul de destination dans laquelle vous allez localiser la ligne. "C: C"Est la colonne contient la valeur certaine, et le mot"Terminé"Est la valeur certaine que vous allez déplacer la ligne basée sur. Veuillez les changer en fonction de vos besoins.

3. appuie sur le **F5** clé pour exécuter le code, la ligne répondant aux critères de Sheet1 sera immédiatement déplacée vers Sheet2.

**Note**: Le code VBA ci-dessus va supprimer les lignes des données d'origine après avoir déplacé vers une feuille de calcul spécifiée. Si vous souhaitez uniquement copier les lignes en fonction de la valeur de la cellule au lieu de les supprimer. Veuillez appliquer le code VBA 2 ci-dessous.

**Code VBA 2: Copier la ligne entière dans une autre feuille en fonction de la valeur de la cellule**

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 Sub

#### **Déplacer la ligne entière vers une autre feuille en fonction de la valeur de la cellule avec Kutools for Excel**

Si vous êtes débutant dans le code VBA. Ici, je présente le **Sélectionner des cellules spécifiques** utilité de** Kutools for Excel**. Avec cet utilitaire, vous pouvez facilement sélectionner toutes les lignes en fonction d'une certaine valeur de cellule ou de différentes valeurs de cellule dans une feuille de calcul et copier les lignes sélectionnées dans la feuille de calcul de destination selon vos besoins. S'il vous plaît faire comme suit.

Kutools for Excel : avec plus que 300 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. |

1. Sélectionnez la liste des colonnes qui contient la valeur de cellule sur laquelle vous allez déplacer les lignes, puis cliquez sur **Kutools** > **Sélectionner** > **Sélectionner des cellules spécifiques**. Voir la capture d'écran:

2. Dans l'ouverture **Sélectionner des cellules spécifiques** boîte de dialogue, choisissez **Ligne entière** le **Type de sélection** section, sélectionnez **Équivaut à** le **Type spécifique** Dans la liste déroulante, entrez la valeur de la cellule dans la zone de texte, puis cliquez sur le **OK** .

Une autre **Sélectionner des cellules spécifiques** boîte de dialogue apparaît pour vous montrer le nombre de lignes sélectionnées, et pendant ce temps, toutes les lignes contiennent la valeur spécifiée dans la colonne sélectionnée ont été sélectionnés. Voir la capture d'écran:

3. appuie sur le **Ctrl** + **C** clés pour copier les lignes sélectionnées, puis collez-les dans la feuille de calcul de destination dont vous avez besoin.

**Note**: 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éplacez les lignes en fonction des valeurs de cellule "Terminé" ou "Traitement", vous pouvez activer **Or** condition dans le **Sélectionner des cellules spécifiques** boîte de dialogue comme ci-dessous capture d'écran montré:

#### **Articles connexes**:

### Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

**Réutilisation**: Insérer rapidement**formules complexes, graphiques**et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...- Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
- Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
- Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
- Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
- Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.

### Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

**Activer l'édition par onglets et la lecture 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 réduit le nombre de clics de souris pour vous chaque jour!