Mise en forme conditionnelle en VBA

Version imprimable

06/02/2012, 11h39
VIPNO

Mise en forme conditionnelle en VBA

Bonjour,
Je voudrais colorer une ligne si la troisième cellule de cette ligne à une certaine valeur.
Je ne peux pas faire ce code directement en Excel car j'efface périodiquement la plage et cela me renvoie à chaque fois un code d'erreur.
Je connais le code couleur à appliquer en RVB.
Cela ne doit pas etre bien compliqué mais comme je débute en excel...
Si je pouvais encore une fois bénéficier des compétences de l'un d'entre vous, cela me ferait avancer à grand pas.
D'avance merci
VIPNO

Bonjour,

Voici le code pour la ligne 3. Si C3 est égal à "toto" alors le fond des cellules de la ligne est rouge pétant. Si tu veux le même code, mais pour plusieurs lignes, dis-le.
Code:

1 2 3 4 5 6 7 With Rows("3:3") .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=$C3=""toto""" .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority .FormatConditions(1).Interior.Color = 255 Selection.FormatConditions(1).StopIfTrue = False End With

Bonjour,

autre idée :

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
'exemple : tes dvaleurs sont en col C
If Target.Column = 3 Then
' ta valeur est "10", tu as 9 colonnes10
 
  If Target.Value = 10 Then Range("A" & Target.Row, "I" & Target.Row).Interior.ColorIndex = 5 'couleur bleue
End If
End Sub

06/02/2012, 12h01
VIPNO

Details

Bonjour,
Merci mille fois à vous deux.
En fait j'ai 8 valeurs possibles donc 8 couleurs à affecter en fonction de la valeur et ceci sur toute la page.
Merci encore
VIPNO
06/02/2012, 13h57
casefayere

mais quelles sont tes valeurs ?, afin de mieux t'orienter :

- des valeurs fixes (numériques, texte,...)
- des valeurs > ou < ou comprises entre...

dis-en un peu plus
06/02/2012, 14h18
VIPNO

Valeurs

Bonjour,
Mes valeurs sont du texte, en fait le nom des projets.
Il y a 1 chiffres des_ et du texte minuscule et majuscule. Il n'y a pas d'espace.
Je pense aussi qu'il faut effacer toute mise en forme avant de commencer,
Et si possible:oops: quand la valeur de la colonne 1 change ( le nom et prenom avec un espace entre qu'il y ait un très fort sur le bord de la ligne.
Merci d'avance.
VIPNO

Pour ta première partie, un exemple à adapter :
dans un bouton de commande, pourquoi pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim x As Integer, derlg As Integer
derlg = Range("C" & Rows.Count).End(xlUp).Row 'recherche dernière ligne en C
'si tu commences en 2ème ligne
For x = 2 To derlg
'exemple : tes valeurs sont en col C ligne jusque "I"
  If Range("C" & x) = "aaa" Then Range("A" & x, "I" & x).Interior.ColorIndex = 3
  If Range("C" & x) = "bbb" Then Range("A" & x, "I" & x).Interior.ColorIndex = 4
  If Range("C" & x) = "ccc" Then Range("A" & x, "I" & x).Interior.ColorIndex = 5
  If Range("C" & x) = "ddd" Then Range("A" & x, "I" & x).Interior.ColorIndex = 6
  If Range("C" & x) = "eee" Then Range("A" & x, "I" & x).Interior.ColorIndex = 7
  If Range("C" & x) = "fff" Then Range("A" & x, "I" & x).Interior.ColorIndex = 8
  If Range("C" & x) = "ggg" Then Range("A" & x, "I" & x).Interior.ColorIndex = 9
  If Range("C" & x) = "hhh" Then Range("A" & x, "I" & x).Interior.ColorIndex = 10
Next x
End Sub

Select

Merci beaucoup,
en plus ce code a le mérite d'être clair pour une néophyte.
Je l'essaye.
Pour l'instant je sèche sur la dé-selection de colonne.
Je ne sais pas comment libérer les colonnes A à V dans le prog suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Tri des données par Domaine, Activite, personne
        Columns("A:V").Select
        ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("A2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("B2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("F2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil2").Sort
        .SetRange Range("A:V")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    End With

Je sais que cela doit être basique pour beaucoup d'entre vous....

Merci beaucoup.....:oops:
VIPNO

toujours en rapport avec mon code, corriges le ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim x As Integer, derlg As Integer
derlg = Range("C" & Rows.Count).End(xlUp).Row 'recherche dernière ligne en C
Range("A2:I" & derlg).Interior.ColorIndex = 0 'ajoutes cette ligne utile
'si tu commences en 2ème ligne
For x = 2 To derlg
'exemple : tes valeurs sont en col C ligne jusque "I"
  If Range("C" & x) = "aaa" Then Range("A" & x, "I" & x).Interior.ColorIndex = 3
  If Range("C" & x) = "bbb" Then Range("A" & x, "I" & x).Interior.ColorIndex = 4
  If Range("C" & x) = "ccc" Then Range("A" & x, "I" & x).Interior.ColorIndex = 5
  If Range("C" & x) = "ddd" Then Range("A" & x, "I" & x).Interior.ColorIndex = 6
  If Range("C" & x) = "eee" Then Range("A" & x, "I" & x).Interior.ColorIndex = 7
  If Range("C" & x) = "fff" Then Range("A" & x, "I" & x).Interior.ColorIndex = 8
  If Range("C" & x) = "ggg" Then Range("A" & x, "I" & x).Interior.ColorIndex = 9
  If Range("C" & x) = "hhh" Then Range("A" & x, "I" & x).Interior.ColorIndex = 10
Next x
End Sub

Citation:

Je ne sais pas comment libérer les colonnes A à V dans le prog suivant

Qu'appelles-tu "libérer", si c'est pour les déselectionner, contentes-toi de provoquer la selection d'une autre cellule

06/02/2012, 17h33
VIPNO

Bord Gras

Bonjour,
Ok, merci, c'est ce que je pensais faire. Mais je me disais qu'il y avait peut etre autre chose.
Et pour le Bord gras qd la valeur de la colonne 1 change , est-ce que tu as une idée ?
NB: Les données dans la colonne 1 sont déjà triées.
Encore merci pour ton aide passée et future. Je m'y remet rapidement.
Cordialement,
VIPNO
06/02/2012, 18h21
casefayere

Je viens de rentrer chez moi.

Je n'ai pas compris cette demande

Citation:

Et si possible quand la valeur de la colonne 1 change ( le nom et prenom avec un espace entre qu'il y ait un très fort sur le bord de la ligne.

peux-tu mieux t'expliquer.

est-ce la cellule que tu changes qui doit etre transformée ? , si oui, de quelle façon ?, qu'appelles-tu un bord gras, un contour gras ? ou une bordure ?
07/02/2012, 07h49
VIPNO

Bordure

Bonjour,
En fait je réalise un tableau de charge par personne et par projet.
Je colorie les cellules en couleurs par rapport aux projets sur lesquelles elles travaillent. Et j'aimerai qu'à chaque changement de personne, il y ai une bordure grasse pour la mise en valeur de l'ensemble correspondant à chaque personne.
Voilà, cela doit être plus clair.
Merci de ton aide précieuse
Cordialement,
VIPNO
11/02/2012, 18h58
VIPNO

Transformer une couleur en RGB
Bonjour à tous,

Je travaille sur la mise en forme conditionnelle de ma feuille.
J'ai une ligne de code que je voudrais modifier pour exprimer les couleurs en RGB car je ne connais les couleurs à appliquer qu'en RGB.
Code:

1 2 If Range("C" & x) = "aaa" Then Range("A" & x, "I" & x).Interior.ColorIndex = 3
Si je transforme 3 en RGB(204,255,204)
la ligne n'est pas correcte. Mais comme je n'ai pas suffisamment de connaissance en VBA, je ne suis pas capable de m'en dépatouiller....
Quelqu'un peut-il m'indiquer la marche à suivre ?
D'avance merci pour l'aide apportée.
Cordialement,
VIPNO
11/02/2012, 19h34
jfontaine

Bonjour,

Juste en remplacant ColorIndex par Color

Code:

If Range("C" & x) = "aaa" Then Range("A" & x, "I" & x).Interior.Color = RGB(204,255,204)
11/02/2012, 19h48
Daniel.C

Bonsoiir,

A moins que tu 'aies personnalisé la palette, le colorindex 3 (rouge pétant) correspond à RGB(255,0,0).
11/02/2012, 20h25
VIPNO

Merci

Bonjour,
En fait j'avais remplacé 3 par RGB(204,255,204) mais j'avais laissé ColorIndex...
Super,
Merci pour tout,
Je vais pouvoir continuer ma mise en forme.
Si vous avez également des idées pour l'autre discussion, "sous totaux en cascade"... Il s'agit juste de simplifier ma programmation ...

Merci encore pour tous ces bons conseils
Cordialement,
VIPNO