Discussion :

[chloe.secli]

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

Code :

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

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.

[Ben_L]

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 :

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

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

[chloe.secli]

Fonctionne parfaitement top ! Je vous remercie