XL 2013 valeur cellule active d'un onglet dans une cellule d'un autre onglet

[MCB]

Bonjour,
j'essaies par macro, après avoir créer une nouvel onglet de faire un égal dans une cellule avec la cellule active d'un autre onglet.
j'ai essayé avec activecell mais cela ne fonctionne pas.
merci pour votre aide
MCB

 

[Robert]

Bonjour MCB et bienvenu, bonjour le forum,

Il n'y a qu'une seule cellule active dans le classeur c'est la cellule active de l'onglet actif. Pour utiliser la cellule active de deux onglets différent il te faut les sélectionner chaque fois. Ce n'est pas très recommandé mais le code donnerait :

Sub Macro1()
Dim V As Variant

Worksheets("Feuil1").Activate
V = ActiveCell.Value
Worksheets("Feuil2").Activate
ActiveCell.Value = V
End Sub

 

[MCB]

Bonjour MCB et bienvenu, bonjour le forum,

Il n'y a qu'une seule cellule active dans le classeur c'est la cellule active de l'onglet actif. Pour utiliser la cellule active de deux onglets différent il te faut les sélectionner chaque fois. Ce n'est pas très recommandé mais le code donnerait :

Sub Macro1()
Dim V As Variant

Worksheets("Feuil1").Activate
V = ActiveCell.Value
Worksheets("Feuil2").Activate
ActiveCell.Value = V
[QUOTE="Robert, post: 20380869, member: 40"]
[COLOR=rgb(71, 85, 119)]Bonjour MCB et bienvenu, bonjour le forum,

Il n'y a qu'une seule cellule active dans le classeur c'est la [B]cellule active[/B] de l'[B]onglet actif[/B]. Pour utiliser la cellule active de deux onglets différent il te faut les sélectionner chaque fois. Ce n'est pas très recommandé mais le code donnerait :[/COLOR]
[CODE=vb]Sub Macro1()
Dim V As Variant

Worksheets("Feuil1").Activate
V = ActiveCell.Value
Worksheets("Feuil2").Activate
ActiveCell.Value = V
End Sub

End Sub[/CODE]
[/QUOTE]

Bonjour, merci pour ta réponse, malheureusement mon problème est un peu plus complexe. n'étant pas une pro du VBA.
j'ai réussi à faire une macro qui me crée un onglet à partir d'un onglet modèle nommé "vierge" et étant renommé avec la cellule que je sélectionne sur un autre onglet (qui donc est active). C'est dans ce nouveau onglet créé que je voudrai reprendre la valeur de la cellule sélectionnée dans un premier temps (cellule active de l'onglet) et la copier dans une cellule définie de l'onglet nouvellement créé. Je ne sais pas si je suis assez précise. Voici la première partie de ma macro qui fonctionne.
Sub creationnouvelonglet()
Dim Cel_Active_Recap As Range
Set Cel_Active_Recap = ActiveCell
Dim oSheet As Worksheet
Dim DejaLa As Boolean
DejaLa = False
Sheets("Vierge").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Cel_Active_Recap.Value
End Sub
encore merci pour ton aide
MCB

 

[Robert]

Re,

Ce n'est pas précis, tu adapteras...

Sub creationnouvelonglet()
Dim OS As Worksheet
Dim OD As worsheet
Dim V As String

Set OS = Worksheets("lenom") 'ou Set OS = ActiveSheet
OS.Activate 'si nécessaire
Set V = ActiveCell.Value
Sheets("Vierge").Copy after:=Sheets(Sheets.Count)
Set OD = ActiveSheet
OD.Name = V
OD.Activate 'si nécessaire...
OD.Range("TA_Cellule").Value = V
End Sub

 

[MCB]

Re,

Ce n'est pas précis, tu adapteras...

Sub creationnouvelonglet()
Dim OS As Worksheet
Dim OD As worsheet
Dim V As String

Set OS = Worksheets("lenom") 'ou Set OS = ActiveSheet
OS.Activate 'si nécessaire
Set V = ActiveCell.Value
Sheets("Vierge").Copy after:=Sheets(Sheets.Count)
Set OD = ActiveSheet
OD.Name = V
OD.Activate 'si nécessaire...
OD.Range("TA_Cellule").Value = V
End Sub

Désolée, j'ai mis ton code en macro avec mes données mais cela me mets un code erreur

j'aurai en encore besoin de ton aide pour y arriver
merci
MCB

 

[Phil69970]

Bonjour MCB, Robert, le forum

L'erreur est juste là

Dim OS As Worksheet
Dim OD As worKsheet

@Phil69970

 

[MCB]

Bonjour MCB, Robert, le forum

L'erreur est juste là

Dim OS As Worksheet
Dim OD As worKsheet

@Phil69970

Bonjour Phil69970,
merci pour votre aide à toi et à Robert

j'ai fait la modif, cela passe, mais il y a encore une erreur:

et là , je suis encore perdue
encore besoin d'une idée
merci
MCB

 

[Robert]

Re,

Merci à Phil de prendre le relai et désolé MCB car cette ligne contient effectivement une erreur. Comme V n'est pas une variable Objet il ne faut pas le Set devant :

V = Activecell.Value

 

[MCB]

Re,

Merci à Phil de prendre le relai et désolé MCB car cette ligne contient effectivement une erreur. Comme V n'est pas une variable Objet il ne faut pas le Set devant :

V = Activecell.Value

Merci à tout les deux, c'est génial, cela fonctionne à merveille
encore bravo
MCB

 

[Phil69970]

MCB, Robert, le forum

Essaye cela :

Sub creationnouvelonglet()
Dim OS As Worksheet
Dim OD As Worksheet
Dim V As String

Set OS = ActiveSheet 'ou 'Set OS = Worksheets("lenom")

OS.Activate 'si nécessaire
V = ActiveCell '.Value

Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)

Set OD = ActiveSheet
OD.Name = V
'OD.Activate 'si nécessaire...
OD.Range("A3").Value = V  'A3 est un exemple.....
End Sub

@Phil69970