Bordure

Résolu
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention   -  
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

J'ai un problème avec le quadrillage de mon tableau, je fais un quadrillage complet de mon tableau qui part de 17, 1 et qui fini à 17, 37, j'ai ecrit le code suivant , mais le quadrillage déborde en dehors de ma mise en page sur 5 colonnes.
Il y a t'il une erreur de code ?

' With Range(Cells(17, 1), Cells(17, 36))
With Range(Cells(17, 1), Cells(totalRows, totalCols))
.Borders.LineStyle = xlContinuous
.Borders.Color = vbBlack
.Borders.Weight = xlThin
'.Interior.ColorIndex = xlNone
End With

Merci pour voter Aide.

Pascal



2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

totalRows, totalCols : ques aco ?

sinon au passage
.Borders.LineStyle = xlContinuous
.Borders.Color = vbBlack

les 2 paramètres vbBlack et xlcotinuos sont des valaurs pas défaut donc inutiles de les préciser


Michel
0
pascalou83400 Messages postés 277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Michel_m

Bon j'ai fini par trouver le code, mais bonce n'est pas évident pour un novice.

Merci.
Bonne journée.
Pascal
0