Bonjour à tous. Comme dit dans le titre, le recherche dans Excel 2007 le moyen d'affecter un chiffre (disons le chiffre 1) à une couleur. Quelqu'un a t-il la solution? J'accepte le VBA..
Merci

Hello,

Si cela ne représente que quelques cas (genre le 1, le 2 et le 3) alors la "mise en forme conditionnelle" peut largement te suffire.

Fait une recherche dans l'aide d'Excel de ceci "Mise en forme conditionnelle" tu devrais trouver ton bonheur.

Si par contre on parle de d'un grand nombre de valeurs, le VBA va s'imposer.

Tu peux alors faire quelquechose comme ca :

Public Sub test()

Dim Ligne As Integer
Dim Rosaces(9) As Long
Dim CtrlDiff As String
CtrlDiff = "" ' Variable de contrôle de changement de valeur
Ligne = 1 ' début de ta liste
' Chargement des couleurs de la rosace
Rosaces(0) = 1
Rosaces(1) = 2
Rosaces(2) = 3
Rosaces(3) = 4
Rosaces(4) = 5
Rosaces(5) = 6
Rosaces(6) = 7
Rosaces(7) = 8
Rosaces(8) = 9

' je fais un controle sur le nombre de caractères présents dans la cellule en cours, si supérieur a 0 alors c'est qu'il y a quelque chose...
Do While Len(Cells(Ligne, 1)) > 0

If Not CtrlDiff = CStr(Cells(Ligne, 1)) Then
'
CtrlDiff = CStr(Cells(Ligne, 1))
Rosaces(0) = Rosaces(0) + 1
If Rosaces(0) = 9 Then Rosaces(0) = 1
Cells(Ligne, 1).Font.ColorIndex = Rosaces(Rosaces(0))
End If

Ligne = Ligne + 1
Loop

End Sub

Hello,

Si cela ne représente que quelques cas (genre le 1, le 2 et le 3) alors la "mise en forme conditionnelle" peut largement te suffire.

Fait une recherche dans l'aide d'Excel de ceci "Mise en forme conditionnelle" tu devrais trouver ton bonheur.

Si par contre on parle de d'un grand nombre de valeurs, le VBA va s'imposer.

Tu peux alors faire quelquechose comme ca :

Public Sub test()

Dim Ligne As Integer
Dim Rosaces(9) As Long
Dim CtrlDiff As String
CtrlDiff = "" ' Variable de contrôle de changement de valeur
Ligne = 1 ' début de ta liste
' Chargement des couleurs de la rosace
Rosaces(0) = 1
Rosaces(1) = 2
Rosaces(2) = 3
Rosaces(3) = 4
Rosaces(4) = 5
Rosaces(5) = 6
Rosaces(6) = 7
Rosaces(7) = 8
Rosaces(8) = 9

' je fais un controle sur le nombre de caractères présents dans la cellule en cours, si supérieur a 0 alors c'est qu'il y a quelque chose...
Do While Len(Cells(Ligne, 1)) > 0

If Not CtrlDiff = CStr(Cells(Ligne, 1)) Then
' je change de couleur suivant une rosace prédéfinie si la valeur de ma cellule a changé d'une ligne a l'autre
CtrlDiff = CStr(Cells(Ligne, 1))
Rosaces(0) = Rosaces(0) + 1
If Rosaces(0) = 9 Then Rosaces(0) = 1
Cells(Ligne, 1).Font.ColorIndex = Rosaces(Rosaces(0))
End If

Ligne = Ligne + 1
Loop

End Sub

A+
Nico

(Désolé pour le double post)

Merci nikko45, ta réponse est clair et argumenté c'est super sympa. Seulement je ne souhaite pas affecter une couleur à un chiffre (donc utiliser la mise en forme conditionnelle) mais l'inverse, c'est à dire un chiffre à une couleur. Par exemple, une cellule ayant un fond vert, lui affecter une valeur de 1 dans une autres cellule sinon 0. Pour compléter mon exemple, si les cellule [A1;A2]=[vert;vide], alors en rentrant la formule que je cherche sur [B1;B2] cela me donnera [1;0]. J’espère avoir été clair sur ma recherche. Merci à toi

Ok,

Dans ce cas, cela devrait etre mieux....
(a mettre dans le code de la feuille concernée !)

Dim Rosaces() As Long
Dim NBColor As Long
Dim LastRow As Integer
Dim LastCol As Integer

Private Sub Worksheet_Activate()

' On construit la table de comparaison couleur/valeur
NBColor = 9
ReDim Rosaces(NBColor)

Rosaces(0) = 10
Rosaces(1) = 20
Rosaces(2) = 30
Rosaces(3) = 40
Rosaces(4) = 50
Rosaces(5) = 60
Rosaces(6) = 70
Rosaces(7) = 80
Rosaces(8) = 90

' on enregistre les dernières positions du curseur
LastRow = 1
LastCol = 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Cette ligne c'est juste pour le cas ou la couleur utilisée est hors-contexte
' Pas beau mais rapide pour cet exemple, a modifier avec des controles plus propres
On Error Resume Next

' Je viens de changer de cellule, donc je mets a jour la cellule ou j'étais AVANT
Cells(LastRow, LastCol).Value = Rosaces(Cells(LastRow, LastCol).Font.ColorIndex)

' J'enregistre ma position pour la prochaine MAJ
LastRow = ActiveCell.Row
LastCol = ActiveCell.Column

End Sub

A++
Nico

MERCI BEAUCOUP

Désolé du redérangement mais je ne sais maintenant plus quoi faire avec ton prog.. Comment je l'utilise?