Macro format modif rayure

[feti]

Bonjour à tous,

J'utilise Windev pour faire des transfert de données de base vers Excel pour ce faire j'utilise OLE. Je cherche a pouvoir rayer diagonalement des cases (dans excel: click droit>>format>>motif>>Rayure diagonale fine).

Quelqu'un ici connaitrais t'il le code VBA ou OLE pour obtenir ceci?

Merci d'avance

 

[GPLIONEL]

Re : Macro format modif rayure

Bonjour feti

une piste !

With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

 

[skoobi]

Re : Macro format modif rayure

Bonjour,

tu démarres l'enregistreur de macro (outil - macro - nouvelle macro avec excel 2003), puis tu refais ta manip, ensuite tu arrête l'enregistrement et tu récupère le code VBA dans l'éditeur de macro Alt+F11 puis dossier "Module1".

 

[feti]

Re : Macro format modif rayure

Merci grace a ta réponse j'ai pu trouvé ce qu'il me fallait 🙂
Ca donne ca en OLE windev
:m_xExcel>>Selection>>Borders(6)>>LineStyle = 1
Avec 6 en constante pour xlDiagonalUp
et 1 pour xlContinuous

J'ai trouvé les constantes sur ce site ICI

Merci