Code plus court

[porcinet82]

Bonjour a tous,

J'ai juste une petite question, qui je suppose trouvera tres rapidement une reponse.
Lorsque l'on veut selectionner une feuille, puis une cellule dans cette feuille, le code Sheets('feuil1').Range('D1').Select ne fonctionne que si la feuille selectionnée est la feuille (ici) 1.
Si l'on est sur une autre feuille, il met une erreur. D'ou ma question, existe-t-il une commande dont le code fait :
Sheets('feuil1').Select
Range('D1').Select
mais en une ligne de code.

Merci d'avance pour les futures nombreuses réponses

@+

 

[myDearFriend!]

Bonjour porcinet82,

Tu peux également procéder comme suit :

      Application.Goto Sheets(1).Range('D1')

ou même :

      Application.Goto Workbooks('Classeur2.xls').Sheets(1).Range('D1')

pour activer le bon classeur le cas échéant (celui-ci doit être ouvert!).

Cela dit, en VBA, on a très peu l'obligation de sélectionner un objet range avant d'effectuer un traitement, et les select sont donc à éviter de toute façon...

Cordialement,

 

[porcinet82]

Salut,

Je te remercie de ce petit bout de code, c'est exactement ce que je recherchais.
Au plaisir de te recroiser.

@+