Bordure

Résolu
pascalou83400 Messages postés 285 Date d'inscription   Statut Membre Dernière intervention   -  
pascalou83400 Messages postés 285 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

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. pascalou83400 Messages postés 285 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