Discussion :

[poilou2607]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

Bonjour,

Essayez avec votre code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[poilou2607]

Merci!
Tout marche parfaitement

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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