Sélection si case en couleur

Résolu

Philou73.ch -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention - 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.

Afficher la suite

A voir également:

Sélection si case en couleur
Excel cellule couleur si condition texte - Guide
Somme si couleur - Guide
Boite a couleur - Télécharger - Divers Photo & Graphisme
Schéma branchement autoradio couleur fils - Forum Autoradio
L'en-tête du document comporte une information qui n’apparaît pas à l'impression car elle est de couleur blanche. de quelle information s'agit-il ? ✓ - Forum Bureautique

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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 Statut Contributeur Dernière intervention 729

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 Statut Contributeur Dernière intervention

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 Statut Contributeur Dernière intervention 729

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

sertissage des cables rj45

pipette dans word 365

Changer la couleur de fond d'un en-tête

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

Couleur transparente

Votre réponse

Discussions similaires