Sélection si case en couleur

Résolu

Philou73.ch -
cs_Le Pivert Messages postés 8437 Statut Contributeur - 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

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 730
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
```
0
1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
  
  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
  
  0
  1. Philou73.ch > cs_Le Pivert Messages postés 8437 Statut Contributeur
    
    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.
    
    0

cs_Le Pivert Messages postés 8437 Statut Contributeur 730

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

Sélection si case en couleur

2 réponses

Discussions similaires

Newsletters