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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Lire la propriété Interior.Color d'une cellule

tetdepom

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 :

Sub calcul_rouge()
Dim i As Long, valeur As Double
valeur = 0
i = 6
Do While Cells(i, 1).Value <> ""
If Cells(i, 1).Interior.Color = RGB(255, 0, 0) Then
valeur = valeur + Cells(i, 3).Value
End If
i = i + 1
Loop
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

Publicité

otobox

Maison fondée en 2005

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

e2prom

Essaies avec interior.colorindex=N° de ta couleur

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[JAVA] Lire une archive avec Java	Detecter changement contenu cellule
Sauvegarder un seul onglet (VBA) Excel	Lecture d'une propriété CSS depuis Javascript
[VBA] Problème double macro	Récupérer la première ligne d'une cellule
[VBA] Collage format date	Problème fusion cellule tableau html
[VBA] : problème d'affichage (Image.Visible = False ou true)	Importer XML sous ACCESS via VBA
Plus de sujets relatifs à : [VBA] Lire la propriété Interior.Color d'une cellule

Page générée en 0.046 secondes