Texte dans la Cellule A partir de La Couleur
djca
Messages postés
32
Statut
Membre
-
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
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
-
Sub Essai_Condition_Couleur()
'
If ActiveCell.Interior.Color = 255 Then
ActiveCell.Formula = "Rouge"
End If
End Sub -
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
