Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fin))

[Sebast]

Bonjour à toutes et à tous,

ma question porte sur l"'adresse" que je donne à un range.

Après moult essais, je ne comprends pas pourquoi la ligne plante :

Set Zone = Sheets("DraftAchat").Range(Rows(début), Rows(fin))

alors que sans le Sheets("DraftAchat") devant ça ne plante pas …

du coup, je suis obligé d'utiliser un Sheets("DraftAchat").activate alors qu'on lit partout que ça n'est pas le mieux et au pire une pâle copie de l'enregistreur de macros très bavard !

Au-delà de ça, pourquoi Set Zone = Sheets("DraftAchat").Range(Rows(début), Rows(fin)) plante ?
(voir code dans fichier joint)

Merci d'avance pour vos avis et suggestions

 

[Pierrot93]

Re : Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fi

Bonjour,

essaye ceci, non testé :

With Sheets("DraftAchat")
    Set Zone = .Range(.Rows(début), .Rows(fin))
End With

bonne journée
@+

Edition : bonjour PierreJean🙂

 

[pierrejean]

Re : Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fi

Bonjour Sebast

A tester:

 Set Zone = Sheets("DraftAchat").Range(Sheets("DraftAchat").Rows(début), Sheets("DraftAchat").Rows(fin))

Edit: Salut Pierrot (avais pas rafraichi !)

 

[Sebast]

Re : Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fi

Bonjour Pierrot,

merci pour ton aide.
ça marche !!!

Etait-ce chez moi un problème de syntaxe ?

Bonne journée

 

[Sebast]

Re : Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fi

Bonjour PierreJean,

trop fort ! impeccable !
C'était donc visiblement un problème de syntaxe chez moi

encore merci

 

[Pierrot93]

Re : Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fi

Re,

oui normal, tu précise l'objet "feuille" auquel se rapporte l'objet "range" mais pas au niveau des propriétés "Rows", donc si la feuille active n'est pas la même que la feuille spécifiée de l'objet "range", cela renvoie une erreur.... même punition, si code dans module de feuille et si elle est différente....

 

[Sebast]

Re : Sheets("DraftAchat") devant instruction fait planter .Range(Rows(début), Rows(fi

Re,

l'à peu près se paie au prix fort quand on code ... merci pour ces précisions qui me font progresser doucement.