Un code simple qui ne fonctionne pas

Bonjour,

Pourriez vous me dire pourquoi ce code n'est pas bon pour mettre une bordure en place sur une autre feuille :

Code:

---

Sheets("Affiliations").Range(Cells(DLig, 1), Cells(DLig, 37)).Select

---

Que je dois le remplacer par :

Code:

---

1 2	Sheets("Affiliations").Select Range(Cells(DLig, 1), Cells(DLig, 37)).Select

---

pour que cela fonctionne
C'est juste que je ne veux pas avoir les flashs des changements de feuille, ce code faisant partie d'une boucle.

Merci pour votre aide

Bonjour,

ton range est bien rattachée à la feuille voulue .... mais pas les Cells qui sous-définissent la zone précise

oubli fréquent, problème classique

d'où une solution standard

Code:

---

1 2 3 4 5

Sub toto() With Sheets("Affiliations") .Range(.Cells(DLig, 1), .Cells(DLig, 37)).Borders.LineStyle = xlContinuous End With End Sub

---

je te laisse adapter le style de bordure souhaitée

Bonjour
Enfin ... la question était pourquoi le 1er code ne marche pas alors que marche le second, non ?
A Louax, donc :
tout simplement parce qu'il n'est pas possible de sélectionner sur une feuille non active (ou sélectionnée).

La réponse de Joe.levrai est bonne. Son code agit, lui, directement sur les objets Excel et ne passe pas par des Selection bien inutiles et lourdes ...

Bonjour,
Dans le premier code tu veux actionner l'interrupteur de la cuisine alors que tu te trouve dans la chambre!

Et le deuxième tu te rends dans la cuisine afin d'actionner l'interrupteur!

Merci à tous pour votre aide, je ne savait pas qu'il fallait mettre des "." devant "cells"
Cette aide m'a été préciseuse