Nom de feuille variable avec Range

Bonjour,

Je cherche à écrire une formule VBA, avec un nom de feuille variable, dont le nom se trouve dans une cellule :

Cette ligne fonctionne : Range("LISTE!d" & (ligne)) = Range("Fiche1!s16")

Mais je voudrais remplacer Fiche1 , par une variable se trouvant dans la cellule E13 de la feuille Liste.

Voilà merci pour vos réponses

Bonjour,

Vous pouvez essayer avec :

dim NomOnglet as string

NomOnglet = sheets("Fiche1").Range("E13").value

Range("LISTE!d" & (ligne)) = Range(NomOnglet & "!s16")

Si cette réponse marche et vous convient, n'oubliez pas de valider cette réponse à côté de mon nom

Cindy

Bonjour le forum,

Peut-être comme ça :

Range("LISTE!d" & (ligne)) = Worksheets(Worksheets("Liste").Range("E13").Value).Range("S16").Value

[Édition]

Bonjour Cindy, nos posts se sont croisés...

Oui, ça revient au même, juste sur une seule ligne.

Je m'étais trompée de feuille pour votre case E13, donc comme le dit ThauThème, c'est bien :

dim NomOnglet as string

NomOnglet = sheets("Liste").Range("E13").value
Range("LISTE!d" & (ligne)) = Range(NomOnglet & "!s16")

ou en concaténant tout :

Range("LISTE!d" & (ligne)) = Range(sheets("Liste").Range("E13").value & "!s16")

Cindy

PS : Pas de soucis ThauThème car "tout seul on va plus vite, ensemble on va plus loin"!

Un grand Merci, pour toutes ces réponses, je ne les ai pas essayées, car j'ai fini par comprendre mon erreur : un espace intempestif dans la cellule E13 m'a fait tourner en bourrique. Mon code qui fonctionne maintenant est :

NomFiche = Sheets("Fichier").Range("e13").Value

: je récupère le nom de ma feuille dans la feuille LISTE

Range("LISTE!b" & (ligne)) = Sheets(NomFiche).Range("b13")

: j'écris dans la feuille LISTE le contenu de la cellule B13 de la Feuille demandée

Bonsoir UtilisateurVBA,

si tu lances ta macro à partir de la feuille "Liste", le plus simple est :

Cells(ligne, 2) = Worksheets([Fichier!E13]).[B13]

sinon, tu peux mettre :

Range("Liste!B" & ligne) = Worksheets([Fichier!E13]).[B13]

dhany