Copie Valeur défini dans une cellule

[GuillaumA]

Bonjour,

Soit la macro ci dessous présente en Feuil2 sur bouton de commande:

Sub AccèsAlaFeuilleA() 
    NomDeLaFeuille = Range("C5")
    If Range("Feuil1!H1") = "" Then [COLOR="Green"]'condition obligatoire dans mon cas, mais à ne pas prendre en compte dans le problème que j'énonce.[/COLOR]
    Sheets(NomDeLaFeuille).Select
    [COLOR="Red"]Sheets("Feuil2").Rows("C20:C20").PasteSpecial = NomDeLaFeuille[/COLOR]
End Sub

Je voudrais que, en même temps que de sélectionner la feuille qui a le nom défini en cellule C5, cette macro envoie ce nom dans la cellule C20.
J'ai rajouté ce qu'il y a en rouge et ça ne marche pas.
Aurais-je manqué quelque chose ?

Cordialement,
Guillaume A.

 

[Odesta]

Re : Copie Valeur défini dans une cellule

Bonjour

Comme ceci :

Sheets("Feuil2").[COLOR="Red"]Range[/COLOR]("C20").[COLOR="red"]Value [/COLOR]= NomDeLaFeuille

Cordialement

Olivier

 

[mth]

Re : Copie Valeur défini dans une cellule

Bonjour GuillaumeA,

A tout hasard ...

Sheets(NomDeLaFeuille).Range("C20") = NomDeLaFeuille

Bien à toi,

mth

Edit: Arf 🙂 décidément je te poursuis aujourd'hui Odesta 🙂
@ +,
m

 

[GuillaumA]

Re : Copie Valeur défini dans une cellule

Merci bien Odesta, mth.
Ça marche nikel! J'avais utilisé .Value avant mais à la place de

.Range("C20")

j'avais utilisé

.Rows("C20:C20")

.

Faudra que je comprenne un jour pourquoi ce que j'ai mis ne marche pas dans ce cas là mais marche dans d'autres.

Cordialement et encore merci!

Guillaume A.