Discussion :

[coyote90]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='[autreFichier.xls]DansFeuille'!A80

poussée en ligne 160 elle a toujours la même formule alors que j'attendais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='[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.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
With Sheets("test")
            .Select

Ton Select ne sert à rien pour au moins deux raisons.
D'abord, il est redondant avec le With (en gros, les deux servent à peu près à la même chose, du moins dans ce cas).
Ensuite, Select sert plutôt à sélectionner une cellule. Pour une feuille, on utilise Activate.
Donc, supprime-le et tu verras que ça marchera aussi bien (et même un peu plus vite).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            .Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormulas)
            .Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormats)

Pourquoi ne pas écrire plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteAll)

L'ancienne ligne 85 avait pour formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='[autreFichier.xls]DansFeuille'!A80

poussée en ligne 160 elle a toujours la même formule alors que j'attendais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='[autreFichier.xls]DansFeuille'!A155

Les références à des tableaux externes ne sont pas modifiées dans la mesure où Excel ne peut pas savoir si le fichier destination a été modifié ou non.

Ta seule solution est de te pastiller par code la modification des formules déplacées. Compliqué mais faisable.