XL 2016 Faire glisser une formule sur VBA

Hasco

XLDnaute Barbatruc

Repose en paix

• 6 Août 2019

• #2

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+

 

Vote positif 0 Vote négatif

E

Erakmur

XLDnaute Occasionnel

• 6 Août 2019

• #3

Roblochon à dit:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Ikito

XLDnaute Occasionnel

• 6 Août 2019

• #4

Bonjour,

VB:

Range("A2:AJ2").AutoFill Destination:=Range("A2:AJ6993"), Type:=xlFillDefault

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Août 2019

• #5

Bonjour Erakmur

Edit : A la bourre moi !!!!!
Salut à tous

A tester:

VB:

Range("A2:AJ2").AutoFill Destination:=Range("A2:AJ6993"), Type:=xlFillDefault

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 6 Août 2019

• #6

Re,
J'en étais sûr!!!!!! Vue de nez(petit)

Alors je vais pas me fatiguer mais simplement vous signaler que la plage destination doit comporter la plage de départ.

Bonne soirée
[Edit] bonsoir @pierrejean

 

Dernière édition: 6 Août 2019

Vote positif 0 Vote négatif

E

Erakmur

XLDnaute Occasionnel

• 6 Août 2019

• #7

Merci !! Cela fonctionne

 

Vote positif 0 Vote négatif