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