format conditionnel de cellules Excel sous VBA

format conditionnel de cellules Excel sous VBA - VB/VBA/VBS - Programmation

Marsh Posté le 30-06-2005 à 15:51:35    

Bonjour  
je n'arrive pas à écrire en VBA un format conditionnel qui prendrait sa condition sur une référence de cellule relative ... Et si j'utilise une variable pour définir la cellule relative en question , cette variable n'est pas reconnue ensuite  
dans les lignes qui définissent le format conditionnel ...
 
Merci ...
 

Code :
  1. Sub Format_Conditionnel()
  3. Dim MaRéférence As Range
  4. Set MaRéférence = Range("C" & ActiveCell.Row)
  6.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
  7.         "=JOURSEM(MaRéférence;1)=1"
  8.     Selection.FormatConditions(1).Interior.ColorIndex = 36
  10. End Sub

Reply

Marsh Posté le 30-06-2005 à 15:51:35   

Reply

Marsh Posté le 01-07-2005 à 17:14:23    

essais de mettre ta declarration de variable entre les ().
et donne la avant de lancee ta condition...
 
ch'sais pas si j'ai ete clair mais voilas..
 
@+

Reply

Marsh Posté le 01-07-2005 à 19:52:03    

Bonjour,
 
Essaye avec :
 

Code :
  1. Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
  2.         "=JOURSEM(" & MaRéférence & ";1)=1"


 
pelw

Reply

Marsh Posté le 01-07-2005 à 22:34:40    

Merci beaucoup Pelw ...
tu m'as bien remis en selle ... ça n'a pas marcher du 1er coup car il fallait aussi ,declarer "MaRéférence" en String et non en Range et lui faire prendre l'adresse de la cellule  
 

Reply

Marsh Posté le 01-07-2005 à 22:36:47    

Zut j'ai appuyé par erreur ... donc , je finis : Maintenant , ça marche impeccable ... alors encore merci et à plus tard

Reply

Sujets relatifs:

Leave a Replay

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