copier des formules avec les mois

[berto]

Bonjour
Je cherche a faire des copier/coller de formules avec chaque mois (voir fichier joint, onglet calcul) je voudrais copier toutes les formules du mois de février sur les autres mois mais en copiant la même formule mais avec Mars, Avril,Mai etc ...
merci de votre aide
cordialement

 

[Lone-wolf]

Bonjour berto

À mettre dans un module standard

Sub Copier_Formules()
Dim derlig&, col&, f

    On Error Resume Next
    Application.ScreenUpdating = False
 
    f = Array("mars", "avril", "mai", "juin", "juillet-août", "septembre", "octobre", "novembre", "décembre")
    derlig = Sheets("février").Cells(Rows.Count, "F").End(xlUp).Row
 
    For col = 6 To 104 Step 1
        Sheets("février").Cells(derlig, col).Copy
        Sheets(f).Cells(4, col).PasteSpecial Paste:=xlPasteFormulas
    Next col
 
    Application.CutCopyMode = 0
    Application.Goto Sheets("mars").Range("e4")
End Sub

 

[berto]

Bonjour berto

À mettre dans un module standard

Sub Copier_Formules()
Dim derlig&, col&, f

    On Error Resume Next
    Application.ScreenUpdating = False

    f = Array("mars", "avril", "mai", "juin", "juillet-août", "septembre", "octobre", "novembre", "décembre")
    derlig = Sheets("février").Cells(Rows.Count, "F").End(xlUp).Row

    For col = 6 To 104 Step 1
        Sheets("février").Cells(derlig, col).Copy
        Sheets(f).Cells(4, col).PasteSpecial Paste:=xlPasteFormulas
    Next col

    Application.CutCopyMode = 0
    Application.Goto Sheets("mars").Range("e4")
End Sub

 

[Lone-wolf]

Re

Quoi, c'est tout??

 

[berto]

Bonsoir
Merci mais j’ai pas tout compris en fait j’en veux que toutes les formules du mois de Février soient les mêmes pour les autres mois il faut que je copie mais qu’au lieu de février se soit mars, avril’ mai etc...merci de votre aide et est-ce possible de me dire la manipulation pour faire cela ou le module standard ?
Cordialement

 

[Lone-wolf]

Re

C'est ce que fait la macro, il faut savoir lire. Si c'est les formules des colonnes masquées.
Les autres les ont déjà.

f = Array("mars", "avril", "mai", "juin", "juillet-août", "septembre", "octobre", "novembre", "décembre")
Ce sont les noms des feuilles.

Voici une autre macro plus rapide

Sub Copier_Formules()
Dim derlig&, col&, k&, tablo(), tbl, f

    On Error Resume Next
    Application.ScreenUpdating = False

    f = Array("mars", "avril", "mai", "juin", "juillet-août", "septembre", "octobre", "novembre", "décembre")
    derlig = Sheets("février").Cells(Rows.Count, "F").End(xlUp).Row
    k = 3
    With Sheets("février")
        For col = 6 To 104 Step 1
            tbl = .Range("f4:" & .Cells(derlig, col))
            For i = 1 To UBound(tbl)
                k = k + 1
                tablo(tbl(k, col)) = tbl(i, col)
            Next i
        Next col
    End With

    Sheets(f).Range("f4").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub

 

[berto]

Bonjour
Je cherche a faire des copier/coller de formules avec chaque mois (voir fichier joint, onglet calcul) je voudrais copier toutes les formules du mois de février sur les autres mois mais en copiant la même formule mais avec Mars, Avril,Mai etc ...
merci de votre aide
cordialement

Merci de votre aide mais comment je fais un macro ?

 

[Lone-wolf]

Re

Pas besoin de la faire, puisque je l'ai faite ?! Ton classeur avec la macro. Pour la voir, clique sur Developpeur si tu l'as. Sinon, clic-droit sur la feuille, clique sur visualiser le code. À gauche tu verra Module 1. Clique dessus.

 

[berto]

Trop bien mille merci encore.
Bonne soirée

 

[Lone-wolf]

Re

@berto

si tu passe par ici. Il y a un problème avec la dernière macro. Prend cette version.

 

[JHA]

Bonjour à tous,

Un peu fastidieux mais avec la fonction indirect(), tu crées la première ligne de janvier et tu copies vers le bas.

JHA