Comment sélectionner une plage en fonction de la valeur d'une cellule dans une autre colonne dans Excel ?
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.
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
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.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels