Collage avec liaison via Vba

Version imprimable

Bonjour à tous,

Débutant voir même extrement débutant dans les macros VBA Excel j'ai un petit problème:

J'ai un classeur avec 190 feuilles et je souhaiterais faire un recap de ces feuilles avec toutes les lignes tout à la fin.

J'ai à peu près réussi avec ce que j'ai trouvé sur le net mais ça me va toujours pas.

Voila déja ce que j'ai mis dans ma macro:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Recap() Dim Sh As Worksheet Application.ScreenUpdating = False With Sheets("Recap") .Columns("A:G").ClearContents For Each Sh In Sheets If Sh.Name <> .Name Then Sh.Range("A6:G11").Copy .Cells(.Rows.Count, 1).End(xlUp)(2) End If Next Sh End With Application.ScreenUpdating = True End Sub
Tout cela me va sauf que je voudrais que mes cellules collées dans ma dernière feuille soit liées à leur feuille d'origine, je m'explique,
si je change la valeur d'une ligne dans ma feuille 117 par exemple, je voudrais que celle ci soit automatiquement changée dans ma feuille recap.

Je pense que je suis tout prêt du but mais bon.

Merci de votre aide

++

Bonsoir,

Si tu veux que les valeurs soient dynamiques, il te faut utiliser des formules. Teste ce qui suit et adapte, reviens si tu n'y arrive pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub Recap()
 
    Dim Sh As Worksheet
    Dim Derl As Long
 
    Application.ScreenUpdating = False
 
    With Sheets("Recap")
 
        .Columns("A:G").ClearContents
 
        For Each Sh In Sheets
 
            If Sh.Name <> .Name Then
 
                'première ligne vide
                Derl = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
 
                'fait référence par formule à la cellule A6 de la feuille en cours
                .Cells(Derl, 1).Formula = "=" & Sh.Name & "!A6"
                'tire la formule 5 lignes plus bas
                .Cells(Derl, 1).AutoFill .Range(.Cells(Derl, 1), .Cells(Derl + 5, 1))
                'tire les formules jusqu'à la colonne G
                .Range(.Cells(Derl, 1), .Cells(Derl + 5, 1)).AutoFill .Range(.Cells(Derl, 1), .Cells(Derl + 5, 7))
 
            End If
 
        Next Sh
 
    End With
 
    Application.ScreenUpdating = True
 
End Sub

Hervé.

28/09/2011, 09h56
_CZAR_

Bonjour,

Tout d'abord merci pour ta réponse.

J'ai essayé ta macro sans avoir vraiment compris ce qu'il y avait dedans mais une chose est sur c'est que cela ne fonctionne pas. :cry:

N'y a-t-il pas un moyen de modifier ma macro de base et juste rajouter le code copie avec liaison?

++
28/09/2011, 14h22
Sclarckone
Dans ta macro de départ, essaie de remplacer:

Code:

Sh.Range("A6:G11").Copy .Cells(.Rows.Count, 1).End(xlUp)(2)

par:
Code:

1 2 3 Sh.Range("A6:G11").Copy .Cells(.Rows.Count, 1).End(xlUp).Select .Paste Link:=True
28/09/2011, 16h58
_CZAR_

Super ça fonctionne!!

Merci beaucoup!!

++