Colorer les cellules d'un tableau suivant le contenu Fermé

Question

Bonjour, et d'avance merci de l'aide
Je souhaiterai mettre en place grace à une VBA la coloration de certaines cellules de mon tableau en fonction du contenu.
l'amplitude du tableau débute à la ligne 6 et se termine, pour l'instant à la ligne 14770 ; d'autres lignes pouvant être rajoutées à l'intérieur de cette amplitude
Pour les couleurs j'utilise ci-dessous les références excel exemple *32*
1- Pour la colonne A :
Je n'ai que deux entrées possibles 1 ou 2 
-si je rentre "1" la cellule en question doit se colorer en *28*
-si je rentre "2" couleur *22*
2-Pour la colonne B :
J'ai 30 possibilités de texte de F1, F2,F3 etc. jusqu'à F30
Pour faire plus simple j'ai regroupé afin de n'avoir que 6 couleurs :
si je rentre F1-F7-F13-F19-F25 couleur du fond *6*
si je rentre F2-F8-F14-F20-F26 couleur du fond *8*
si je rentre F3-F9-F15-F21-F27 couleur du fond *44*
si je rentre F4-F10-F16-F22-F28 couleur du fond *43*
si je rentre F5-F11-F17-F23-F29 couleur du fond *32* texte en blanc
si je rentre F9-F12-F18-F24-F30 couleur du fond *18* texte en blanc
3- Pour la colonne C :
1 seul texte possible "OK" couleur du fond *4* texte en blanc
4- Pour la colonne J :
j'ai deux possiblitiés de texte :
soit "D" couleur *46* et "R" couleur *6*
5- Pour les colonnes L - R - U
plusieurs possibilités de chiffres et nombres exemple :
si la cellule contient 46 ou 47 couleur *4*
si la cellule contient 42 ou 69 couleur *39*
si la cellule contient 32 ou 80 ou 81 ou 82 couleur *45* 
si la cellule contient 07 ou 30 ou 26 couleur *35*
Merci par avance
Configuration: Windows / Chrome 54.0.2840.99

Zoul67 · Answer

Bonsoir,
Pourquoi en VBA ?
La Mise en Forme Conditionnelle permet de faire ce que tu souhaites. Il y a juste un petit effort pour avoir exactement la bonne couleur.
A+

gbinforme · Answer

Bonjour, 
les MFC initialement installées se "dédoublent" à l'infini,
Pas sûr que tu ais utilisé les MFC pour l'éviter.
Tu fais une coloration par colonne et donc si tu mets ta MFC sur la colonne elle ne se dédouble pas puisque si tu insères une ligne la plage reste la même alors que si tu choisis de la ligne 1 à 300, tu scindes la plage en introduisant une nouvelle ligne.
Tu demandes une coloration par macro : cela ne sera pas neutre non plus car tout code qui s'exécute consomme du temps.
Voici la macro à mettre dans la feuille concernée :
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.CountLarge > 1 Then Exit Sub
If Not Intersect(sel, [A:A]) Is Nothing Then
    Select Case sel.Value
        Case 1: sel.Interior.ColorIndex = 28
        Case 2: sel.Interior.ColorIndex = 22
        Case Else: sel.Interior.ColorIndex = xlNone
    End Select
End If
If Not Intersect(sel, [B:B]) Is Nothing Then
    Select Case sel.Value
        Case "F1", "F7", "F13", "F19", "F25": sel.Interior.ColorIndex = 6
        Case "F2", "F8", "F14", "F20", "F26": sel.Interior.ColorIndex = 8
        Case "F3", "F9", "F15", "F21", "F27": sel.Interior.ColorIndex = 44
        Case "F4", "F10", "F16", "F22", "F28": sel.Interior.ColorIndex = 43
        Case "F5", "F11", "F17", "F23", "F29": sel.Interior.ColorIndex = 32
                sel.Font.ThemeColor = xlThemeColorDark1
        Case "F9", "F12", "F18", "F24", "F30": sel.Interior.ColorIndex = 18
                sel.Font.ThemeColor = xlThemeColorDark1
        Case Else: sel.Interior.ColorIndex = xlNone
    End Select
End If
If Not Intersect(sel, [C:C]) Is Nothing Then
    If sel.Value = "OK" Then
        sel.Interior.ColorIndex = 4
        sel.Font.ThemeColor = xlThemeColorDark1
    Else
        sel.Interior.ColorIndex = xlNone
    End If
End If
If Not Intersect(sel, [J:J]) Is Nothing Then
    Select Case sel.Value
        Case "D": sel.Interior.ColorIndex = 46
        Case "R": sel.Interior.ColorIndex = 6
        Case Else: sel.Interior.ColorIndex = xlNone
    End Select
End If
If Not Intersect(sel, [L:L]) Is Nothing _
    Or Not Intersect(sel, [R:R]) Is Nothing _
    Or Not Intersect(sel, [U:U]) Is Nothing Then
    Select Case sel.Value
        Case 46, 47: sel.Interior.ColorIndex = 4 ' couleur *4*
        Case 42, 69: sel.Interior.ColorIndex = 39 ' couleur *39*
        Case 32, 80, 81, 82: sel.Interior.ColorIndex = 45 ' couleur *45*
        Case 7, 30, 26: sel.Interior.ColorIndex = 35 ' couleur *35*
    End Select
