Macro 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 :
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(2,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
Bonsoir
Ta variable est mal définie
Sub essai()
ColorFond = Sheets(1).Cells(3, 16).Interior.ColorIndex
c = 0
For i = 1 To 3000
If Sheets(1).Cells(i, 10).Interior.ColorIndex = ColorFond Then
c = c + 1
Sheets(2).Cells(c, 3).Value = Sheets(1).Cells(i, 10).Value
End If
Next
End Subou
Sub essai()
Dim i As Integer
c = 0
For i = 1 To 3000
If Sheets(1).Cells(i, 10).Interior.ColorIndex = Sheets(1).[P3].Interior.ColorIndex Then
c = c + 1
Sheets(2).Cells(c, 3).Value = Sheets(1).Cells(i, 10).Value
End If
Next
End SubAmicalement
Nad
Merci!
ca marche parfaitement