Sélectionné les cellules de la même couleur Résolu/Fermé

Question

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

gbinforme · Answer

bonjour,

Pourquoi veux-tu sélectionner ces cellules ?

Avec une sélection multiple, tu ne pourras pas faire grand chose...

eriiic · Answer

Bonsoir à tous,

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

iliesss · Answer

merci mon ami eric

Sélectionné les cellules de la même couleur

3 réponses

Discussions similaires