XL 2016 Faire glisser une formule sur VBA

Erakmur

XLDnaute Occasionnel
Bonjour,
Malgré qu'il existe bcp de post sur le sujet sur internet. Je n'ai pas trouvé la formule VBA qui permet de faire glisser une formule:
Range("A2:AJ2").Select
Selection.AutoFill Destination:=Range("A6993:AJ6993"), Type:=xlFillDefault

Elle ne marche pas. Il faut donc faire glisser les formules comprises entre A2 et AJ2 vers A6993 et AJ6993. A noté que l'enregistreur de macro ne marche pas non plus...
Quelqu'un peut il m'aider ?
Cordialement
 

Erakmur

XLDnaute Occasionnel
Bonjour,

Comme nous ne savons rien des formules en question, répondons à vue de nez:
VB:
Sub test()
Range("A2:AJ2").Copy
Range("A6993:AJ6993").PasteSpecial xlPasteFormulas
End Sub

A+
Pourquoi ta formule fait un copié collé ? Alors qu'il faut sélectionner est glisser jusqu'en bas. J'ai testé ta formule. Il me semble quelle copie une ligne et la colle en bas alors que je souhaite quelle sélectionne une plage et la glisse jusqu'à la ligne 6993
 

Discussions similaires