Bonjour,
Je veux programmer une fonction qui me permet de copier des lignes "modèles" vers un nouvel emplacement.
Les lignes modèles comportent des formules avec une liaison vers un fichier externe.
1 2 3 4 5 6 7 8 9 10 11
|
' lignes destination , calculées dans une autre partie de la macro.
ligdeb = 85
ligfin = 159
With Sheets("test")
.Select
.Range("A10:HH84").Copy 'modèle
.Range("A" & ligdeb & ":HH" & ligfin & "").Insert Shift:=xlShiftDown
.Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormulas)
.Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormats)
End With |
Ce copier/coller fonctionne bien, ce qui ne va pas c'est que les lignes poussées vers le bas ont toujours les mêmes formules.
L'ancienne ligne 85 avait pour formule
='[autreFichier.xls]DansFeuille'!A80
poussée en ligne 160 elle a toujours la même formule alors que j'attendais
='[autreFichier.xls]DansFeuille'!A155
merci pour votre aide pour résoudre ce problème.
note : si le fichier ne contient pas de liaison vers un autre classeur, cette fonction de copie semble fonctionner.
Partager