Table des matières
Données sur l'adaptation Copier des lignes, en fonction de critères, d'une feuille à l'autre est l'une des tâches les plus fréquentes dans Excel. Si vous avez beaucoup de lignes et que vous voulez les copier sur une autre feuille en fonction de certains critères, cela peut être assez fastidieux et prendre du temps. Mais avec Microsoft Application Visual Basic (VBA) vous pouvez créer des macros avec lesquelles vous pouvez facilement copier des données d'une feuille à l'autre en fonction de différents critères. Dans cet article, je vous montrerai comment copier des lignes vers une autre feuille de calcul en fonction de deux types de critères différents en utilisant Excel VBA. .
Disons que vous avez l'ensemble de données suivant dans une feuille de calcul appelée " Données "Maintenant, vous voulez copier des lignes spécifiques en fonction de certains critères dans une autre feuille.
Télécharger le cahier d'exercices
Copier les lignes vers une autre feuille de calcul en fonction de critères.xlsm2 façons de copier des lignes vers une autre feuille de calcul en fonction de critères par Excel VBA
Copier des lignes vers une autre feuille de calcul en fonction de critères textuels
Dans cette démonstration, je vous montrerai comment copier des lignes d'une feuille de calcul à une autre sur la base de critères textuels. Virginia dans une feuille de calcul nommée Ventes régionales en utilisant Excel VBA Pour faire ça, d'abord,
➤ Press ALT+F11 pour ouvrir le VBA fenêtre.
Dans le VBA fenêtre,
➤ Cliquez sur le Insérer et sélectionnez Module .
Il ouvrira le Module(Code) fenêtre. Maintenant,
➤ Insérez le code suivant dans le fichier Module(Code) fenêtre,
Sub Copy_Criteria_Text() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("C1", Range("C" & ; Rows.Count).End(xlUp)) .AutoFilter 1, "Virginia" On Error Resume Next .Offset(1).EntireRow.Copy Sheet3.Range("A" & ; Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating = TrueSheet3.Select End Sub Le code va créer une Macro nommée Copie_Texte_Critère qui recherchera la Virginie dans la colonne C de la feuille de calcul actuelle et renvoie les lignes qui contiennent Virginia dans la feuille de calcul nommée Ventes régionales (feuille 3).
Après ça,
➤ Fermer ou minimiser le VBA fenêtre.
➤ Press ALT+F8
Il ouvrira le Macro fenêtre.
➤ Select Copie_Texte_Critère dans le Nom de la macro et cliquez sur Exécuter .
En conséquence, les lignes avec Virginia seront copiées dans la feuille de travail nommée Ventes régionales
Lire la suite : Comment copier automatiquement des lignes d'Excel vers une autre feuille (4 méthodes)
Copier des lignes vers une autre feuille de calcul en fonction de critères numériques
Je vais maintenant vous montrer comment copier des lignes d'une feuille de calcul vers une autre feuille de calcul en fonction de critères numériques. Supposons que vous vouliez copier les données des ventes supérieures à 100 000 $ vers une feuille de calcul nommée Meilleures ventes Pour faire ça, d'abord,
➤ Press ALT+F11 pour ouvrir le VBA fenêtre.
Dans le VBA fenêtre,
➤ Cliquez sur le Insérer et sélectionnez Module .
Il ouvrira le Module(Code) fenêtre. Maintenant,
➤ Insérez le code suivant dans le fichier Module(Code) fenêtre,
Sub Copy_Criteria_Number() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("D1", Range("D" & ; Rows.Count).End(xlUp)) .AutoFilter 1, ">100000" On Error Resume Next .Offset(1).EntireRow.Copy Sheet4.Range("A" & ; Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating =True Sheet4.Select End Sub Le code va créer une Macro nommée Numéro de critère de copie qui recherchera les valeurs supérieures à 100000 dans la colonne D de la feuille de calcul nommée Données et renvoyer les lignes qui contiennent des valeurs de ventes supérieures à 100 000 $ dans la feuille de calcul nommée Meilleures ventes (feuille 4).
Après ça,
➤ Fermer ou minimiser le VBA fenêtre.
➤ Press ALT+F8
Il ouvrira le Macro fenêtre.
➤ Select Numéro de critère de copie dans le Nom de la macro et cliquez sur Exécuter .
Par conséquent, les lignes qui contiennent des valeurs de vente supérieures à 100 000 $ seront copiées dans le fichier de données de l'entreprise. Meilleures ventes feuille de travail.
Lire la suite : Comment copier plusieurs lignes dans Excel en utilisant une macro (4 exemples)
Conclusion
Avec les deux méthodes de cet article, vous serez en mesure de copier des lignes d'une feuille de calcul à une autre feuille de calcul sur la base de différents critères en utilisant Excel VBA. Vous pouvez utiliser la première méthode pour les critères de texte et la deuxième méthode pour les critères de nombre. Si vous avez une quelconque confusion sur l'une des méthodes, n'hésitez pas à laisser un commentaire.
