Sélection si case en couleur

Résolu/Fermé

Philou73.ch - 16 janv. 2015 à 14:42
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 17 janv. 2015 à 13:04

Bonjour à vous, j'ai à nouveau besoin de vos bons, je dirai même excellent, conseilS...

Voici les données du problème :

J'ai un tableau excel dans lequel il y a les noms et plusieurs iniitales pour chaque personnes. Cependant, il y a depuis peu, une cellule aléatoir qui est mise en coleur. Et je dois maintenant prendre en compte uniquement ces initiales colorées.

Ma question est donc comment en code VBA, comment encoder cette condition.

D'avance merci pour votre lecture et dans l'attente de vos solutions, je vous adresse mes meilleures salutations.

A voir également:

Sélection si case en couleur
Excel cellule couleur si condition texte - Guide
Somme si couleur - Guide
La boite a couleur - Télécharger - Divers Photo & Graphisme
Aller à la ligne dans une case excel - Guide
Pipette couleur word - Forum Microsoft Office

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
16 janv. 2015 à 15:43

Bonjour,

Sub test()
 Dim Col As Range, C As Range
 For Each Col In Range("A1:C20").Columns 'plage a adapter
  For Each C In Col.Cells
  If C.Interior.ColorIndex = 3 Then 'couleur a adapter
   MsgBox "la cellule " & C.Address & " est rouge"
  End If
  Next
 Next
 End Sub

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
16 janv. 2015 à 15:51

Si c'est le texte qui est en couleur mettre ceci:

 If C.Font.ColorIndex = 3 Then 'couleur a adapter

a la place de :

If C.Interior.ColorIndex = 3 Then 'couleur a adapter

Philou73.ch > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
17 janv. 2015 à 11:01

cs_Le Pivert, je vous adresse un grand merci.

Vous m'avez apporté un solution qui me va à merveille.
Testé c'est nickel.
J'ai, je pense, par ignorance fait la modification suivante :

If C.Interior.Color = RGB(255, 255, 0) Then

Ai travaillé avec RGB, car ça a été plus simple pour moi d'aller voir la couleur utilisé et reporter selon les données que j'ai ainsi obtenues.

Mais un grand merci, pour votre rapidité et le temps pris à me montrer les exemples.

Bonne journée à vous, et je vous souhaite une bonne année 2015.

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
17 janv. 2015 à 13:04

Si tu veux connaître la couleur d'une cellule:

Sub test()
 Dim Col As Range, C As Range
 For Each Col In Range("A1").Columns 
  For Each C In Col.Cells
   MsgBox C.Interior.ColorIndex  
  Next
 Next
 End Sub

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

sertissage des cables rj45

NB.SI critère couleur

Transparence en tete et bas de page

Couleur transparente