[VBA] Lire la propriété Interior.Color d'une cellule

Lire la propriété Interior.Color d'une cellule [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 21-05-2009 à 23:08:01    

Bonjour,
Je voudrais créer une procédure qui parcoure une colonne et choisit les données selon leur couleur de fond.
 
J'ai donc écrit ceci :

Code :
  1. Sub calcul_rouge()
  2. Dim i As Long, valeur As Double
  3. valeur = 0
  4. i = 6
  5. Do While Cells(i, 1).Value <> ""
  6. If Cells(i, 1).Interior.Color = RGB(255, 0, 0) Then
  7. valeur = valeur + Cells(i, 3).Value
  8. End If
  9. i = i + 1
  10. Loop
  11. End Sub


 
Malheureusement j'obtiens l'erreur 1004 : "Impossible de lire la propriété Interior de la classe Range"
Je suppose que le problème réside dans le fait que la syntaxe Cells(l,c).Interior.color correspond à l'écriture et pas à la lecture de données, mais impossible de trouver la solution...
 
Merci d'avance,  
Cordialement
 
Tetdepom

Reply

Marsh Posté le 21-05-2009 à 23:08:01   

Reply

Marsh Posté le 21-05-2009 à 23:35:12    

Chez moi (Excel 97), ton code fonctionne...
Tes cellules ne seraient pas fusionnées par hasard ? As tu essayé avec un autre fichier ?


Message édité par otobox le 21-05-2009 à 23:36:46

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 22-05-2009 à 16:39:42    

Essaies avec interior.colorindex=N° de ta couleur

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed