Comment sélectionner une plage en fonction de la valeur de la cellule dans une autre colonne dans Excel?
Dans cet article, je vais expliquer comment sélectionner des plages en fonction de la valeur de la cellule dans une autre colonne. Prenons un exemple, si les cellules affichent FALSE dans la colonne C, les cellules relatives dans la colonne A et la colonne B seront sélectionnées comme illustré ci-dessous. Il n'y a pas de fonctionnalité intégrée qui peut vous aider à résoudre cette tâche, mais dans cet article, je peux la gérer avec un code VBA.
Sélectionnez la plage en fonction de la valeur de la cellule dans une autre colonne par code VBA
Sélectionnez la plage en fonction de la valeur de la cellule dans une autre colonne par code VBA
Sélectionnez la plage en fonction de la valeur de la cellule dans une autre colonne par code VBA
1. Activez la feuille que vous souhaitez utiliser et appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, puis collez le code ci-dessous dans le nouveau Module fenêtre.
VBA: sélectionnez la plage en fonction de la valeur de la 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. presse F5 clé pour exécuter le VBA, puis les plages ont été sélectionnées en fonction des valeurs de la colonne C.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 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
- Activer 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 réduit des centaines de clics de souris chaque jour!