Mise en forme conditionnelle
Résolu
lagodille
Messages postés
99
Date d'inscription
Statut
Membre
Dernière intervention
-
lagodille Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
lagodille Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
il me semble que la mise en forme conditionnelle est limitée à 3 mais ne serait il pas possible via une macro de la portée à 6 par exemple ?
merci pour votre aide
cdlt
il me semble que la mise en forme conditionnelle est limitée à 3 mais ne serait il pas possible via une macro de la portée à 6 par exemple ?
merci pour votre aide
cdlt
A voir également:
- Mise en forme conditionnelle
- Mise en forme conditionnelle excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Excel liste déroulante conditionnelle - Guide
5 réponses
Bonjour,
Voici l'exemple d'une macro
Sub formatconditionnelle()
For Each f In [c4:c15] 'plage a traitée
f.Select
ActiveCell.Interior.ColorIndex = xlNone
If f = 25 Then
ActiveCell.Interior.ColorIndex = 6 'Jaune
Else
If f = 65 Then
ActiveCell.Interior.ColorIndex = 15 'gris
Else
If f = 800 Then
ActiveCell.Interior.ColorIndex = 28 'bleu clair
Else
If f = 98 Then
ActiveCell.Interior.ColorIndex = 12 'vert
Else
If f = 32 Then
ActiveCell.Interior.ColorIndex = 17 'violet
Else
If f = 478 Then
ActiveCell.Interior.ColorIndex = 3 'rouge
End If
End If
End If
End If
End If
End If
Next
End Sub
Utilsfr
http://utilsfr.new.fr
Applications, Utilitaires, Macros, Fonctions, Formulaires, Graphiques Excel
Voici l'exemple d'une macro
Sub formatconditionnelle()
For Each f In [c4:c15] 'plage a traitée
f.Select
ActiveCell.Interior.ColorIndex = xlNone
If f = 25 Then
ActiveCell.Interior.ColorIndex = 6 'Jaune
Else
If f = 65 Then
ActiveCell.Interior.ColorIndex = 15 'gris
Else
If f = 800 Then
ActiveCell.Interior.ColorIndex = 28 'bleu clair
Else
If f = 98 Then
ActiveCell.Interior.ColorIndex = 12 'vert
Else
If f = 32 Then
ActiveCell.Interior.ColorIndex = 17 'violet
Else
If f = 478 Then
ActiveCell.Interior.ColorIndex = 3 'rouge
End If
End If
End If
End If
End If
End If
Next
End Sub
Utilsfr
http://utilsfr.new.fr
Applications, Utilitaires, Macros, Fonctions, Formulaires, Graphiques Excel
En fait mes conditions sont :
Si j'écris "toto" dans la case, la case se colore en gris clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tata" dans la case, la case se colore en vert clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tutu" dans la case, la case se colore en mauve clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "titi" dans la case, la case se colore en bleu clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tyty" dans la case, la case se colore en orange clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tété" dans la case, la case se colore en jaune clair et me crée un lien hypertexte vers un fichier pdf sécifique,
j'ai ainsi 6 colonnes à renseigner et je peux me retrouver avec 6 "toto" comme je peux avoir 6 noms différents
ai je été explicite ?
merci
cdlt
Si j'écris "toto" dans la case, la case se colore en gris clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tata" dans la case, la case se colore en vert clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tutu" dans la case, la case se colore en mauve clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "titi" dans la case, la case se colore en bleu clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tyty" dans la case, la case se colore en orange clair et me crée un lien hypertexte vers un fichier pdf sécifique,
Si j'écris "tété" dans la case, la case se colore en jaune clair et me crée un lien hypertexte vers un fichier pdf sécifique,
j'ai ainsi 6 colonnes à renseigner et je peux me retrouver avec 6 "toto" comme je peux avoir 6 noms différents
ai je été explicite ?
merci
cdlt
bonjour
voici la macro
Sub contionnel()
Application.ScreenUpdating = False
For Each cellule In [a1:f500] 'plage a traitée
cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With cellule
Select Case .Value
Case Is = "toto"
ActiveCell.Interior.ColorIndex = 48
Case Is = "tata"
ActiveCell.Interior.ColorIndex = 4
Case Is = "tutu"
ActiveCell.Interior.ColorIndex = 39
Case Is = "titi"
ActiveCell.Interior.ColorIndex = 28
Case Is = "tyty"
ActiveCell.Interior.ColorIndex = 44
Case Is = "tété"
ActiveCell.Interior.ColorIndex = 36
End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
End Sub
voici la macro
Sub contionnel()
Application.ScreenUpdating = False
For Each cellule In [a1:f500] 'plage a traitée
cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With cellule
Select Case .Value
Case Is = "toto"
ActiveCell.Interior.ColorIndex = 48
Case Is = "tata"
ActiveCell.Interior.ColorIndex = 4
Case Is = "tutu"
ActiveCell.Interior.ColorIndex = 39
Case Is = "titi"
ActiveCell.Interior.ColorIndex = 28
Case Is = "tyty"
ActiveCell.Interior.ColorIndex = 44
Case Is = "tété"
ActiveCell.Interior.ColorIndex = 36
End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
End Sub
bonsoir,
merci c'est parfait seulement après je crée le lien hypertexte et là je suis confronté à un petit souci :
quand on crée un lien hypertexte par défaut on trouve une écriture bleu et soulignée.
Je préfèrerai une écriture noire en gras et non soulignée EST CE possible ?
comment faire ?
merci pour ton aide
cdlt
merci c'est parfait seulement après je crée le lien hypertexte et là je suis confronté à un petit souci :
quand on crée un lien hypertexte par défaut on trouve une écriture bleu et soulignée.
Je préfèrerai une écriture noire en gras et non soulignée EST CE possible ?
comment faire ?
merci pour ton aide
cdlt
Je pense que pour la mise en forme des liens Hypertexte, il faut aller dans l'option internet du panneau d'affichage Windows
Onglet Général puis couleur
Onglet Général puis couleur
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
Voici la solution
Définissez le jeu de couleurs dans Excel
1. Dans le menu Format, cliquez sur Style.
2. Dans la liste Nom du style, cliquez sur Lien hypertexte ou Lien hypertexte visité.
REMARQUE : pour accéder à ces options, vous devez insérer un lien hypertexte ou un lien hypertexte visités dans le classeur.
3. Cliquez sur Modifier et puis cliquez sur l'onglet Police.
4. Sélectionnez une couleur dans la liste Couleur.
Voici la solution
Définissez le jeu de couleurs dans Excel
1. Dans le menu Format, cliquez sur Style.
2. Dans la liste Nom du style, cliquez sur Lien hypertexte ou Lien hypertexte visité.
REMARQUE : pour accéder à ces options, vous devez insérer un lien hypertexte ou un lien hypertexte visités dans le classeur.
3. Cliquez sur Modifier et puis cliquez sur l'onglet Police.
4. Sélectionnez une couleur dans la liste Couleur.