macro vba couleur

Version imprimable

macro vba couleur

Bonjour,

J'ai un petit problème dans l'élaboration d'une macro. J'explique : Je voudrais faire défiler toutes les cases de la colonnes 10, et dès que une case verte ( par exemple ) apparait, sa valeur est copier dans un autre onglet. J'aimerais que les valeurs des cases vertes soient copier les unes en dessous des autres ds ce nouvel onglet .

Pour ceci , j'ai écris cette macro qui ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub essai() ColorFond=Sheets(1).Cells(3,16) c=0 For i = 1 To 3000 If Sheets(1).Cells(i, 10).Interior.ColorIndex = Sheets(1).ColorFond.Interior.ColorIndex Then c=c+1 Sheets(2).Cells(c,3).Value=Sheets(1).Cells(i,10).Value End If Next End Sub
Ici la case témoin est la Cells(3,16) qui est verte.
La macro ne marche pas ( objet manquant à la ligne du if ????), mais je ne vois pas ou est l'erreur

Merci d'avance de votre aide

heuh!!!

bonjour

deja quand ti utilise des variables a incrementation dans une boucle le mieux c'est de les declarer au depart

""dim i as variant"" au debut de ta sub
sinon i reste a zero tout du moins valeurnull *le nombre de fois que la boucle a tourné

et ici :"Sheets(1).ColorFond.Interior.ColorIndex c'est faux

c'est plutot:sheets(1).cells(3.6).interior.color
allez on reprend tout !!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub essai() dim c,i , as variant,ColorFond as long ColorFond=Sheets(1).Cells(3,16).interior.color c=0 For i = 1 To 3000 If Sheets(1).Cells(i, 10).Interior.Color = Colorfond then c=c+1 Sheets(2).Cells(c,3).Value=Sheets(1).Cells(i,10).Value End If Next End Sub
je pense que ca marchera mieux
en fait au depart tu disais que que colorfond est =a la celule et ben ca ne se dit pas
on dit colorfond est = a sa couleur ou son texte ou sa taille ect...

au plaisir

Bonjour,

Essayez avec votre code modifié

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub essai()
'Dim ColorFond As Range
 
Set ColorFond = Sheets(1).Cells(3, 16) 'utiliser Set pour une affectation à un objet
c = 0
 
For i = 1 To 3000
 
If Sheets(1).Cells(i, 10).Interior.ColorIndex = ColorFond.Interior.ColorIndex Then 'ColorFond EST LA CELLULE Cells(3, 16) DE LA FEUILLE Sheets(1)
c = c + 1
Sheets(2).Cells(c, 3).Value = Sheets(1).Cells(i, 10).Value
End If
 
Next
 
End Sub

Cordialement.

PMO

03/07/2010, 22h36
poilou2607

Merci!
Tout marche parfaitement

la deuxieme proposition bien quelle fonctionne parfaitement bien
rend la variable colorfond inutile puisque tu la recompare dans ta macro
c'est beaucoup pedaler pour rien a mon avis

surtout que dans ce cas la variable devien object puisqu'elle represente la celule de reference elle meme
donc resultat tu dis en gros

variable"colorfond=la celule de reference

si la couleur celule (i)dans la boucleest = a lacouleurde la celule de reference blablabla

tant cas faire
tu fais la meme chose sans variables
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub essai() c = 0 For i = 1 To 3000 If Sheets(1).Cells(i, 10).Interior.ColorIndex =Sheets(1).Cells(3, 16).Interior.ColorIndex Then 'ColorFond EST LA CELLULE Cells(3, 16) DE LA FEUILLE Sheets(1) c = c + 1 Sheets(2).Cells(c, 3).Value = Sheets(1).Cells(i, 10).Value End If Next End Sub
enfin tout cas pour t'expliquer que selon tes besoins il est utiles de savoir le traitement futur des cellule avant de le faire ca t evitera d'ecrire du code pour rien

sans vouloir offencer PMO2017 bien sur

au plaisir

n'oublie pas le resolu si ca te conviens