Discussion :

[charlingals1]

Bonjour

J'ai un problème je n'arrive pas à mettre des bordures en dynamique à tous mes tableau sur une fiche Excel

La situation je construit par le code VBA un tableau sur Excel chaque tableau est composé chacun de 11 colonne et 43 lignes.

Les tableaux sont séparé chacun par 2 colonnes et par une ligne. Il faut que je mette des bordures sur tous les tableaux sans recouvrir les bordures de séparément. J'ai fait mon code, mais il plante "Objet non définis"

Voici le code (Il s'agit juste du code pour mettre les bordures, il plante sur le With)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 7 To 12
With .Range(Cells(Ligne, colonne), Cells(Ligne + 39, colonne + 10)).Borders(i)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = 1
End With
Next i

Ligne et colonne sont déclaré en integer
Ligne = 3 et colonne = 1

Si quelqu'un à une idée d'où peut venir le problème
Merci

[LE VIEUX]

Bonjour,
quel rapport avec ACCESS ?
with doit s'appliquer à l'objet que tu veux éviter de répéter il ne doit pas y avoir de . entre with et ton objet.

[charlingals1]

Bonjour

quel rapport avec ACCESS ?

J'ai oublier de préciser que le fichier Excel je le génère à partir d'ACCESS

with doit s'appliquer à l'objet que tu veux éviter de répéter il ne doit pas y avoir de . entre with et ton objet.

Pour éviter les répétitions dans mon code, j'ai mis plusieurs "With"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With xlBook.Worksheets(F_resultat)
...
For i = 7 To 12
With .Range(Cells(Ligne, colonne), Cells(Ligne + 39, colonne + 10)).Borders(i)
       .LineStyle = xlContinuous
       .Weight = xlThin
       .ColorIndex = 1
End With
Next i
...
End with

J'ai dis qui planter sur le "with" mais c'est la ligne du with je pense plutôt que le problème viens de la sélection de ma zone (Range(Cells(),Cells())

Mais je ne vois pas du tout où pourrai être le problème

Cordialement

[charlingals1]

Bonjour

J'ai résolu mon problème. Je vous remercie de votre aide

Cordialement