copier une ligne de formules et la tirer vers le bas

[pascal21]

bonjour le forum
suite à la réalisation d'un tableau qui commence à devenir une "usine à gaz" et afin de contrer une éventuelle erreur de manipulation sur une autre feuille, je cherche à réaliser ce qui est dans le titre
j'aimerais recopier la ligne 3 qui contient des formules et tirer cette ligne vers la bas
je ne sais pas me servir de formulalocal et je pense que c'est la solution mais je me trompe surrement
il s'agit de boucher les lignes vides dans ce classeur mais en fait créent des erreurs dans mon classeur du fait de la suppression de données dans une autre feuille
je ne cherche pas à gérer les erreurs dues aux suppressions de données mais uniquement à recopier cette ligne 3
merci de votre aide

 

[pascal21]

Si c'est plus rapide je peux me contenter de recopier jusqu'à la dernière cellule renseignée de la colonne a

 

[pierrejean]

Bonjour pascal21
A tester:

Sub test()
Application.ScreenUpdating = False
Range("B1:I1").Copy
For n = 2 To 500
If Range("B" & n).Formula = "" Then
Range("B" & n).PasteSpecial Paste:=xlPasteFormulas
End If
Next
Application.ScreenUpdating = True
End Sub

 

[pascal21]

merci pierre jean çà fonctionne parfaitement
il faudrait que je trouve la syntaxe pour recopier que sur la dernière ligne renseignée histoire que çà prenne pas trop de temps
là pour 500 lignes faut compter 6 ou 7 sec
remarques c'est bien comme ça puisque lorsque le classeur sera fini il y aura un peu plus de 350 lignes de renseignées mais j'ai préféré prendre large pour prevoir

 

[job75]

Bonjour pascal21, Pierre,

Si j'ai bien compris il suffit d'exécuter :

Sub CopierFormule()
Application.ScreenUpdating = False
With Intersect([B:I], ActiveSheet.UsedRange.EntireRow)
  .Cells(1).Copy .Cells
End With
End Sub

Ici la cellule B1 doit contenir la formule à copier.

Edit : ajouté Application.ScreenUpdating = False pour le visuel.

Chez moi pour 500 lignes la durée d'exécution est de 0,03 seconde.

Nota : la MFC est mal fichue, il faut la revoir.

A+