sélection une cellule avec condition de couleur

akramenergie · 4 Février 2011

Bonjour mes amis

dans l'exemple en pièce-joint j'arrive à afficher l'adresse de la cellule sélectioné . est ce que il y a une méthode pour affiché que les adresse des cellule coloré en rouge qui existe dans la colonne B.

merci d’avance pour votre aide.

ROGER2327 · 4 Février 2011

Re : sélection une cellule avec condition de couleur

Bonjour akramenergie

Problème traité presque tous les jours sur ce forum...

Essayez :

VB:

Private Sub CommandButton1_Click() Dim msg$, oCell As Range For Each oCell In Selection.Cells 'ou autre plage à définir tant que de besoin... If oCell.Interior.ColorIndex = 3 Then msg = msg & ", " & oCell.Address(0, 0) Next MsgBox Right$(msg, Len(msg) + (Len(msg) > 0)) End Sub

Vous pouvez remplacer Selection par toute autre plage qu'il vous sierra de traiter (Range("B2:B5000") par exemple).

ROGER2327
#4933

Mardi 10 Gueules 138 (Saint Préservatif, bedeau, SQ)
16 Pluviôse An CCXIX
2011-W05-5T14:51:52Z

Gorfael · 4 Février 2011

Re : sélection une cellule avec condition de couleur

Salut à tous
Une autre proposition :

Code:

Private Sub CommandButton1_Click()
Dim Cel As Range, Msg As String

For Each Cel In Intersect(UsedRange, Columns(2))
    If Cel.Interior.ColorIndex = 3 Then
        If Msg = "" Then
            Msg = Cel.Address(0, 0)
        Else
            Msg = Msg & " / " & Cel.Address(0, 0)
        End If
    End If
Next Cel
MsgBox Msg
End Sub

A+

akramenergie · 4 Février 2011

Re : sélection une cellule avec condition de couleur

Merci pour votre aide les deux code marche comme une horloge merci

sélection une cellule avec condition de couleur

akramenergie

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

akramenergie

XLDnaute Occasionnel

Discussions similaires