Sélectionner une cellule en fonction d'une variable RANGE
Bonjour à tous,
je m'initie depuis très peu au VBA (je ne suis pas informaticien, mais j'ai une réelle volonté d'apprendre :) ...) , et je me teste un peu sur tout en codants des petits programmes.
Voici donc mon problème :
Je veux que mon code demande à l'utilisateur une référence de cellule, stockée dans une variable, puis on utilise en suite cette référence pour copier le contenu ailleurs.
Code:
1 2 3 4 5 6 7 8 9
|
Sub InputRefCell()
Dim Cellule As Range 'Variable dans laquelle sera stockée la référence Cellule demandée à l'utilisateur, ex "A1"
Set Cellule = Application.InputBox("choisissez votre Cellule Nom", "Nom", Type:=8) 'Je demande à l'utilisateur la cellule à sélectionner la cellule en question
Sheets(Feuil2).Range(Cellule).Select 'Je sélectionne la cellule à copier (le Débogueur bloque ici )
Selection.Copy Destination:=Range("a13")
End Sub |
Le débogueur bloque à la sélection de la cellule en questionne fonction de la référence entrée par l'utilisateur. J'ai l'impression que "Range" ne reconnaît pas le contenu de ma variable.
Comment faire pour arriver à mes fins?
Cordialement,
Chris