Colorier des cellules en fonction des resulta
bhoothnath
Messages postés
1
Statut
Membre
-
wilfried_42 Messages postés 912 Statut Contributeur -
wilfried_42 Messages postés 912 Statut Contributeur -
Bonjour, je n'ai pas réussi à trouver ce que je cherchais c'est pourquoi je pose la question suivante:
Comment colorier une cellules en fonction de sa valeur?
ex: j'ai 30 numeros qui sont disposé dans un ordre aléatoire, et j'aimerai attribuer à chaque numéro une couleur afin d'obtenir un féstival de couleur sur le classeur, je crois qu'il faut passer par une macro.
Merci de votre aide!
Comment colorier une cellules en fonction de sa valeur?
ex: j'ai 30 numeros qui sont disposé dans un ordre aléatoire, et j'aimerai attribuer à chaque numéro une couleur afin d'obtenir un féstival de couleur sur le classeur, je crois qu'il faut passer par une macro.
Merci de votre aide!
A voir également:
- Colorier des cellules en fonction des resulta
- Fonction si et - Guide
- Verrouiller des cellules excel - Guide
- Excel additionner plusieurs cellules - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Fonction miroir - Guide
8 réponses
bonjour, un petit fichier pour savoir si tes cellules sont sur une plage bien precise( tableau de 6x5 per exemple, ou disperser dans la feuille... merci
Bonjour,
Tu vas dans outils > Macro > Visual Basic Editor. La macro s'execute lorsque tu rentre un numéro. Double clic sur la feuille 1 puis:
Normalement ça marche ;)
Tu vas dans outils > Macro > Visual Basic Editor. La macro s'execute lorsque tu rentre un numéro. Double clic sur la feuille 1 puis:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage, Cellule As Range
If Target.Cells.Count < 2 Then ' Si on selectionne qu'une cellule
'Définit la plage de référence
Set Plage = Range("A1:B10") 'plage de cellules ou les couleurs peuvent changer
Set Cellule = Range(Target.Address)' Cellule selectionnée
If Cellule <> "" Then
If Not Intersect(Plage, Cellule) Is Nothing Then
'condition 1
If Cellule = 1 Then
Cellule.Interior.ColorIndex = 1 'le 1 c'est du noir
End If
'condition 2
If Cellule = 2 Then
Cellule.Interior.ColorIndex = 5 'le 5 c'est une autre couleur
End If
(...) ' Tu mets tes 30 conditions
End If
Else
Cellule.Interior.ColorIndex = xlNone
End If
End Sub
Normalement ça marche ;)
Je m'attendais pas à des réponses aussi rapides!! Merci a vous!!!! Capit c'est exactement sa que je cherchais. Je vais le rentrer directement dans openoffice
bonjour
au dela de 3 mises en forme, il faut effectivement passer par une macro, elle existe
voici un fichier avec plein d'exemples de ce que peut faire la macro fournie
mfrc multi-format, images, ssons, commentaires, seule la partie couleur t'interresse m'enfin je ne peux couper le fichier
c'est une macro complementaire..... MFC multiples
bonne journée
au dela de 3 mises en forme, il faut effectivement passer par une macro, elle existe
voici un fichier avec plein d'exemples de ce que peut faire la macro fournie
mfrc multi-format, images, ssons, commentaires, seule la partie couleur t'interresse m'enfin je ne peux couper le fichier
c'est une macro complementaire..... MFC multiples
bonne journée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je m'attendais pas à des réponses aussi rapides!! MErci a vous!!!! Capit c'est exactement sa que je cherchais. Je vais le rentrer directement dans openoffice
