Copier une partie d'un tableau1 vers tableau2 avec liaison

Bonjour à tous,

J’aimerais copier une partie d’un Tableau1 (Ville2) de la ligne 14 à 21 de feuil1 vers la feuil2 tout en créant une liaison entre les lignes du Tableau2 vers les lignes du Tableau1.

Parce que le Tableau1 est constamment mis à jour et j’aimerais qu’en même temps se passera la même chose dans le Tableau2.

Merci d’avance.

Bonjour

Tu fais un copier/collage spécial ---> Coller avec liaison

Bonjour Banzai64,

J'ai essayé une macro pour le faire, mais j'ai une erreur :

Erreur d’exécution '1004':

sur cette ligne :

Selection.PasteSpecial Paste:=xlPasteFormats, operation:=xlNone, _
                           skipblanks:=False, Transpose:=False

Sub test()
    Application.ScreenUpdating = False

    Sheets("feuil1").Range("14:21").Copy
    With Sheets("feuil2")
        .Activate
        .Range("A6:P6").Select
        ActiveSheet.Paste Link:=True
    End With
    Sheets("feuil1").Activate
    Selection.PasteSpecial Paste:=xlPasteFormats, operation:=xlNone, _
                           skipblanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Bonjour

Une fois que tu as copié avec liaisons sur la Feuil2, pourquoi tu reviens sur la Feuil1 ?

Salut,

L'erreur a disparu, en enlevant l'activation de feuil1.

Mais la macro pour le moment ne recopie qu'une seule ligne (A14:P14) au lieu de (A14:P21)

Peut-être à cause des cellule fusionner A14:A21 ?

Bonjour

A tester

Sub test()
  Application.ScreenUpdating = False

  Sheets("feuil1").Range("A14:P21").Copy
  With Sheets("feuil2")
    .Activate
    .Range("A6:P13").Select
    .Paste Link:=True
    Selection.PasteSpecial Paste:=xlPasteFormats, operation:=xlNone, _
                       skipblanks:=False, Transpose:=False
  End With
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

Bonjour,

Voila un nouveau code qui copie vers un autre classeur.

Sub test()
    Dim Wb2 As Workbook
    Dim NLg As Integer
    Application.ScreenUpdating = False
    With Sheets("feuil1").Range("A14:P21")
        NLg = .Rows.Count - 1
        .Copy
    End With
    Set Wb2 = Workbooks.Open("ML.xls")
    With Wb2.Sheets("feuil1")
        .Activate
        .Range("A6:P" & NLg + 6).Select
        .Paste Link:=True
        Selection.PasteSpecial Paste:=xlPasteFormats, operation:=xlNone, _
                               skipblanks:=False, Transpose:=False
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Il focntionne, seulement il remplace les cellules vides copiées par des zéros !

Bonjour

apt a écrit :

Il focntionne, seulement il remplace les cellules vides copiées par des zéros !

C'est tout à fait normal

Utilises une Mise En Forme Conditionnelle pour masquer les 0 (écriture et fond de la même couleur

Plus compliquée remplaces les formules par un test sur la valeur retournée

Plus simple un format personnalisé de cellule 0;-0;;@

A voir

Bonjour,

Merci Banzai64 de ton précieuse aide.