Bordure

Résolu/Fermé
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 29 oct. 2015 à 17:23
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 31 oct. 2015 à 08:48
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 30/10/2015 à 08:42
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
31 oct. 2015 à 08:48
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