Discussion :

[JulieLesp]

Bonjour,

Après exportation des données sur une autre feuille, j'essaye de la mettre en forme via cette commande:

Worksheets("98").Range(Cells(j + 4, 1), Cells(j + 4, 15)).Borders(xlEdgeBottom).LineStyle = xlDouble

Seulement quand je lance la macro, je me retrouve avec cette erreur: Run Time error '1004' Application-defined or object-defined error
Quand j'utilise juste: Range(Cells(j + 4, 1), Cells(j + 4, 15)).Borders(xlEdgeBottom).LineStyle = xlDouble , mon code fonctionne bien mais sur la page principale sans problème

J'ai donc essayé différents substerfuges pour essayer de contourner l'erreur et arrivé à mettre en page la page "98" comme par exemple avec la fonction With

With Worksheets("98")
.Range(Cells(j + 4, 1), Cells(j + 4, 15)).Borders(xlEdgeBottom).LineStyle = xlDouble
End With

Malheuresement, l'erreur reste la même

Je ne comprends pas d´ou vient mon erreur. Pouvez vous m'accorder votre aide s'il vous plait?

[Marc-L]

Bonjour,

tu as juste oublié d'indiquer la feuille de calculs devant chaque Cells
car tel quel ton code travaille avec les Cells de la feuille active !

Avec l'aide VBA interne de l'instruction With, le point ne doit pas être devant le Range mais bien devant les Cells !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[JulieLesp]

Merci beaucoup pour ta réactivité. J'aurais appris quelque chose aujourd'hui. Ca marche désormais