Installer une mise en forme conditionnelle avec VBA

Version imprimable

12/05/2014, 09h36
Invité

Installer une mise en forme conditionnelle avec VBA
Bonjour,
Avec VBA, au départ d'une liste, je crée un fichier de numéros de téléphone.
Noms! triée sur Noms et prénoms
Prenoms! triée sur Prénoms et noms
Sauvetage! est une copie (invisible) de Noms!

J'aimerais installer une mise en forme conditionnelle sur les cellules de Nom! : si Nom!$X$n <> Sauvetage!$X$n alors CouleurTexte(Nom!$X$n)=3 (rouge)

Comment faire ?
Code:

1 2 3 4 5 6 7 With wsNoms.Range("A1") .FormatConditions.Add Type:= xlNotEqual, Formula1:= ?? With FormatCondition(1) .Font.Color = 3 ' rouge End With End With
Merci de votre aide.
Je suis au bureau, j'ai aussi d'autres choses à faire, il est donc possible que je ne réagisse pas de suite à une réponse.
14/05/2014, 23h00
arosec
Bonsoir,

Quelque chose du type:
Code:

1 2 Columns("A:A").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A1<>$C1").Interior.Color = 255
Il faut modifier le range initial (Columns("A:A")) pour ne pas prendre l'entête.

Cdlt,
16/05/2014, 11h22
Menhir

Si ton problème se limite à ce que tu décris, tu n'as pas besoin d'utiliser une macro. Tu peux très bien faire ça avec une mise en formes conditionnelle classique.
19/05/2014, 11h42
Invité

@arosec
Ton code deviendrait ou je me trompe ?

Code:

Columns("C:P").FormatConditions.Add(Type:=xlExpression, Formula1:="=Noms!C1<>Sauvetage!C1").Font.Color = 3

@Menhir
J'écris le VBA, je n'utiliserai pas le fichier résultant, sauf pour avoir les tel de mes collègues.
C'est le secrétariat qui va gérer les modifications du fichier, il est plus simple de garder la liste des changements à effectuer sur le fichier créé que sur un bout de papier, d'où mon besoin.

Et mille excuses pour une réponse si tardive, je n'avais pas mon portable ce week-end.

Quand j'utilise l'enregistreur de macro, j'obtiens :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Macro1() ' ' Macro1 Macro ' ' Range("D8").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _ Formula1:="=Sauvetage!$D$8" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark2 .TintAndShade = -9.99481185338908E-02 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
Je ne vois pas trop bien comment généraliser la formule.

Par macro, il est possible d'installer la MFC sur chaque cellule de donnée mais il doit être plus simple de modifier Range et Formula1.
Là, je bloque.

19/05/2014, 12h03
Menhir

Citation:

Envoyé par BrisChri

C'est le secrétariat qui va gérer les modifications du fichier, il est plus simple de garder la liste des changements à effectuer sur le fichier créé que sur un bout de papier, d'où mon besoin.

Je crois que je me suis mal fait comprendre. Quand je parlais de "mise en formes conditionnelle classique", je ne parlais pas de faire ça à la main ou de le faire une seule fois pour avoir un résultat papier.
Je parlais d'utiliser les possibilités d'Excel de créer des mises en forme avec conditions ( ruban Accueil > Groupe Style > Mose en forme conditionnelle ).
Ca permet d'adapter automatiquement la mise en forme en fonction de conditions décrites par l'utilisateur (par exemple avoir une couleur de texte ou de fond différente si deux cellules ont un contenu différent).
19/05/2014, 14h36
Invité

Ok, je comprends mieux.
Je préfère automatiser, mettre une MFC en utilisant VBA, plutôt que créer une macro avec bouton : ce serait la seule macro du classeur.
19/05/2014, 14h46
Menhir

Bin moi je ne comprends pas du tout ta réponse.

Quand on utilise une mise en forme conditionnelle est automatique (ou automatisée si tu préfères). Je veux dire que, une fois créée, tu n'as plus à t'en occuper. Les cellules changerons de couleur toutes seules en fonction du contenu sans qu'il soit besoin de retoucher au paramétrage.

Et je ne comprends pas pourquoi tu parles de "bouton". Dans une MFC (telle que Excel le conçoit), il n'est pas besoin d'appuyer sur des bouton pour que ça se mette à jour. Ca se fait tout seul, comme le résultat d'une formule.

Faire ça en VBA, ce sera plus compliqué et moins pratique à utiliser.
19/05/2014, 14h55
Invité

Lu trop vite.

