Identifier cellule

[Marc]

Ami(e)s du forum, bonsoir
Voilà je vien avec la petite question suivante :
est-il possible d'atteindre dans une plage de cellules la seule cellule dont le fond est rouge et qui n'est jamais à la même place ?
Comptant beaucoup sur vos méninges qui ne cessent jamais de tourner, je vous remercie de vos suggestions. En Vba bien sur.
Amicalement.

 

[Marc]

Excusez-moi, petite précision, le fond ce cette cellule est TOUJOURS ROUGE et TOUJOURS EGALE à la cellule B1.
Merci

 

[Lionel]

Bonsoir Marc,

Si la cellule recherchée est toujours égale à B1, peu importe la couleur de fond (mise en forme contitionnelle ?), et tu peux utiliser le code suivant qui n'est pas forcément le plus rapide (tout dépend de l'étendue de ta plage de données) :

Sub Indentifier_Cellule()
Dim Plage As Range
Dim Cellule_Cible As Range
Set Plage = Range('Ta_Plage_de_données')
For Each Cellule_Cible In Plage
If Cellule_Cible.Value = Range('B1').Value Then
Cellule_Cible.Select
Exit Sub 'C'est pas très clean comme sortie, mais bon...
End If
Next
End Sub

Amicalement
Lionel

 

[Lionel]

C'est re-moi

Tu peux très bien en faire une procédure événementielle sur modification du contenu de la cellule B1...

Amitiés
Lionel

 

[myDearFriend!]

Bonsoir Marc, Lionel, le Forum,

Si j'ai bien compris la question, tu peux éventuellement essayer ça :

      Application.FindFormat.Interior.ColorIndex = 3
      ActiveSheet.Cells.Find(What:='', SearchFormat:=True).Select

Cordialement,

 

[Lionel]

Bonsoir tout le monde,

Merci Didier, je ne connaissais pas cette méthode de l'objet Application... Je note

Amitiés sincères
Lionel

 

[Marc]

Avec tous mes remerciements à Lionel et Didier
bon dimanche à tous