copier coller avec liaisons

Bonjour

Je ne connais pas assez toute les subtilités du collage avec liaison.

1) Je ferais une formule (à mettre dans la cellule A1 de la feuille2)
=INDEX(Feuil2!$1:$1000;ENT(LIGNE()/7)+1;COLONNE())
2) Un glisser/déposer de la formule vers la droite
3) Puis une sélection des lignes (entière, plus simple) de 1:6
4) Un coller
5) sélection de la plage 7:6997
6) et un coller

ou

avec une Sub

Public Sub Botella()
Dim I As Integer
Dim J As Byte
Dim Index As Long
For I = 1 To 1000
Index = ((I - 1) * 6) + 1
For J = 1 To 255 'Remplace la valeur 255 par le nombre maxi de colonnes à reporter
Cells(Index, J) = "=Feuil2!" + Cells(I, J).Address
Next J
Next I
End Sub

@+Jean-Marie

salut

a tu essayé de faire tout simplement un copier collage special
et valider avec les liaisons ??


clic droit copier
clic droiot collage special

tu choisit avec liaisons

vlà

tiens nous informés

a+