Inputbox et autre feuille

[nono555]

Bonjour,

J'utilise la fonction application.InputBox dans un classeur VBA pour demander à l'utilisateur de sélectionner une cellule.

mon code ressemble à ça :
cellulechoisie = application.inputbox....
cellulechoisie.select

J'appelle cette fonctionne via un bouton de la feuille 1.

Le problème est que quand je sélectionne une cellule sur une autre feuille, ça bugue (La méthode Select de la classe Range a échoué).

Comment contourner le problème ?

Par ailleurs, comment peux-t-on faire choisir une cellule à l'utilisateur à partir d'un useform ?

Merci d'avance.

Nono

 

[Pierrot93]

Re : Inputbox et autre feuille

Bonjour,

mon code ressemble à ça :

le mieux eût été de voir le code réellement utilisé...

bon après midi
@+

 

[nono555]

Re : Inputbox et autre feuille

Le voici,

Set PLAGETRIANGLE = Application.InputBox( _
prompt:="Selectionner la première cellule du triangle à actualiser", Type:=8)

PLAGETRIANGLE.Select

Merci

 

[TempusFugit]

Re : Inputbox et autre feuille

Bonjour

Essaie cette macro

Sub test()
Dim PLAGETRIANGLE As Range
Set PLAGETRIANGLE = Application.InputBox(prompt:="Selectionner la première cellule du triangle à actualiser", Type:=8)
Sheets(PLAGETRIANGLE.Parent.Name).Activate
Range(PLAGETRIANGLE.Address).Select
End Sub

 

[TempusFugit]

Re : Inputbox et autre feuille

Ou plus simple

Sub test()
Dim PLAGETRIANGLE As Range
Set PLAGETRIANGLE = Application.InputBox(prompt:="Selectionner la première cellule du triangle à actualiser", Type:=8)
Sheets(PLAGETRIANGLE.Parent.Name).Activate
PLAGETRIANGLE.Select
End Sub