[VBA] mise en forme conditionnelle Excel sous Access

Marsh Posté le 19-12-2005 à 09:37:13

Bonjour tout le monde!!!

voici mon problème: je souhaite faire de la mise en forme conditionnelle sur un colonne d'un fichier Excel que je manipule à partir d'Access.
En m'inspirant de la macro Excel, je suis arrivée au résultat suivant:

Code :

Set ObjRange = Range("Q" & j).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=O" & j
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = True
.ColorIndex = 55 'bleu foncé
End With

mais j'ai une erreur à la première ligne: "Objet requis"

Quelqu'un pourrait m'aider???
Merci beaucoup!!!!

Marsh Posté le 19-12-2005 à 09:37:13

Marsh Posté le 19-12-2005 à 10:16:33

j'ai résolue mon problème toute seule!
vous pouvez fermer mon post.

Marsh Posté le 19-12-2005 à 12:21:26

Si personne n'a pu t'aider, ta solution peut interesser du monde. Si tu l'indiquais ce serait sympa

Pour clore ton sujet il te suffit de l'éditer et d'ajouter au titre de ton post : résolu

Marsh Posté le 28-02-2006 à 09:25:06

Le fait est que je n'ai toujours pas la solution.... J'ai crié victoire trop vite.

alors si quelqu'un pouvait m'aider! :hello:

Marsh Posté le 28-02-2006 à 10:18:08

Salut,

Ceci fonctionne mieux :

Sub Format_Condition()
Dim ObjRange As Range
Dim j As Long
j = 1
Set ObjRange = ActiveSheet.Range("Q" & j)
ObjRange.FormatConditions.Delete
ObjRange.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=$O$" & j
With ObjRange.FormatConditions(1).Font
.Bold = True
.Italic = True
.ColorIndex = 55 'bleu foncé
End With

End Sub

En fait, soit tu utilises Selection, soit tu utilises ObjRange mais pas un peu des deux.

A+
Horatio

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *