Récupérer une valeur de variable contenant cellule

Sub exemple()

    Dim wk_fichier As Workbook
    Dim ws_feuil1 As Worksheet
    Dim ws_feuil2 As Worksheet
    Dim cellule As String

    Set wk_fichier = ActiveWorkbook
    Set ws_feuil1 = wk_fichier.Worksheets("Reporting_Marques_Juin")
    Set ws_feuil2 = wk_fichier.Worksheets("Stats a N")

    cellule = InputBox("Entrez vers quelle cellule copier la première valeur :", "cellule")

    ws_feuil2.Cells(5, 2) = ws_feuil1.Cells("cellule")

End Sub

Ce que je souhaite faire c'est saisir la cellule de ma feuille Reporting_Marques_Juin qui va recevoir la valeur de la cellule ici 5,2 de ma feuille Stats à N

J'ai une erreur au niveau de cette ligne :

ws_feuil2.Cells(5, 2) = ws_feuil1.Cells("cellule")

Apparemment ma syntaxe pas correcte ou je n'envoi pas le bon format dans ma variable cellule. j'aimerai y rentrer une valeur tel que B12 et num ligne, num colonne

Merci

Bonsoir,

Si l'inputbox mentionne B12 par exemple, essayez comme ceci :

ws_feuil2.Cells(5, 2) = ws_feuil1.Range(cellule)

Rem : Evitez d'utiliser des noms de formules disponibles dans Excel comme nom de variable. Ici CELLULE (que j'ai laissé tel quel). Remplacez CELLULE par "Cel" ou "valeur" par exemple

Crdlt

Bonjour,

n'y a t il pas inversion des valeurs à ce qui est demandé ?
"Ce que je souhaite faire c'est saisir la cellule de ma feuille Reporting_Marques_Juin qui va recevoir la valeur de la cellule ici 5,2 de ma feuille Stats à N"
(En plus dans l'énnoncé le nom de la feuille est Stats à N et dans le code il n'y a pas d'accent sur le "a"...)

Ce qui donne : ws_feuil1.Range(cellule)=ws_feuil2.Cells(5, 2)

@ bientôt

LouReeD

Bonjour,

@Loo Reed :

n'y a t il pas inversion des valeurs à ce qui est demandé ?

je me suis également posé la même question mais vu le code proposé je suis resté dans la même direction que le demandeur

J'attendais de voir sa réponse

A voir ce qu'il va dire...

A+

Merci les amis ça fonctionne, il y avait bien une inversion ;-)

Bonjour,

merci pour ce retour et remerciements !
Comme quoi quelque fois il suffit de lever la tête du guidon !

@ bientôt

LouReeD

Bonjour,

Bon pour faire comme LooReed...., merci du retour

crdlt