Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 06/02/2011, 17h05   #1
Invité régulier
 
Inscription : décembre 2006
Messages : 57
Détails du profil
Informations forums :
Inscription : décembre 2006
Messages : 57
Points : 9
Points : 9
Par défaut Couleur en fonction d'une valeur

Bonjour,

Dans ma table de donnée j'ai une colonne contenant des numéros de téléphone.

Je voudrais que ttes les lignes contenant le même numéro de téléphone soit coloré de la même façon et bien entendu que chaque numéro différent soit coloré d'une façon différente.
Je ne connais pas à l'avance les numéros de téléphone et le nombre de numéro différent que je vais rencontrer.

Je m'étais d'accord tourné vers la fonctionnalité 'Mise en forme conditionnelle', mais elle ne semble pas être adaptée.

Avez-vous une idée ?

Merci à tous.
clao260 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/02/2011, 17h32   #2
Candidat au titre de Membre du Club
 
Inscription : décembre 2010
Messages : 23
Détails du profil
Informations forums :
Inscription : décembre 2010
Messages : 23
Points : 12
Points : 12
Tu vas dans le menu des macros (alt f11).
Tu créés un nouveau module dans lequel tu rentres le code suivant :
Code :
1
2
3
Sub couleur()
If ActiveCell.Value = "02158568" Then ActiveCell.EntireRow.Interior.ColorIndex = 6
End Sub
donc tu devras créer pour chaque numéro de téléphone une ligne de code (en fait tu devras dupliquer la ligne précédente en changeant le numéro de tél et la couleur de ta ligne [6 dans mon exemple])

enfin, tu créés le module suivant dans ton workbook (toujours dans le menu des macros), de façon à automatiser la macro :

Code :
1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call couleur
End Sub
Cette solution marche très bien. Je l'ai testée.

Cordialement
marcoole est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 09h44   #3
Membre Expert
 
Avatar de Daranc
 
Inscription : janvier 2007
Messages : 1 166
Détails du profil
Informations forums :
Inscription : janvier 2007
Messages : 1 166
Points : 1 244
Points : 1 244
quel version d'excel ? jusqu'a 2003 27 couleurs disponibles
je te donne ce truc
dans le code feuille
Code :
1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 5).Value = ActiveCell.Row
End Sub
dans la cellule G1
et la mise en forme de la colonne C (les numéros)
tous les numéros égaux à la cellule active seront mise en forme
__________________
Cordialement
Daranc
Daranc est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h45.


 
 
 
 
Partenaires

Hébergement Web