help help

[meugzy]

bonjour dans le cadre de mes etudes je voudrais faire une macro qui créee une nouvelle feuille excel à partir de la feuille active je m'explique:j'ai une feuille active qui s'appelle feuille 2 avec des formules de calcul en I17,J17,K17,L17,M17 je voudrais que la nouvelle feuille reprenne le modéle de la feuille de calcul mais aussi incorpore les memes formules en I18,J18,K18,L18,M18.Ainsi de suite .je compte sur vous car je m'y connais pas trop en VBA et je dois obligatoirement le faire pour la semaine prochaine HELP!HELP!

 

[soenda]

Re : help help

Bonjour meugzy

A essayer

Sub CopierFeuille()
 
Sheets("Feuil2").Cells.Copy
 
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteAll
 
Rows("1:1").EntireRow.Insert Shift:=xlDown
 
[A1].Select
 
End Sub

A plus

 

[meugzy]

Re : help help

merci soenda c'est vraiment cool ça marche seul probléme :si formule en I17,J17,K17,L17 dans feuil 2 on execute la macro une premiere fois feuil 3 créee avec les formules en I18,J18,K18,L18 JUSQU'à ici TOUT VA BIEN mais si j'execute une deuxiéme fois la macro créée une feuil4 mais met les formules Toujours en I18,J18,K18,L18 et pas en I19,J19,K19,L19 tu comprends je veux que cela soit une suite autant de fois que l'on exécute la macro🙂

 

[soenda]

Re : help help

Bonsoir à tous, meugzy

Si formule en [I17:L17] dans "Feuil2" on exécute la macro une premiere fois "Feuil3" est créée avec les formules en [I18:L18]. Mais si j'exécute une deuxième fois, la macro créée "Feuil4" et met les formules en [I18:L18]. On les attendait en [I19:L19]...

No problem... Alors pour le fun:

Sub b()
    Dim nbL%, i As Integer
    nbL = Sheets.Count
 
    Sheets("Feuil2").Cells.Copy
 
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteAll
 
    For i = 3 To Sheets.Count
        Rows("1:1").EntireRow.Insert Shift:=xlUp
    Next
 
    [A1].Select
End Sub

A plus

 

[meugzy]

Re : help help

merci soenda tu es mon sauveur merci encore la ca marche nikel a+

 

[meugzy]

Re : help help

j'ai un probléme je pense que je me suis mal exprimé en faite :si une nouvelle feuille et crée à partir de l'ancienne si il ya une formule n en I17,J17,K17,L17,dans la feuil 2 si nouvelle feuille la ligne 17 reste la meme dans la feuil 3 et une ligne supplémentaire est insérée avec les memes formules que la ligne17.Autre chose c'est que la nouvelle feuille prendra toujours les données de l'ancienne feuille pas forcément de la feuil 2 mais de la feuil n-1

 

[soenda]

Re : help help

Bonsoir le fil, meugsy

La sub copie feuil n sur feuil n+1 (nouvellement créée),
ajoute une ligne (L = 18 pour feuil2) dans laquelle sont copiées les formules de feuil n avec liaison (résultat des formules avec les données de feuil n).

Donc en ligne L, on a les résultats de la feuille actuelle.
Et en ligne L + 1, on a les résultats de la feuille précédente.

Sub CopierFeuille()
    Dim L As Integer
    L = Sheets.Count + 16

    Sheets(Sheets.Count).Cells.Copy
 
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteAll
  
    Rows(L & ":" & L).EntireRow.Insert Shift:=xlDown
    
    Sheets(Sheets.Count - 1).Range("I" & L - 1 & ":L" & L - 1).Copy

    Sheets(Sheets.Count).Range("I" & L).Select
    ActiveSheet.Paste Link:=True
     
    [A1].Select
 
End Sub

A plus

 

[meugzy]

Re : help help

ca marche sauf que c'est le contraire que je veux:
ligne L, on a les résultats de la feuille précédente
Et en ligne L + 1, on a les résultats de la feuille actuelle.et enplus je veux que cela copie la ligne entiere

 

[meugzy]

Re : help help

finalement je m'améliore j'ai pu régler le probléme tout seul merci soenda et a+😀