Creer une feuille automatiquement

[BRUNO62]

bonsoir,

J'ai recherché dans le forum, j'ai essayé des applications mais je n'ai pas trouvé la bonne solution.
Je souhaiterais à partir d'une "feuille 2"reprendre les données en créant automatiquement une nouvelle feuille"?".

Avez vous une idée ?
Merci, d'avance
A+


Sub ()
With Sheets("Feuil2")

Je range des données de la "feuille 2" vers une feuille que je crée automatiquement.
😕
?.Range("a1") = "D"
?.Range("B1") = "F"
?.Range("C1") = "G"
With Feuil2
x = 2
y = 1
For i = 9 To 15 Step 2
For a = 3 To 12 Step 3
If a <> 9 Then Feuil"?"😕.Cells(x, y) = .Cells(a, i): y = y + 1
Next a
x = x + 1: y = 1
Next i
End With
Feuil"?"😕.Select
End Sub

 

[ROGER2327]

Re : Creer une feuille automatiquement

Bonjour BRUNO62

Qu'entendez-vous par :

[COLOR="DarkSlateGray"][B]?.Range("a1") = "D"[/B][/COLOR]

Pour le dire autrement, souhaitez-vous que la cellule A1 de la nouvelle feuille contienne la lettre D ?
D'une manière plus générale, pourriez-vous dire exactement quelles données de la feuille d'origine voulez-vous voir transférées dans la nouvelle feuille, et à quel endroit ?
L'idéal serait que vous pussiez déposer un modèle de la feuille de départ et un modèle de la nouvelle feuille correspondante.​

ROGER2327
#3574

Mercredi 11 Merdre 137 (Saint Memnon, vidangeur, SQ)
9 Prairial An CCXVIII
2010-W21-5T20:28:29Z

 

[camarchepas]

Re : Creer une feuille automatiquement

Bonsoir,
Voici pour la création, le test feuille existe et la copie des infos , par contre a vérifier pour les infos.
Voici😛

 

[BRUNO62]

Re : Creer une feuille automatiquement

Bonjour,

Merci, pour vos retours.

J'ai illustré ma demande dans une pièce jointe.
Cela est possible si je crée une feuille avant le lancement de la macro.

Je ne sais pas si cela sera possible !

Merci, d'avance.
A+

 

[Dull]

Re : Creer une feuille automatiquement

Salut Bruno, camarchepas🙂, Roger🙂,le Forum

Peut-être comme cela

Option Explicit

Sub copie()
    Dim i%, Fin%, a%, x%, y%
    Sheets.Add
    ActiveSheet.Name = "Feuil2"

    With Sheets("Feuil2")
        .Range("A1") = "A"
        .Range("B1") = "D"
        .Range("C1") = "G"
    End With
    With Feuil1
        x = 2
        y = 1
        For i = 9 To 15 Step 2
            For a = 3 To 12 Step 3
               If a <> 9 Then Sheets("Feuil2").Cells(x, y) = .Cells(a, i): y = y + 1
            Next a
          x = x + 1: y = 1
        Next i
    End With
    Sheets("Feuil2").Select
End Sub

Bonne Journée

 

[camarchepas]

Re : Creer une feuille automatiquement

Bonjour à tous ceux qui nous rejoignent sur ce fil,

Voici ma version ;
en prime tu peux nommer la nouvelle feuille comme tu le désires

 

[BRUNO62]

Re : Creer une feuille automatiquement

Merci à Dull , camarchepas, ROGER2327 c'est ok.
Je vais pouvoir continuer ma macro.

Bonne soirée.
A+