Discussion :

[ChrisM972]

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 :

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

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

[Pierre Fauconnier]

Salut.

Utilise de suite la cellule récupérée par l'Inputbox. Attention que l'annulation de l'inputbox génère une erreur.

Code :

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

1
2
3
4
5
6
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
Cellule.Copy Destination:=Range("a13")
End Sub

[ChrisM972]

Donc si j'ai bien compris,

ma variable équivaut ici à "Range("Référence Cellule")" ?

Donc pour faire une sélection par exemple, je peux directement faire un Variable.Select ?

Merci pour l'aide la macro fonctionne !

[Pierre Fauconnier]

Ta variable Cellule est un objet de type Range qui représente la plage sélectionnée via InputBox. Tu manipules donc cet objet comme n'importe quel objet Range

Si tu as saisis la cellule B3 dans l'inputbox, c'est comme si avais écrit le code set cellule = range("b3").

Inputbox avec l'option 8 te permet ainsi de manipuler une plage qui est déterminée par l'utilisateur au moment de l'exécution de la fonction.

Est-ce plus clair?

[ChrisM972]

Oui j'ai bien compris, j'ai fais plusieurs tests. Je marque comme résolu.