Sélectionné les cellules de la même couleur
Résolu
iliesss
Messages postés
113
Date d'inscription
Statut
Membre
Dernière intervention
-
iliesss Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
iliesss Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
Bonjour
j'ai une plage de A1:A100 et dans cette plage j'ai des cellules avec la couleur N°4
j'ai essayé de celectionné ces cellules avec cette expression VBA mais ça marche pas
Sub test()
Dim cell As Range
for each cell in Range("A1:A100").Interior.ColorIndex = 4 Then
cell.Select
Next cell
End Sub SVP
Aidez moi a corrigé ce problème
Merci
j'ai une plage de A1:A100 et dans cette plage j'ai des cellules avec la couleur N°4
j'ai essayé de celectionné ces cellules avec cette expression VBA mais ça marche pas
Sub test()
Dim cell As Range
for each cell in Range("A1:A100").Interior.ColorIndex = 4 Then
cell.Select
Next cell
End Sub SVP
Aidez moi a corrigé ce problème
Merci
A voir également:
- Sélectionné les cellules de la même couleur
- Excel cellule couleur si condition texte - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Formule excel pour additionner plusieurs cellules - Guide
- Changer la couleur de la barre des taches - Guide
- Excel compter les cellules de couleur - Guide
3 réponses
bonjour,
Pourquoi veux-tu sélectionner ces cellules ?
Avec une sélection multiple, tu ne pourras pas faire grand chose...
Pourquoi veux-tu sélectionner ces cellules ?
Avec une sélection multiple, tu ne pourras pas faire grand chose...
Bonsoir à tous,
essaie avec ça :
On est bien d'accord que le cellule sont colorées manuellement.
S'il s'agit d'une MFC reprend les critères de la MFC pour les sélectionner.
Et comme dit gb, tu ne pourras pas en faire grand chose à part les regarder...
eric
essaie avec ça :
Sub test()
Dim c As Range, sel As Range
For Each c In Range("A1:A100")
If c.Interior.ColorIndex = 4 Then
If sel Is Nothing Then
Set sel = c
Else
Set sel = Union(sel, c)
End If
End If
Next c
If Not sel Is Nothing Then sel.Select
End Sub
On est bien d'accord que le cellule sont colorées manuellement.
S'il s'agit d'une MFC reprend les critères de la MFC pour les sélectionner.
Et comme dit gb, tu ne pourras pas en faire grand chose à part les regarder...
eric
