Récupérer valeur d'une InputBox

[mikael2235]

Bonjour,

Je souhaite faire une InputBox pour que l'utilisateur saisisse le numéro de la cellule. J'ai donc fait une ImputBox, mais je n'arrive pas à récupérer la valeur. Voir mon code ci-dessous.

Au départ, je voulais mettre un MsgBox pour que l'utilisateur sélectionne la case, mais pendant le MsgBox, on est bloqué, et donc impossible de sélectionner.

 '----InputBox----
    Dim NumCellule As String
    
    Windows("FI et FR volet MC1-6217 C234.xls").Activate
    NumCellule = InputBox("Indiquer le nom de la cellule à exporter, Heure de moulée")
               
    '----Copie l'heure----
    
    Range("NumCellule").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("carte_controle.xls").Activate
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Merci pour votre aide.

Si une solution plus simple, n'hésitez pas.

Mikael

 

[Caillou]

Re : Récupérer valeur d'une InputBox

Bonjour,

Enlève les guillemets autour de NumCellule dans la ligne :
Range("NumCellule").Select

Caillou

 

[mikael2235]

Re : Récupérer valeur d'une InputBox

Bonjour,

Enlève les guillemets autour de NumCellule dans la ligne :
Range("NumCellule").Select

Caillou

Excuse, c'était un essai que j'avais fait, mais sans les guillemets, ça ne fonctionne pas non plus.

Est-ce que pour une cellule formatée (ex : AB1), je dois mettre dans ma InputBox, A1 ou AB1 ?

Merci

 

[Caillou]

Re : Récupérer valeur d'une InputBox

Excuse, c'était un essai que j'avais fait, mais sans les guillemets, ça ne fonctionne pas non plus.

Mais, même pour faire un essai, il ne faut pas les guillemets !

Est-ce que pour une cellule formatée (ex : AB1), je dois mettre dans ma InputBox, A1 ou AB1 ?

Dans l'inputbox, tu tapes la référence de la cellule à traiter ! que cette cellule soit formatée ou pas, cela ne change rien

Caillou

 

[mikael2235]

Re : Récupérer valeur d'une InputBox

C'est bon en tapant A1, par contre quand je fais AB1 ça ne fonctionne pas !

 

[Pierrot93]

Re : Récupérer valeur d'une InputBox

Bonjour Mikael, Caillou

Essaye la méthode "inputbox" plutôt que la fonction, cela te permettra de sélectionner directement sur la feuille une cellule ou une plage :

Dim x As Range
On Error Resume Next
Set x = Application.InputBox("choisissez une cellule...", , , , , , , 8)
On Error GoTo 0

bon après midi
@+

 

[Pierrot93]

Re : Récupérer valeur d'une InputBox

Re

Aarf, bien vu cc, c'est bien le 8 qu'il fallait lire....

 

[mikael2235]

Re : Récupérer valeur d'une InputBox

Bonjour Mikael, Caillou

Essaye la méthode "inputbox" plutôt que la fonction, cela te permettra de sélectionner directement sur la feuille une cellule ou une plage :

Dim x As Range
On Error Resume Next
Set x = Application.InputBox("choisissez une cellule...", , , , , , , 8)
On Error GoTo 0

@+

Salut Pierrot,

Avec ce code, il me met l'erreur d'éxécution 91 : Variable objet ou variable de bloc With non définie

et avec le

Dim NumCellule As Range
On Error Resume Next
Set NumCellule = Application.InputBox("Indiquer le nom de la cellule à exporter", "Heure de moulée", , , , , , 8)
Range(NumCellule).Select
On Error GoTo 0

Il me met erreur d'éxécution 1004 : La méthode Range de l'objet _Global à échoué !

Et pour moi ces codes erreurs, c'est un peu du chinois.

 

[Pierrot93]

Re : Récupérer valeur d'une InputBox

Bonjour à tous

comprends pas trop... le code, placé dans un module standard, fonctionne chez moi....

[B][COLOR="Blue"]Dim x As Range[/COLOR][/B]
On Error Resume Next
Set x = Application.InputBox("choisissez une cellule...", , , , , , , 8)
On Error GoTo 0

tu as bien renseigné la ligne en bleu...