Macro copier-coller

Bonjour,

J'aurais besoin d'aide pour écrire une macro.

j'ai une formule que j'utilise en faisant un copier-glisser. Mon tableau pouvant avoir jusqu'à 1000 lignes, je voudrais automatiser cette opération.

Formule: E9=C9&"/"&D9

j'utilise une macro qui fait ce meme type d'opération (copier-coller) et j'ai essayer de l'adapter à mon cas, mais je ne dois pas correctement rédiger la formule en VBA.

Sub Copier_glisser()
      With Sheets("Traitement")
         .[H9].Formula = "=IF(F9<$E$4,F9,"""")"
         .[I9].Formula = "=IF(F9<$E$4,E9,"""")"
         .[H9:I9].Resize(Application.CountA(.[C:C]) - 1).FillDown
         .[H:H].NumberFormat = "dd-mmm"
         .[I:I].NumberFormat = "General"     End With
  End Sub

Quelqu'un aurait-il des idées?

Bonjour,

Y a-t-il un impératif de passer par le VBA ? Le VBA est prévu pour les outils qui n'existent pas ou pour alléger les fichiers lourds à cause des formules.

oui je dois passer par du vba

Bonjour à tous

Un essai à tester. Te convient-il ?

Il devrait t'éviter de tirer ta formule sur 1000 lignes...

Bye !

ça semble fonctionner parfaitement

merci pour ton aide