Discussion :

[Louax]

Bonjour,

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

Code :

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

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

Que je dois le remplacer par :

Code :

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

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

[joe.levrai]

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 :

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

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

[unparia]

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 ...

[Invité]

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!

[Louax]

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