[MACRO] Encadrement par VBA

[GuizmoD]

Bonjour à tous,

Je fais de nouveau appel aux experts pour m'aider dans la mise en forme par macro d'un tableau.

J'essaye d'entourer plusieurs plages de cellules par des bordures xlmedium xlcontinue.

Voilà ce que j'ai essayé de faire mais avec cette macro j'ai seulement le contour de tout le tableau qui est entouré par des bordures or je voudrais que toutes les plages présentes dans ce code soient entourées par une bordure.

Range(Cells(5, 1), Cells(5, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(6, 1), Cells(DernLigne2, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 1), Cells(5, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 6), Cells(5, 8)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 9), Cells(5, 10)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Range(Cells(5, 11), Cells(5, 12)).CurrentRegion.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

Merci pour votre aide.

GuizmoD

 

[Paf]

Re : [MACRO] Encadrement par VBA

bonjour,

essayer de supprimer .CurrentRegion dans chaque ligne de code.

Bonne suite

 

[GuizmoD]

Re : [MACRO] Encadrement par VBA

Ça fonctionne en effet.

merci pour ton aide!