copier bouton de macro avec son code

[grotsblues]

Bonjour à vous tous

Est il possible de copier et coller un bouton de macro avec son code dans plusieurs classeurs xl fermés.

De plus, je souhaiterai copier 2 cellules qui contient une formule et qui se trouve en f3 et f4 et la coller toutes les 55 lignes dans la colonne f et cela jusqu'à 3000, j'ai essayé ce code sans succés

Merci pour vos réponses

Sub copiermois()

Dim i As Long

For i = 3 To 34868 Step 55

Range("f3:f4").Copy Destination:=Range("f58").End(xlDown).Offset(i, 0)


Next i

End Sub

 

[vgendron]

Re : copier bouton de macro avec son code

Hello

pour ta macro, essaie plutot ceci

Sub Macro1()

    Range("F3:F4").Select
    Selection.Copy
    For i = 55 To 34868 Step 55
        Range("F" & i).Select
        ActiveSheet.Paste
    Next i
    
End Sub

note: ta boucle s'arrete à la ligne 34868... on est loin des 3000 dont tu parles..

 

[grotsblues]

Re : copier bouton de macro avec son code

Merci beaucoup pour la réponse super cela fonctionne, de faite je souhaitais stoper le code jusqu'à la ligne 34868 et non 3000

merci encore