Discussion :

[steph_1]

Bonjour,

Je souhaite mettre en place une mise en forme conditionnelle sur toute une colonne du tableau excel créé par mon prog VBA.

Via un script VBA, j'arrive bien à créer mes colonnes, à les renseigner, faire les bordures, etc...

Par contre je n'arrive pas à établir des règles sur une colonne en fonction de ce que l'on renseignera plus tard dans cette colonne.
Suivant ce que l'utilisateur écrira sur cette colonne, je veux appliquer différentes couleurs.

Voici mon code pour établir ces règles sur la colonne D:
(J'appelle ce bout de code lorsque j'ai renseigné tout mon tableau, c'est la dernière action de mon code VBA)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    With XlSheet.Cells(1, 4).Range("D2" & ":D" & nRow)
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""en cours"""
        .FormatConditions(1).Interior.ColorIndex = 23
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""à faire"""
        .FormatConditions(2).Interior.ColorIndex = 3
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""terminer"""
        .FormatConditions(3).Interior.ColorIndex = 4
    End With

Lorsque j'arrive sur ce code, ça plante sur la 1ère ligne dans le With.
Mon FormatConditions n'a pas l'air correct.

Qqu'un peut-il m'aider svp ?

[steph_1]

qd je dis ça plante, j'ai un message de ce style:

"Erreur d'Exécution '1004': Erreur définie par l'application ou par l'objet"

[Menhir]

Je ne comprends pas ce que tu essayes de faire en mettant un Range comme objet d'un Cells ?

A mon avis ton problème vient de là : je ne vois pas comment une plage pourrait être l'objet d'une cellule unique.

Ca peut aussi venir de la nature ou du contenu de la variable XlSheet, la partie que tu montres n'indiquant rien à ce sujet.

[steph_1]

Set Xl = CreateObject("Excel.Sheet")
Xl.Application.Visible = True

Set XlBook = Xl.Application.Workbooks.Add
With XlBook
.SaveAs FileName:="c:\temp\toto.xls"
End With

Set XlSheet = XlBook.ActiveSheet

Même en faisant ceci et en mettant mon range sur le XlSheet (sans un Cell spécifique), celà fait pareil:

With XlSheet.Range("D2" & "" & nRow)
.FormatConditions.Add Type:=1, Operator:=xlEqual, _
Formula1:="en cours"
.FormatConditions(1).Interior.ColorIndex = 23
End With

En gros ce que je veux faire c'est mettre des règles sur toute la colonne D.
Si la cellule vaut "en cours" => affecter une couleur à cette cellule
Si la cellule vaut "terminer" => affecter une autre couleur à cette cellule etc

[Menhir]

En gros ce que je veux faire c'est mettre des règles sur toute la colonne D.

Effectivement, le Cells était inutile.
Qu'y a-t-il dans le nRow ? Essaye de l'enlever (ainsi que le & qui précède) et d'ajouter un 10 entre le D qui précède et le " ). Qu'est-ce que ça donne ?

[steph_1]

Voici une solution qui marche:

With XlSheet.Range("D2" & "" & nRow)
.FormatConditions.Add Type:=9, _
String:="en cours", _
TextOperator:=0
.FormatConditions(1).Interior.ColorIndex = 23

.FormatConditions.Add Type:=9, _
String:="à faire", _
TextOperator:=0
.FormatConditions(2).Interior.ColorIndex = 3

.FormatConditions.Add Type:=9, _
String:="terminer", _
TextOperator:=0
.FormatConditions(3).Interior.ColorIndex = 4
End With

Type := 9 => xlTextString
TextOperator := 0 => xlContains