Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2973 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] mise en forme conditionnelle Excel sous Access

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] mise en forme conditionnelle Excel sous Access

n°1269719
flocooon
Posté le 19-12-2005 à 09:37:13  profilanswer
 

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 :
  1. Set ObjRange = Range("Q" & j).Select
  2.             Selection.FormatConditions.Delete
  3.             Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=O" & j
  4.             With Selection.FormatConditions(1).Font
  5.                 .Bold = True
  6.                 .Italic = True
  7.                 .ColorIndex = 55 'bleu foncé
  8.              End With


mais j'ai une erreur à la première ligne: "Objet requis"
 
Quelqu'un pourrait m'aider???  :)  
Merci beaucoup!!!!

mood
Publicité
Posté le 19-12-2005 à 09:37:13  profilanswer
 

n°1269743
flocooon
Posté le 19-12-2005 à 10:16:33  profilanswer
 

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

n°1269842
watashi
La démotivation : JAMAIS !
Posté le 19-12-2005 à 12:21:26  profilanswer
 

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
 
:)

n°1315029
flocooon
Posté le 28-02-2006 à 09:25:06  profilanswer
 

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:

n°1315065
Lord Nelso​n
Posté le 28-02-2006 à 10:18:08  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] mise en forme conditionnelle Excel sous Access

 

Sujets relatifs
[VBA EXCEL 03] Probleme de mise en forme auto du graph[ACCESS]passage de paramètre entre formulaire et état
Insertion de données excel dans une tableMise à jour BDD toutes les semaines
[css] Mise en place bloc divInverser une matrice / DLL utilisee depuis VBA
Réception d'un mail en VBA 
Plus de sujets relatifs à : [VBA] mise en forme conditionnelle Excel sous Access


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR