Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel forme conditionnelle

forme conditionnelle

3 réponses
Avatar
moreno charles
bonjour,

Mon probleme est le suivant:

depuis la cellule A1, a A10 je numerote de 1 a 10 ,
je souhaiterai donner une couleur suivant chaque cellule correspondante.
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.

Le chiffre des cellules peut etre dans un ordre aleatoire.

Merci de votre aide.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Lepage Stephane
Bonjour,
Dans un module VBA
tu écris
Sub insercolor()
For i = 1 To 56
ActiveSheet.Cells(i, 1).Interior.ColorIndex = i
Next i


End Sub
puis tu appelle depuis la feuille concernée
Outils Macros insercolor Executer

Cordialement

--
Steph

"moreno charles" a écrit dans le message de
news:3fc0f021$0$9304$
bonjour,

Mon probleme est le suivant:

depuis la cellule A1, a A10 je numerote de 1 a 10 ,
je souhaiterai donner une couleur suivant chaque cellule correspondante.
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.

Le chiffre des cellules peut etre dans un ordre aleatoire.

Merci de votre aide.




Avatar
Lepage Stephane
Sinon ColorIndex ne tolère que 56 couleurs
Donc on peut aussi utiliser une variable correspondant à la valeur de la
cellule:
---
macell¬tivesheet.cells(i,1)
maval=macell.value
macell.interior.colorindex=maval
---
Seulement attention il faut saisir un nombre entier compris entre 1 et 56.

--
Steph

"Lepage Stephane" a écrit dans le message de
news:3fc0f4e6$0$17090$
Bonjour,
Dans un module VBA
tu écris
Sub insercolor()
For i = 1 To 56
ActiveSheet.Cells(i, 1).Interior.ColorIndex = i
Next i


End Sub
puis tu appelle depuis la feuille concernée
Outils Macros insercolor Executer

Cordialement

--
Steph

"moreno charles" a écrit dans le message de
news:3fc0f021$0$9304$
bonjour,

Mon probleme est le suivant:

depuis la cellule A1, a A10 je numerote de 1 a 10 ,
je souhaiterai donner une couleur suivant chaque cellule
correspondante.


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.

Le chiffre des cellules peut etre dans un ordre aleatoire.

Merci de votre aide.








Avatar
Papyty
Salut @ Tous,
moreno charles a écrit:
depuis la cellule A1, a A10 je numerote de 1 a 10 ,
je souhaiterai donner une couleur suivant chaque cellule correspondante.
ex: 1= rouge
2= bleu etc...


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