V = Activecell.Value
Sub Macro1()
Dim V As Variant
Worksheets("Feuil1").Activate
V = ActiveCell.Value
Worksheets("Feuil2").Activate
ActiveCell.Value = V
End Sub
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 :
VB: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
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 erreurRe,
Ce n'est pas précis, tu adapteras...
VB: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
Bonjour Phil69970,Bonjour MCB, Robert, le forum
L'erreur est juste là
Dim OS As Worksheet
Dim OD As worKsheet
@Phil69970
V = Activecell.Value
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 :
VB:V = Activecell.Value
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