Sélectionner la cellule avec Application.InputBox("texte", Type:=8)

Bonjour,
Je souhaite demander à l'utilisateur de m'indiquer où il veut coller le résultat.
J'utilise cette fonction :

Code:

---

1 2	Set cellule_destination = Application.InputBox("selectionnez la cellule où vous voulez coller les données.", Type:=8) cellule_destination.select

---

Lorsqu'il sélectionne une cellule sur la page actuelle c'est bon, j'arrive à la sélectionner avec le code .select
Mais lorsqu'il sélectionne une cellule sur une autre page (et même un autre fichier) je n'arrive pas à utiliser la fonction select.

Avez-vous une idée svp ?
Merci d'avance, bonne soirée.

Bonjour,

Par acquis de conscience, je rappelle que les actions de sélection sont à éviter autant que faire se peut...
Quant à la raison de votre problème : il n'est possible de sélectionner une cellule que dans la feuille active d'un classeur actif.
Proposition de code :

Code:

---

1 2 3 4 5 6 7

Dim Rng As Range, Sht As Worksheet, WrkBk As Workbook Set Rng = Application.InputBox("Selectionnez la cellule où vous voulez coller les données.", Type:=8) Set Sht = Rng.Parent Set WrkBk = Sht.Parent WrkBk.Activate Sht.Activate Rng.Select

---

Cdt

Fonctionne parfaitement top ! Je vous remercie