Excel mise en forme conditionnele Résolu

Question

Bonjours à tous, cela fait plusieur jour que je me prend la t^te pour faire plus de 3 mise en forme conditionnelle
Voila mon pb jai ds une m^m colone six intitulé que je veu en six couleur différentes
Pd c 3 jours jai vu des macro et toute sorte de chose que je ne comprend pas très bien
Sa va faire trois jour que je copie des macro dans les module des feuille et sans grand succés 
dc si quelqu'un avait 5 minute a m'accorder pour me faire faire pas à pas ces manipulation il m'enleverai une sacrée épine du pied

Dans l'attente de réponse je remercie tous ceux qui porterons interet à cette demande
MERCI

Configuration: Windows XP / Internet Explorer 7.0

Ricky38 · Answer

Salut,

il y a un moyen de mettre des mise en forme conditionnelle illimitées avec une macro
https://www.commentcamarche.net/faq/16784-excel-mises-en-forme-conditionnelles-illimitees

Au pire tu peux mettre ton fichier sur http://www.cijoint.fr et nous mettre le lien ici.

Bonne journée

PIMOUSSE · Answer

Merci tous d'abord pour ta réponse mais j'ai déjà vu cette page et cette macro le pb ce que je fai exactement la mêm opération 
copi de la macro 
coller dans this wordbook
création de l'onglet MFC avec les mêm formule qui sont présente sur le fichier joint 

