Macro - Création de nvlles feuilles et MAJ de formules

[T-Bow]

Bonjour à tous,

Cette question a surement déjà due etre posé précedemment, mais je ne m’y connais pas assez en VBA pour réussir à extraire les morceaux de code qui me seraient utiles….

Je souhaiterais donc pouvoir créer un code qui fasse automatiquement :

- Copier deux feuilles existantes à l’identique et les coller derrière une feuille donnée (jusque la j’ai réussi)

Sheets("Variante PAC (1)" ).Select
    Sheets("Variante PAC (1)" ).Copy before:=Sheets("Données graphique" )
   
    Sheets("Tx couv Pac (1)" ).Select
    Sheets("Tx couv Pac (1)" ).Copy before:=Sheets("Données graphique" )

Simple je sais... mias beaucoup plus je sais pas faire

- Renommer ces feuilles en incrémentant leurs numéro de un en un (ou proposer une Msg box pour entrer ce qu’on veut…), voila ce que j'ai trouver à droite à gauche en me baladant sur la toile:

'Création de ta feuille
PR.Copy After:=Worksheets(3)
Set sh_revue = Worksheets(4)
sh_revue.Name = "Revue 0"

' Trouver l'indice existant max
Dim b As Boolean
Dim x As Integer
Dim ws As Worksheet

x = 0
Do
    b = False
    For Each ws In Worksheets
        If ws.Name = "Revue " & x Then
            x = x + 1
            b = True
        End If
    Next
Loop While Not b

MsgBox "Création de la revue N°" & x

'nommage
sh_revue.Name = "Revue " & x
sh_revue.Range("D14" ).Value = Date
sh_revue.Range("B14" ).Value = x

Je pense que c'est ce qui se situerait là-dedans, mais je n'arrive pas à l'adapter à mon cas...

- Mettre à jour les formules dans mes deux feuilles créées, à savoir, dans ‘Variante PAC (X)’ dans les cellules B83

'Tx couv Pac (1)'!$C$37/Informations!$C$46

dans

‘Tx Couv Pac(X)’ les cellules A3 à 36

SI(Informations!A12<'Variante PAC (1)'!$C$6;0;Informations!A12)

- Et finalement ajouter les résultats dans un tableau sur la feuille ‘Données Graphique’ en faisant en sorte qu’à chaque création de série des deux feuilles les résultats s’ajoutent une ligne en dessous…

Voilà je ne sais pas à quel point c’est compliqué à réaliser pour quelqu’un qui maitrise l’outil, mais personnellement je suis bloqué….


Ficher joint: http://cjoint.com/?gloqsdGVru



Merci d'avance a tous...

 

[T-Bow]

Re : Macro - Création de nvlles feuilles et MAJ de formules

Personne pour me répondre ???? Si il vous manque des informations je peux toujours essayer d'y répondre....