selection des cellules colorisées

Bonjour,

Il y a sûrement plus simple mais en attendant mieux :
Sub couleur()
For Each c In Selection
If c.Interior.ColorIndex = 36 Then
t = c.Address
If e = "" Then
e = Range(t).Address
Else
e = Union(Range(e), Range(t)).Address
End If
End If
Next
Range(e).Select
End Sub

Camille

"RGI" wrote:

Bonjour

Dans une colonne je voudrai sélectionner toutes les cellules
dont la couleur interior colorindex est 36

comment peut-on faire ?

Merci de vos réponses

RGI

Salut à toi
Je te propose ce code

Range("A1", "A10").Select
For Each c In Selection
If c.Interior.ColorIndex = 36 Then
c.Select
i = ActiveCell.Row
A = A & "A" & i & ","
End If
Next
B = Mid(A, 1, Len(A) - 1)
Range(B).Select

La plage est à adapter ligne :
Range("A1", "A10").Select

Attention Nombre de cellules à sélectionner est limité (40 à 50)

Celà devrait te convenir

Bonjour

Dans une colonne je voudrai sélectionner toutes les cellules
dont la couleur interior colorindex est 36

comment peut-on faire ?

Merci de vos réponses

RGI

Merci à vous deux

j'ai réussi à trouver une solution qui me convient
car le colorindex provoque des problèmes

Merci beaucoup

RGI