ET SA MARCHE PAS ...................... :( je commence a désespérer

PIMOUSSE · Answer

Voila le fichier si tu a 5 minute a maccorder je te remercie d'avance


http://www.cijoint.fr/cjlink.php?file=cj201004/cijeJiRxtA.xls

Ricky38 · Answer

Salut,

je veux bien te le faire mais de quelle colonne parles tu? De quels intitulés parles tu?
Tu veux que ça s'étende sur toute cette fameuse colonne ?

Merci

PIMOUSSE · Answer

LA COLONNE SERVICE COORDONNATEUR
6 texte différents
je veux six couleur différentes

Mike-31 · Answer

Salut,

une solution, Pour la feuille 1 tu mets la colonne ou la plage concernée en surbrillance et tu la nommes exemple Ma_Plage
Alors que la plage Ma_Plage est encore sélectionnée, tu reviens dans Insertion/Nom/Définir tu saisis un nom de champ exemple Couleurs et tu colles cette formule

=DECALER(Feuil1!$I$2;;;NBVAL(Feuil1!$I:$I))

dans une plage exemple à partir de I2 tu saisis dans six cellules ou plus le texte que tu souhaites soumettre à condition et tu le mets en forme (gras, couleur etc ...)
dans les propriétés de ta feuille tu colles ce code (clic droit sur l'onglet de feuille/Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect([Ma_Plage], Target) Is Nothing Then
   On Error Resume Next
   Target.Interior.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
   Target.Font.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex
   Target.Font.Bold = [Couleurs].Find(Target, LookAt:=xlWhole).Font.Bold 'Inclus le gras
  End If
End Sub

dés que tu saisiras le texte défini dans les cellules I2 à I ... la cellule et  le texte prendront la mise en forme défini
Si tu as besoin d'un exemple fais signe

PIMOUSSE · Answer

Merci pour ton aide mais sa ne marche toujours pas, je doit mal faire quelquechose donc un exemple serai le bien venu
Je défini la colonne A: ma_plage
Ensuite je recréer un autre nom couleur et j'insert le formule 
=DECALER(Feuil1!$I$2;;;NBVAL(Feuil1!$I:$I)) dans "fait référence à"
je copi le code dans this woordbook de l'onglet

ET SA NE MARCHE PAS................................................................................................................................................................

Mike-31 · Answer

Re, 

Testes le tableau du fichier joint en changeant les valeurs en M ainsi que les couleurs soit de fond, de texte ou les deux en ajoutant d'autre cellules en M en évitant les cellules vides et on en reparle

https://www.cjoint.com/?ewkyIuMCR8 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

PIMOUSSE · Answer

kan j'écri sur ton fichier les mot clé rien ne se passe la mise en forme ne se fai pas ????

Mike-31 · Answer

Re, 

Le mot clé doit être saisi dans les cellules M2 à M... de la feuille 1 pour le tableau de cette feuille 

Autre code feuille 3 et les mots clés doivent être saisis sur la ligne 1 de A1 à J1 de la feuille 3 pour le tableau de cette feuille 

Dans mon exemple saisis les valeurs qui sont dans ces plages M2 à M... pour le tableau la feuille 1  
et en A1 à J1 sur la feuille 3 pour le tableau de cette feuille 

https://www.cjoint.com/?ewlqrcbXtO 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

PIMOUSSE · Answer

sa marche pas je saisi tes valeur en feuille 3 et la mise en forme ne se fait pas ???????????

Mike-31 · Answer

Re,

Si sur la feuille 3 si dans le tableau tu saisis toto en minuscule ou une valeur de la ligne 1 rien ne se passe !

Donne moi ta version Excel que l'on contrôle ton niveau de sécurité

PIMOUSSE · Answer

2003

Mike-31 · Answer

Re,

Regardes dans Outils/Macro/Sécurité et dis moi quel est le niveau de sécurité coché

PIMOUSSE · Answer

le second nivO élevé

Mike-31 · Answer

Re,  

Coches Sécurité Moyen, Enregistres, fermes le fichier et reouvres le à l'ouverture dans la boite de dialogue autorises l'activation des macros 
On verra plus tard pour créer une signature numérique 
A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

PIMOUSSE · Answer

sur le fichier ke tu ma passer sa fonctionne reste a me guider pour faire la m^m chose dans mon fichier
MERCI

Mike-31 · Answer

Re,
quel code as tu retenu Feuille1 ou 3 ! 

quel est la plage à traiter sur ton fichier !

sur quelle plage peut on mettre les mises en forme modéle, cette plage peut être sur une autre feuille ou sur une ligne ou colonne que l'on masquera !

PIMOUSSE · Answer

j'ai copier coller tous ski faullai sa marche MILLE MERCI
Par contre sa me colorie toute la ligne ??????

Mike-31 · Answer

Re,

Si ton fichier ne contient pas de notes confidentielles tu peux me le poster avec ce lien, soit dans un post de la discussion soit en message privé, clic sur mon pseudo et message privé et colles le lien qui sera généré

https://www.cjoint.com/

PIMOUSSE · Answer

je suis désolé je ne voi aucun inconvéhnient a te l'envoyer mais je bosse pour une colléctivité qui ne souhaite pas la diffusion de ce classeur :(
Tu peu me régler sa a distance STP

Mike-31 · Answer

Re, 

Oui bien sur, ce sera plus long et pas rémunéré par ta collectivité, je rigole 
 quel procédé as tu retenu, feuille 1 ou 3 (feuille3 est peut être plus facile à gérer) 

donnes moi les limites de la plage à surveiller ! 

dans quelle plage peut on cacher les mises en forme (cette plage peut être dans une colonne qui sera masquée 

Combien de conditionnelles doit on programmer au total !
veux tu des fond de couleur !
uniquement la police !
ou les deux !


A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

PIMOUSSE · Answer

j'ai copié les codes voici cke jai 

dans le module du classeur

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
    Selection.Font.ColorIndex = 3
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
    Range("G16").Select
    Selection.Font.Bold = True
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
    Selection.Font.ColorIndex = 0
End Sub
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
    Selection.Font.Bold = False
End Sub

ET DANS L'ONGLET PLANNING

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Ma_Plage], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Font.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex
Target.Font.Bold = [Couleurs].Find(Target, LookAt:=xlWhole).Font.Bold 'Inclus le gras
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([Ma_Plage], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Font.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex
Target.Font.Bold = [Couleurs].Find(Target, LookAt:=xlWhole).Font.Bold 'Inclus le gras
End If
End Sub

jai du copier tro de chose peu etre ?????

PIMOUSSE · Answer

Ensuite j'ai réalisé insertion nom définir: jai fai ma plage/couleur et tableau qui étai présent dans le fichier ktu ma joint et jlai adapté a mon tableau 
jai inserer une colone en H ou il y a mes mise enn forme

Mike-31 · Answer

Salut Richy,  
Je ne suis pas remonté dans la discussion et le fichier exemple ne comporte que six lignes qui ne nécessitent pas de mise en forme enfin.  

Pour répondre à Pimousse,  

Sur le fichier que j'ai joint il y a plusieurs codes qui ne concerne pas ton fichier que j'urais dû effacer.  

Vas dans le Visual Basic Editor de ton fichier et supprimes tous les codes que tu as collé y compris dans la Thisworkbook  

Mets en surbrillance la plage à traiter et nommes là Tableau (respecte la majuscule ou modifie le code)  

Pour chaque conditionnelle exemple [A1] est l'adresse de la cellule de référence pour tes mises en formes etc ...(si tu les mets en colonne ex. en colonne M et commence en M2 ce sera [M2]  
Il est impératif qu'une cellule soit vide, police de caractère automatique sans gras exemple la première [M2] ce qui permettra de remettre la cellule à zéro dans le cas de saisie déférente (dans ce code c'est la [K1] en fin de code 

Dans les propriétés de la feuille concernée (Clic droit sur l'onglet/Visualiser le code)  
Colle le code choisi (dans ton cas je pense à celui-ci) prévu pour dix conditionnelles couleurs de fond, couleur de police et texte en gras  

Si tu retiens pour ta mise en forme conditionnelle la couleur de fond la police en couleur et le gras conserve les trois lignes par conditions sinon supprime la ligne et les conditions inutiles.  
La première ligne concerne le fond de cellule  
La seconde la couleur police et la troisième le gras  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    Dim Cellule As Variant  
    For Each Cellule In Range("Tableau")  
        'condition 1  
        If Cellule = [A1] Then  
            Cellule.Interior.ColorIndex = [A1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [A1].Font.ColorIndex  
            Cellule.Font.Bold = [A1].Font.Bold  
        'condition 2  
        ElseIf Cellule = [B1] Then  
            Cellule.Interior.ColorIndex = [B1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [B1].Font.ColorIndex  
            Cellule.Font.Bold = [B1].Font.Bold  
        'condition 3  
            ElseIf Cellule = [C1] Then  
            Cellule.Interior.ColorIndex = [C1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [C1].Font.ColorIndex  
            Cellule.Font.Bold = [C1].Font.Bold  
        'condition 4  
            ElseIf Cellule = [D1] Then  
            Cellule.Interior.ColorIndex = [D1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [D1].Font.ColorIndex  
            Cellule.Font.Bold = [D1].Font.Bold  
         'condition 4  
            ElseIf Cellule = [E1] Then  
            Cellule.Interior.ColorIndex = [E1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [E1].Font.ColorIndex  
            Cellule.Font.Bold = [E1].Font.Bold  
            'condition 5  
            ElseIf Cellule = [F1] Then  
            Cellule.Interior.ColorIndex = [F1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [F1].Font.ColorIndex  
            Cellule.Font.Bold = [F1].Font.Bold  
            'condition 6  
            ElseIf Cellule = [G1] Then  
            Cellule.Interior.ColorIndex = [G1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [G1].Font.ColorIndex  
            Cellule.Font.Bold = [G1].Font.Bold  
            'condition 7  
            ElseIf Cellule = [H1] Then  
            Cellule.Interior.ColorIndex = [H1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [H1].Font.ColorIndex  
            Cellule.Font.Bold = [H1].Font.Bold  
            'condition 8  
            ElseIf Cellule = [I1] Then  
            Cellule.Interior.ColorIndex = [I1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [I1].Font.ColorIndex  
            Cellule.Font.Bold = [I1].Font.Bold  
            'condition 9  
            ElseIf Cellule = [J1] Then  
            Cellule.Interior.ColorIndex = [J1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [J1].Font.ColorIndex  
            Cellule.Font.Bold = [J1].Font.Bold  
            'condition 10  
            'Pour annuler la couleur si la valeur est différente  
            ElseIf Cellule = [K1] Then  
            Cellule.Interior.ColorIndex = [K1].Interior.ColorIndex  
            Cellule.Font.ColorIndex = [K1].Font.ColorIndex  
            Cellule.Font.Bold = [K1].Font.Bold  
            End If  
    Next Cellule  
End Sub 

https://www.cjoint.com/?ewozCAwzYB 

A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

PIMOUSSE · Answer

kan je met ce code kan je clik sur mon tableau jatten 20 minute sa plante mon tablO??????

Mike-31 · Answer

Tu as bien mis en surbrillance la partie de ton fichier sur lequel tu souhaites appliquer la mise en forme conditionnelle et tu l'as bien nommée Tableau en respectant la Majuscule (si tu as changé le nom modifies le code)

ensuite contrôle dans Insertion/Nom/Définir si les plage nommées sont bien référencées et qu'il n'existe pas de doublon etc ...

Dans le code fourni, les cellules de référence sont en A1 à K1, si tu as les a changé ou modifié, contrôle le code
teste mon dernier fichier joint pour voir

PIMOUSSE · Answer

TON DERNIER FICHIER JOINT MARCHE 
kan au mien jai mi les cellule référentes a la fin de mon tableau E461 JUSKA E470
et kan je met ton code en changeant A1 par E461 idem pour les autres
sa fai buguer mon tableau ???????

PIMOUSSE · Answer

MON CLASSEUR FAIT 473 LIGNE ET 50 COLONNE c surement pour sa NON ???????

Mike-31 · Answer

Re,

Colles ce code pour les cellule référentes de A461 à A471

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cellule As Variant
    For Each Cellule In Range("Tableau")
        'condition 1
        If Cellule = [A461] Then
            Cellule.Interior.ColorIndex = [A461].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A461].Font.ColorIndex
            Cellule.Font.Bold = [A461].Font.Bold
        'condition 2
        ElseIf Cellule = [A462] Then
            Cellule.Interior.ColorIndex = [A462].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A462].Font.ColorIndex
            Cellule.Font.Bold = [A462].Font.Bold
        'condition 3
            ElseIf Cellule = [A463] Then
            Cellule.Interior.ColorIndex = [A463].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A463].Font.ColorIndex
            Cellule.Font.Bold = [A463].Font.Bold
        'condition 4
            ElseIf Cellule = [A464] Then
            Cellule.Interior.ColorIndex = [A464].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A464].Font.ColorIndex
            Cellule.Font.Bold = [A464].Font.Bold
         'condition 4
            ElseIf Cellule = [A465] Then
            Cellule.Interior.ColorIndex = [A465].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A465].Font.ColorIndex
            Cellule.Font.Bold = [A465].Font.Bold
            'condition 5
            ElseIf Cellule = [A466] Then
            Cellule.Interior.ColorIndex = [A466].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A466].Font.ColorIndex
            Cellule.Font.Bold = [A466].Font.Bold
            'condition 6
            ElseIf Cellule = [A467] Then
            Cellule.Interior.ColorIndex = [A467].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A467].Font.ColorIndex
            Cellule.Font.Bold = [A467].Font.Bold
            'condition 7
            ElseIf Cellule = [A468] Then
            Cellule.Interior.ColorIndex = [A468].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A468].Font.ColorIndex
            Cellule.Font.Bold = [A468].Font.Bold
            'condition 8
            ElseIf Cellule = [A469] Then
            Cellule.Interior.ColorIndex = [A469].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A469].Font.ColorIndex
            Cellule.Font.Bold = [A469].Font.Bold
            'condition 9
            ElseIf Cellule = [A470] Then
            Cellule.Interior.ColorIndex = [A470].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A470].Font.ColorIndex
            Cellule.Font.Bold = [A470].Font.Bold
            'condition 10
            'Pour annuler la couleur si la valeur est différente
            ElseIf Cellule = [A471] Then
            Cellule.Interior.ColorIndex = [A471].Interior.ColorIndex
            Cellule.Font.ColorIndex = [A471].Font.ColorIndex
            Cellule.Font.Bold = [A471].Font.Bold
            End If
    Next Cellule
End Sub

PIMOUSSE · Answer

IDEM mon tableau clignote et le gros sablier me fai poiroter

PIMOUSSE · Answer

dans ton dernier code au lieu de A461 c pas E461 ?????
de toute facon sa me fai pareil

Mike-31 · Answer

Re, 

Exact, j'ai mal lu ton post, il s'agit bien de la colonne E 461 etc ... 

Pour l'erreur bizarre, as tu bien supprimé tous les codes que tu avais inséré au préalable ! y compris dans la Thisworkbook

As tu bien Nommé la plage dans la quelle s'applique la mise en forme et supprimé les plages nommées inutiles 

En respectant la majuscule comme dans le code Tableau 

Sinon sans ton fichier difficile à voir 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

PIMOUSSE · Answer

J4AI NAI POUR AINSI DIRE RAZ LE ... je vai te filer ce fichier et on parlera plus commenn je fai ????

PIMOUSSE · Answer

je doi etre membre ???

Mike-31 · Answer

Re,

clic sur ce ce lien

https://www.cjoint.com/

Parcourir pour sélectionner ton fichier/Créer le lien/Autoriser l'accès

un lien va être généré en haut de la feuille, tu fais clic droit et copier

clic sur mon pseudo Mike-31/Message privé et tu colles le lien dans un message, je serai seul à l'avoir.

Pour le retour on verra un autre procédé

PIMOUSSE · Answer

JE SUI OBLIGER DE MINSCRIRE POUR TECRIRE UN MESSAGE ????

pimousse2 · Answer

c bon message posté c ok ta recu ???

Mike-31 · Answer

Re,

C'est bon, je te regarde ça dans un moment, je dois sortir

Mike-31 · Answer

Re,

Comme tu n'est pas membre, pour te permettre de récupérer ton fichier modifier et limiter son téléchargement, lorsque tu seras prêt je te communiquerai un lien et dès que tu l'auras téléchargé tu me le confirmera

pimousse2 · Answer

Bien le bonjours,
c'est reparti ....... :)
je sui devenu membre dc procede comme tu veu

Mike-31 · Answer

Re,

Récupères ton fichier dans les messages perso en un clic sur l'enveloppe qui clignotte en haut de page.

Finalement je suis revenu au premier procédé vu l'importance de ton fichier.
J'ai déplacé les cellules de référence qui se trouvaient en bas du tableau pour le mettre en colonne CH et CI et CJ, ce qui te permettra d'allonger le tableau si besoin.
Ces trois colonnes seront Masquée (Format/Colonne/Masquer)

La mise en forme conditionnelle est programmée jusqu'a la ligne 500 si tu dois l'allonger dans Insertion/Nom/Définir/Ma_Plage et par la même la plage nommée Plage_d'impression

J'ai fais un peu le ménage

pimousse2 · Answer

ENORME FRANCHEMENT T TROP FORT ....... SA MARCHE
kel on étét t modiffffff sur ce ki allai pas ??????
kan tu di fait le menage ????????
et surtout d'ou sorte c macro komen on les fait existe il un guide de macro ????

Mike-31 · Answer

Re,

tu avais des plages nommées en doublon comme Ma_Plage et Tableau

sur ces plages, elles prenaient toute la colonne A:A je les ai limitées de A5 à A500 etc ...

Un code macro est écrit en fonction des besoins, cela s'apprend en formation si tu es passionné il existe des bouquins et des sites sur le net

Lorsques tu ouvres ton fichier, si tu dois activer les macros à chaque fois, j'ai écris une astuce pour créer une signature numérique qui te permettra de relever la sécurité des macros et éviter l'activation

https://www.commentcamarche.net/faq/21009-excel-signature-numerique

Si ton problème est résolu, confirme le moi que je mette ton statut en conséquence.

pimousse2 · Answer

Et ben écoute i me reste plus ka te remercier et a te dire bravo
merci di avoir consacrer autant de temps
ENCORE MERCIIIIIIIIII

A la prochaine

Excel mise en forme conditionnele

45 réponses

Discussions similaires

Newsletters