Texte dans la Cellule A partir de La Couleur

Fermé
djca Messages postés 26 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 15 juin 2014 - 4 avril 2010 à 19:42
djca Messages postés 26 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 15 juin 2014 - 5 avril 2010 à 17:14
Bonjour
Peux t on écrire une macro qui écrirait un texte comme "Rouge" si la couleur de fond est rouge , "Vert" si vert
et comment créer une boucle pour scanner les cellules de A1 à F30 et pour marquer "Rouge" ou "Vert" ou "" pour chaque cellule
cdt
merci d'avance

2 réponses

djca Messages postés 26 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 15 juin 2014 5
5 avril 2010 à 12:58
Sub Essai_Condition_Couleur()
'
If ActiveCell.Interior.Color = 255 Then
ActiveCell.Formula = "Rouge"
End If

End Sub
0
djca Messages postés 26 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 15 juin 2014 5
5 avril 2010 à 17:14
sub couleur ()
Dim i As Long, NombreLigne As Long
NombreLigne = 23
Range("E3").Select
For i = 1 To NombreLigne
Essai_Condition_Couleur
ActiveCell.Offset(1, 0).Range("A1").Select
Next i

End Sub
0