copier coller dans une nouvelle feuille

[Tail]

bonjour
j'ai ce code pour creer la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Na me = Target
End If
Sheets("base").Activate
End Sub


mais ensuite j'aimerai copier le contenu d'une autre et le coller dans la nouvelle feuille qui vient de se creer.
merci de votre aide

 

[Dull]

Re : copier coller dans une nouvelle feuille

Salut Tail, le Forum

un essai en pièce jointe
si j'ai bien compris

Remplace

Sheets("[B]Feuil2[/B]").Cells.Copy

par

Sheets("[B]LeNomDeTaFeuilleACopier[/B]").Cells.Copy

Bonne Journée

PS: Evite d'ouvrir plusieurs post pour un seul et même sujet

 

[Tail]

Re : copier coller dans une nouvelle feuille

cool merci