Macro format modif rayure

feti · 30 Janvier 2008

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 · 30 Janvier 2008

Re : Macro format modif rayure

Bonjour feti

une piste !

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

skoobi · 30 Janvier 2008

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 · 30 Janvier 2008

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

Macro format modif rayure

feti

Guest

GPLIONEL

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

feti

Guest

Discussions similaires

Macro format modif rayure

feti

Guest

GPLIONEL

XLDnaute Occasionnel

skoobi

XLDnaute Barbatruc

feti

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency