Texte dans la Cellule A partir de La Couleur

djca Messages postés 32 Statut Membre -  
djca Messages postés 32 Statut Membre -
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
A voir également:

2 réponses

djca Messages postés 32 Statut Membre 5
 
Sub Essai_Condition_Couleur()
'
If ActiveCell.Interior.Color = 255 Then
ActiveCell.Formula = "Rouge"
End If

End Sub
0
djca Messages postés 32 Statut Membre 5
 
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