Sur la cellule A1, je peux avoir une valeur qui peut etre : 1,2,3,4, etc..
je souhaiterai donner une couleur suivant chaque nombre correspondant. a la
cellule A1.
ex: 1= rouge
2= bleu etc...
Mais avec la forme conditionnelle le maxi est 3 formes d'identitees.
Merci ,de me donner le modele de la macro.
Merci de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Papyty
Salut @ Tous, moreno charles a écrit:
Mon probleme est le suivant:
Tu as plusieur réponses dans ton fil d'hier avec entre autre
En selectionnant n'importe quels cellules avant ,
Sub ColorIn() For Each Cel In Selection If Cel > 0 And Cel < 57 Then Range(Cel.Address).Interior.ColorIndex = Cel Else Range(Cel.Address).Interior.ColorIndex = xlNone End If Next End Sub
-- @+ Thierry
Salut @ Tous,
moreno charles a écrit:
Mon probleme est le suivant:
Tu as plusieur réponses dans ton fil d'hier
avec entre autre
En selectionnant n'importe quels cellules avant ,
Sub ColorIn()
For Each Cel In Selection
If Cel > 0 And Cel < 57 Then
Range(Cel.Address).Interior.ColorIndex = Cel
Else
Range(Cel.Address).Interior.ColorIndex = xlNone
End If
Next
End Sub
Tu as plusieur réponses dans ton fil d'hier avec entre autre
En selectionnant n'importe quels cellules avant ,
Sub ColorIn() For Each Cel In Selection If Cel > 0 And Cel < 57 Then Range(Cel.Address).Interior.ColorIndex = Cel Else Range(Cel.Address).Interior.ColorIndex = xlNone End If Next End Sub
-- @+ Thierry
Papyty
Salut @ Tous, moreno charles a écrit:
Sur la cellule A1, je peux avoir une valeur qui peut etre : 1,2,3,4, etc..
je souhaiterai donner une couleur suivant chaque nombre correspondant. a la
cellule A1.
Excuse moi effectivement la question n'est pas la même. Dans le module de la feuille concernée:
Private Sub Worksheet_Calculate() If [A1] > 0 And [A1] < 57 Then [A1].Interior.ColorIndex = [A1] Else [A1].Interior.ColorIndex = xlNone End If End Sub -- @+ Thierry
Salut @ Tous,
moreno charles a écrit:
Sur la cellule A1, je peux avoir une valeur qui peut etre : 1,2,3,4,
etc..
je souhaiterai donner une couleur suivant chaque nombre correspondant. a
la
cellule A1.
Excuse moi effectivement la question n'est pas la même.
Dans le module de la feuille concernée:
Private Sub Worksheet_Calculate()
If [A1] > 0 And [A1] < 57 Then
[A1].Interior.ColorIndex = [A1]
Else
[A1].Interior.ColorIndex = xlNone
End If
End Sub
--
@+
Thierry
Sur la cellule A1, je peux avoir une valeur qui peut etre : 1,2,3,4, etc..
je souhaiterai donner une couleur suivant chaque nombre correspondant. a la
cellule A1.
Excuse moi effectivement la question n'est pas la même. Dans le module de la feuille concernée:
Private Sub Worksheet_Calculate() If [A1] > 0 And [A1] < 57 Then [A1].Interior.ColorIndex = [A1] Else [A1].Interior.ColorIndex = xlNone End If End Sub -- @+ Thierry