End If
End Sub

Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry

Gazpaschaud · Answer

Merci de la rapidité pour me répondre mais je ne le vois que ce matin.
J'assure à 100% que toutes mes MFC étaient bien faites par colonne et non pas pour un groupe de lignes.
Dans ma version actuelle de la BD j'ai d'ailleurs conservé une MFC sur la colonne J et elle s'est et se dédouble toujours.
Peut-être que je me trompe dans la procédure d'installation de la MFC ?
Je viens à l'instant de refaire un essai :
1- Sélection colonne C, installation d'une MFC référence de la colonne par excel =$C:$C 
2- Je reviens sur la BD je fais insertion 1 ligne : sur la MFC j'ai maintenant deux références de MFC :
la première j'ai : =$C$14791 (réf de la ligne d'insertion)
et deuxième j'ai : =$C$1:$C$14790;$C$14792:$C$1048576
(donc les deux autres portion avant et après l'insertion).
A noter que Excel attribue en premier $C et qui devient $C$
Comment éviter cette multiplication de la MFC à chaque fois que l'on insère une ligne ?
Car je suis bien d'accord que les MFC seraient bien plus souples
J'attends donc pour voir pour la VBA
Merci encore de votre patience

Gazpaschaud · Answer

J'ai la version Microsoft Office Famille et Etudiant 2013

gbinforme · Answer

Bonjour, 
Un petit bout d'exemple sur lequel tu peux essayer de reproduire les dédoublements que tu nous signales
https://www.cjoint.com/c/FLqigAYQMAl 
Si cela se produit chez toi, renvoies nous le résultat.
Ta version Office se met-elle à jour automatiquement ?

Gazpaschaud · Answer

Bonjour et désolé mais quelques priorités familiales m'ont fait tardé à vous répondre :
Ci-dessous les deux classeurs :
1er classeur : 
J'ai supprimé toutes les VBA Existantes (je pensais que cela pouvait venir de là).
J'ai donc mis en place les MFC pour les colonnes A-B-D et J
pour la colonne B je n'ai mis que 7 MFC au lieu des 30 prévues. Les références pour toute les MFC sont du type =$A:$A
https://www.cjoint.com/c/FLqprZ4pSX1
2ème Classeur :
Copie du premier et j'ai fait deux exemples d'insertion :
1- à la ligne 50 j'ai inséré seulement une ligne pas de modification dans les MFC
2- à la ligne 51 j'ai fait un copier-insertion de la ligne 108 les MFC sont modifiées...?
Pour chaque type de MFC on a une MFC distincte pour la ligne 51 exemple : =$A$51
Puis une pour la ligne 1 à 50 et ensuite 1 pour la ligne 52 à 1048576 (=$A$1:$A$50;$A$52:$A$1048576)
https://www.cjoint.com/c/FLqpAUf6Fr1
Voilà donc mon problème qui est flagrant et je ne vois pas d'où cela peut venir
Cordialement à vous pour la solution !

Gazpaschaud · Answer

Bonjour, je suis effectivement assez friand des jeux de mots et autres calembourgs.
1- Solution pour MFC :
Donc si je comprends bien la solution est pour toutes insertions de ligne(s) de passer par un collage spécial ?
Pour l'exemple que j'ai mis en fichier joint, j'avais enlevé toutes les vba pensant à un éventuel conflit, il en est rien tant mieux ! Mais toutes mes insertions de lignes et paramétrages de ces lignes se font par VBA, et là je ne sais pas du tout comment traduire en code ce collage spécial voici un code "standard que j'utilise pour exemple :
1-Copie et insertion 1 ligne
<code>Sub Copie_Ligne_Basse_Famille()
    Dim n%
    n = selection.Row
    With ActiveSheet
        [\B_Copie_Ligne_Basse_Famille].Copy
       .Range("A" & n).Resize(, 21).Insert xlShiftDown
    End With
End Sub
2- Colonne B Nombre de MFC
Oui je suis d'accord pour limiter à 6 MFC, mais je n'arrive pas à écrire correctement plusieurs choix possibles dans "Mettre en forme le texte contenant..." : comment doit-on l'écrire ? :
F1. F6. F13
F1 ; F6 ; F13
"F1" ; "F6" ; "F13" j'ai fait plusieurs essais infructueux
2- Côté surprenant (LOL)
Cette base de données n'est qu'une "interface" avec la saisie sur un site de généalogie en ligne sur lequel je mets à jour seulement les données "définitives et sures", mon interface me permets d'une part de pouvoir faire un rapprochement entre les deux et surtout de gérer les individus dits "potentiels". Je l'ai crée il y a à peu près 10 ans... elle a donc bien évoluée. Certes je reconnais qu'elle est bien colorée (rire), mais c'est ainsi que je me suis habitué et j'arrive à me repérer plus facilement. Par contre je suis très intéressé d'avoir une vue extérieure, c'est comme cela que l'on s'améliore, quand vous dites "Saisies et affichages surprenant"
Merci encore pour l'aide

Gazpaschaud · Answer

Pour ce qui est ce la colonne B c'est bon j'ai trouvé le code pour valider les différentes propositions F1-F2-F3 etc...
Persévérance, persévérance...

Colorer les cellules d'un tableau suivant le contenu

8 réponses

Discussions similaires