Accéder au contenu principal

Comment sélectionner une plage en fonction de la valeur d'une cellule dans une autre colonne dans Excel ?

Author: Sun Last Modified: 2025-05-27

Dans cet article, je vais expliquer comment sélectionner des plages en fonction de la valeur d'une cellule dans une autre colonne. Prenons un exemple : si les cellules affichent FAUX dans la colonne C, les cellules correspondantes dans les colonnes A et B seront sélectionnées, comme le montre la capture d'écran ci-dessous. Il n'y a pas de fonctionnalité intégrée pour résoudre cette tâche, mais dans cet article, je vais vous montrer comment y parvenir avec du code VBA.
A screenshot showing cells in columns A and B selected based on FALSE values in column C

Sélectionner une plage en fonction de la valeur d'une cellule dans une autre colonne à l'aide du code VBA


arrow blue right bubble Sélectionner une plage en fonction de la valeur d'une cellule dans une autre colonne à l'aide du code VBA

Sélectionner une plage en fonction de la valeur d'une cellule dans une autre colonne à l'aide du code VBA

1. Activez la feuille que vous souhaitez utiliser, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans la nouvelle fenêtre Module.

VBA : Sélectionner une plage en fonction de la valeur d'une cellule

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

A screenshot of VBA code inserted into a new module for selecting cells based on another column

3. Appuyez sur la touche F5 pour exécuter le code VBA, et les plages seront sélectionnées en fonction des valeurs de la colonne C.

Remarque : dans le script VBA, Feuil2 est le nom de la feuille active, C indique la colonne sur laquelle vous souhaitez baser la sélection, et A et 2 dans ("A" & xRg.Row).Resize(, 2) indiquent que deux colonnes doivent être sélectionnées à partir de la colonne A. Vous pouvez modifier les références selon vos besoins.

Astuce : Si vous souhaitez sélectionner rapidement des cellules égales à une valeur spécifique, essayez d'utiliser l'utilitaire Sélectionner des cellules spécifiques de Kutools pour Excel, comme le montre la capture d'écran suivante. Téléchargez-le et essayez-le gratuitement dès maintenant !

A screenshot of the Select Specific Cells utility provided by Kutools for Excel

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 ensembles d'outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   50+ types de graphiques (Diagramme de Gantt, ...)   |   40+ formules pratiques (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils d'insertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 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, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !