mise en page conditionelle spéciale...

[SABER]

bonjour a tous,

j'aimerais savoir sil est possible de faire une mise en page conditionelle basé sur le changement de couleur...

je m'explique:
j'ai une feuille excel avec plusieur valeur
et j'aimerais les regrouper avec des couleurs
pour mieu les différencier
sachant que le fichier est trié, je veux qu'excel change de couleur a chaque fois qu'il rencontre une valeur différente

exp:

paris ---> vert
paris ---> vert
paris ---> vert
versailles ---> rouge
versailles ---> rouge
ivry ---> bleu
ivry ---> bleu
ivry ---> bleu
rouen ---> jaune
nice ---> vert
nice ---> vert

voilà, est ce que qqun sait comment faire ?
ps: les valeurs ne me sont pas connues a l'avance
je ne sais donc pas s'il yu'aura paris nice ivry ou autre, je ne peux pas definir ça dés le debut en attribuant une couleur par ville
il faut plutot agir par position
la premiére valeur = vert
puis au premier changement je passe au rouge ...

voilà, j'attends vos reponses...
merci

 

[saber]

c'est encore moi

je me suis dis qu'un ptit fichier joint ne serait pas de trop... vu la spécificité de la demande.

voilà, vous trouverez un ptit exemple de ce que je voudrais avoir...
merci

 

[sigma]

saber, le forum

j'ai eu besoin de quasiment la même chose il y a peu et Hervé m'avait aidé avec ce petit bout de code.Si çà peut t'aller

Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Byte

If Not Application.Intersect(Target, Range('b5:L13')) Is Nothing Then
Select Case UCase(Target.Text)
Case 'paris': couleur = 19
Case 'versailles': couleur = 35
Case 'rouen': couleur = 15
Case 'nice': couleur = 39
Case 'nantes': couleur = 18
End Select

Target.Interior.ColorIndex = couleur
End If

End Sub

A+

 

[saber]

merci mon pote, mais je t'avoue que j'y comprend rien !!

c'est qui hérvé, c'est peut etre a lui que je devrais m'adresser ...

je le met ou ce bout de code ?
désolé de faire l'inculte,mais j'y connais vraiment rien ...

merci

 

[carlos]

Bonsoir

g testé la macro de Sigma mais elle refuse de fonctionner sur ce fichier joint .???

Si qqu'un a une idée

Merci [file name=couleurselonvaleurtexte.zip size=6979]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleurselonvaleurtexte.zip[/file]

 

[andré]

Salut saber,

Si tu peux te satisfaire de trois couleurs différentes (au lieu de quatre) une petite colonne supplémentaire (que tu peux masquer) et une mise en foirme conditionnelle devrait faire ton affaire.

Fais signe si cela t(interesse.

Ândré.

 

[carlos]

salut André

au contraire cette macro m'interessait pour son coté multicouleur 'sans limite' ..

Merci quand meme

 

[KIM]

Bonjour le forum, Bonjour à vous tous,

J'ai retrouvé ce code, si ça peut vous etre utile,
A l'adapter selon vos besoins.

Une solution de Gaetan Mourmant
copiée du site du disciplus.simplex.free.fr

Mise en forme conditionnelle à plus de 3 couleurs
Comment dépasser la limite des 3 couleurs pour la mise en forme conditionnelle ?
Par Vba : Double clic sur la feuille concernée et y mettre cette macro

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case UCase(Target) 'UCASE = convertion de la frappe en
majuscule
Case 'ZAZA'
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case 'ZEZETTE'
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case 'JEAN-PAUL'
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case 'PAUL'
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Select

End Sub

Bon courage
KIM

 

[carlos]

Bonsoir

Merci Kim pour ta proposition , elle fonctionne bien.

Mais il faut double cliquer sur la cellule pour voir apparaitre la couleur.

Est il possible que cette couleur apparaisse des que le mot est saisie ou que j'ai cliqué sur la touche entrée ?

Merci

 

[KIM]

Bonjour,

A essayer avec
Private Sub Worksheet_Change
au lieu de
Private Sub Worksheet_SelectionChange

A valider par la fleche de validation a cote de la barre d'entree des formules fx

Bon courage
KIM

 

[sigma]

saber, carlos, kim,andré, le forum.

effectivement ça ne fonctionnait pas j'avais oublié les majuscules , voila le bout de code qui fonctionne

Private Sub Worksheet_Change(ByVal Target As Range)
Dim couleur As Byte

If Not Application.Intersect(Target, Range('A1:L50')) Is Nothing Then
Select Case UCase(Target.Text)
Case 'PARIS': couleur = 19
Case 'NANTES': couleur = 35
Case 'ROUEN': couleur = 15
Case 'EVRY': couleur = 39
Case 'VERSAILLES': couleur = 18
End Select

Target.Interior.ColorIndex = couleur
End If

End Sub

petite procédure pour saber

1 tu copies ce code
2 tu vas dans ta feuille
3 tu clic droit et tu choisis 'visualiser le code'
4 tu colles ce code sur l'écran de droite
5 c'est terminé, ça fonctionne

si tu désires changer les couleurs tu changes les numéros (je crois qu'il y a 56 possibilités

si tu veux changer le nom des villes, il te suffit d'écrire entre les guillemets

dernière info j'ai défini la plage (A1:L50) (dans le haut du code) tu peux bien sur l'élargir à ta guise.

je te mets le fichier joint pour t'aider.
je traîne dans le coin alors n'hésite pas si tu veux d'autres informations

A+ [file name=couleurselonvaleurtexte_20050517083534.zip size=7157]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleurselonvaleurtexte_20050517083534.zip[/file]

 

[carlos]

Bonjour Kim,andré, le forum et Sigma

Merci pour ton code c'est exactement ce que je voulais.

@ +

 

[sigma]

a ton service Carlos

 

[saber]

oui, 3 couleurs, et oui pour la colonne caché...
enfait je m'enfiche du nombre de couleur
on peut méme en utiliser que 2...
je veux juste qu'il alterne a chaque fois que le groupe change...
et je veux aussi qu'il applique cette méme couleur sur toute la ligne.



voilà, un exemple:
PARIS rouge
PARIS rouge
PARIS rouge
PARIS rouge
LILLE bleu
LILLE bleu
NANTES rouge
NANTES rouge
NANTES rouge


enfait, je ne peux pas affecter une couleur a la ville vu que je ne connais pas toutes les villes sur lesquels je travaille
je veux aussi appliqué cette mise en page sur d'autre exemple
donc, j'aimerais savoir s'il est possible de l'appliquer indépendament du contenu : des viles des rue, des telephones ...

je veux juste que ça alterne quand la valeur change ...

voilà, j'espére que c'est assez clair.

merci a vous tous
j'attends de vos nouvelles

 

[saber]

oui, 3 couleurs, et oui pour la colonne caché...
enfait je m'enfiche du nombre de couleur
on peut méme en utiliser que 2...
je veux juste qu'il alterne a chaque fois que le groupe change...
et je veux aussi qu'il applique cette méme couleur sur toute la ligne.



voilà, un exemple:
PARIS rouge
PARIS rouge
PARIS rouge
PARIS rouge
LILLE bleu
LILLE bleu
NANTES rouge
NANTES rouge
NANTES rouge


enfait, je ne peux pas affecter une couleur a la ville vu que je ne connais pas toutes les villes sur lesquels je travaille
je veux aussi appliqué cette mise en page sur d'autre exemple
donc, j'aimerais savoir s'il est possible de l'appliquer indépendament du contenu : des viles des rue, des telephones ...

je veux juste que ça alterne quand la valeur change ...

voilà, j'espére que c'est assez clair.

merci a vous tous
j'attends de vos nouvelles