La MFC devrait être installée par macro, histoire de ne pas oublier de la mettre à chaque modification de fichier.
Nous sommes peu nombreux dans le service, environ 170, mais les changements de bureau sont nombreux. De plus, certains extérieurs s'en vont et sont remplacés par d'autres, bref, le secrétariét a abandonné l'idée de maintenir le fichier comme il le faisait avant.
Le hasard veut que, pour mon plaisir et celui de m'améliorer en VBA, je me suis donné comme travail de créer cette liste automatiquement. On prévoit le déménagement d'à peu près tout le service (réorganisation interne), la dernière version du fichier date de 2013, mon programme tombe à point nommé.

Et, comme les déménagements ne se feront pas en un jour, il sera possible d'avoir une liste quotidiennement. D'où l'intérêt de ne pas laisser la mise en forme se faire manuellement : les changement d'un jour seront notés le jour même et introduits le lendemain.
19/05/2014, 15h08
Menhir

Citation:

Envoyé par BrisChri

D'où l'intérêt de ne pas laisser la mise en forme se faire manuellement

Visiblement, je ne parviens pas à me faire comprendre.
C'est pas grave. Bonne chance et bon courage.
19/05/2014, 15h24
Invité

Je pense t'avoir compris.
Il y a une chose qui m'empêche de mettre une MFC définitivement : je recrée le fichier à chaque fois, je ne modifie pas les données existantes.
19/05/2014, 15h39
Menhir

Il te suffit de mettre la MFC dans un modèle (XLTX ou XLTM) et de choisir ce modèle quand tu fais Fichier > Nouveau.
19/05/2014, 15h52
Invité

Je pense que je vais utiliser le code de création de ma page pour mettre la MFC cellule par cellule au moment de la création du fichier.
Après tout, je sais où j'écris, autant se servir des renseignements dont je dispose.

Si j'y arrive, et je pense y arriver, je mettrai la méthode, peut-être pas complètement ici (ce ne serait compréhensible qu'avec le reste du développement) mais au minimum la façon de faire avec le code correspondant.

Merci de ton aide.
19/05/2014, 16h06
Menhir

Citation:

Envoyé par BrisChri

Je pense que je vais utiliser le code de création de ma page pour mettre la MFC cellule par cellule au moment de la création du fichier.

En effet, pourquoi faire simple quand on peut faire compliqué.:roll:
Tu ne penses pas qu'il serait plus simple de créer un fichier modèle avec le bon format et de simplement mettre dans ton code :
soit la création d'un nouveau fichier utilisant ce modèle, si tu crées ce dernier en XLTS ou XLTM (1 ligne de code)
soit copier le fichier modèle et ouvrir la copie, si tu veux que ton modèle soit en XLSX ou XLSM pour pouvoir le modifier plus facilement.

C'est plus rapide à faire, c'est plus clair, plus simple à modifier.

Sans compter que ton fichier modèle peut également te servir à faire bien d'autres choses comme, par exemple, une présentation plus agréable.

Comme développeur, l'expérience m'a montré que tout ce qu'on peut mettre dans un fichier modèle plutôt qu'en dur dans le code rendait la vie bien plus facile.

Mon fichier de sortie est en 3 colonnes, d'où les calculs.
tColOut(n) table qui contient le nombre de lignes par colonne

wsTo = Nom!
rCell = range

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub MFCModif()
    nLigne = nLigneTitre + 1
    For i = 1 To 3
    nCol = ((i - 1) * 5) + 3
        For j = 1 To tColOut(i)
            For k = nCol To nCol + 3
                Set rCell1 = wsTo.Cells(j + nLigne, k)
                With rCell1
                    .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:=rCell1
                    .FormatConditions(rCell1.FormatConditions.Count).SetFirstPriority
 
                    With rCell1.FormatConditions(1)
 
                        With .Font
                            .Color = -16776961
                            .TintAndShade = 0
                        End With
 
                        With .Interior
                            .PatternColorIndex = xlAutomatic
                            .ThemeColor = xlThemeColorDark1
                            .TintAndShade = -4.99893185216834E-02
                        End With
 
                    End With
                    .FormatConditions(1).StopIfTrue = False
                End With
            Next k
        Next j
    Next i
End Sub

La condition obtenue avec cette macro est assez simple : je charge une valeur dans la cellule et dans la MFC, plus besoin de feuille sauvetage!, la valeur originale est enregistrée.
Et quand on la remet, l'ancienne mise en forme revient.

Il a fallu le temps, mais je suis content.
Problème résolu.

sorry je reviens mais je me demande si on peut ajouter une mise en forme
j'ai pensé à ceci que je place après Set t = Nothing
cela plante mais là j'y connais rien.
J'ai bidouillé un code obtenu via l'enregistreur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
.Cells(33, i).FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=(cells(5,i)+cells(14,i)+cells(23,i))<>cells(33,i)"
 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False