Mise en forme consitionnelle avec VBA

[alami04]

Bonjour
après 2 jours de recherche, je n'arrive pas à résoudre mon Prb qui est le suivant :
j'ai utilisé l'enregistreur des macros pour créer une macro qui permet de faire une bordure simple sur une plage de cellules si la première cellule est <> du vide. la macro fonctionne correctement dans Excel 2010 et 2007, sauf que si je l'insère dans mon application avec d'autre code ça ne marche pas.
le code de la macro est le suivant :
Range("B1:B20).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B$1<>"""""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
' -----idem pour les bodures : xlRight, xlTop,xlBottom-----
j'ai remarqué que sur la version 2010 ca marche nickel et sur 2007 ca plante au niveau des propriétés : LineStyle, TintAndShade, Weight. (Erreur 1004)
Ma question : est qu'il a quelqu'un qui a déja recontrer ce genre de prob au niveau de l'application de la mise en forme conditionnelle.
MErci d'avance pour vos réponses

 

[Hervé]

Re : Mise en forme consitionnelle avec VBA

salut

pas sur d'avoir tout compris, mais rassure toi ca doit venir de moi

un bout de code pour te montrer comment ta demande doit être codé :

If Range("b1") <> "" Then
    Range("b1:b20").Borders(xlLeft).LineStyle = xlContinuous
End If

salut