VBA: programmer un Copier/coller avec liaison de plusieurs valeurs d'une feuille à une autre en vba

Bonjour à tous,

Après de nombreuses recherches et de tentatives je m'en remets à vous pour trouver une solution à mon problème.

Voici mon problème:
Je possède un fichier EXCEL composé de 2 feuilles de bases (1 feuille de saisie vierge + 1 feuille récapitulative).
L'idée est la suivante:
1) Je rentre mes valeurs dans la feuille de saisie vierge (0 ou 1)
2) Les valeurs de la feuille de saisie se retransmettent automatiquement sur la feuille récapitulative.
3) La feuille récapitulative est capable de se mettre à jour en fonction des modifications faite dans la feuille de saisie.

Mon problème est que je n'arrive pas à programmer sous VBA (je suis un novice) un copier coller avec liaison pour répondre au besoin de l'étape 3. Comment faire s'il-vous-plait? Avez-vous d'autres solutions peut-être à me suggérer?

D'avance merci

Bonjour,

Si j'ai bien comprit, tu souhaites qu'à chaque modification de la feuille de saisie, ces modifications soient transmises à la feuille récapitulative?

Si c'est le cas, utilises l’événement worksheet_change ;)

Merci Mackay77 de ta réponse :).
Alors oui tu as bien cerné mon principe. Concernant le Worksheet_change tu mettrais ça où dans vba (module, propriété de la feuille...) ?
Voici une macro que j'ai essayé de faire pour l'instant elle est capable de copier et de coller mais pas automatiquement et sans liaison...

Code:

---

1 2 3 4 5 6 7

Sub Macro1() Range("D5:D65").Select 'Selection des cellules à copier de la feuille X Selection.Copy Sheets("TBR").Select ' Active la feuille Range("XFD1").End(xlToLeft).Offset(2, 0).Select ' Se positionne a la dernière colonne renseignée Selection.PasteSpecial Paste:=xlPasteAll 'Copie les valeurs End Sub

---

Juste dans le code de ta feuille de saisie

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) 'le code End Sub

---

Un tuto sur les evenement du classeur: http://silkyroad.developpez.com/VBA/EvenementsClasseur/

As tu vraiment besoin de copier immédiatement après chaque changement?
Si non, un workbook_BeforeSave serait peut être plus approprié

Pour ton code:

Code:

---

1 2 3 4 5 6 7

Sub Macro1() Range("D565").Select 'Selection des cellules à copier de la feuille X Selection.Copy Sheets("TBR").Select ' Active la feuille Range("XFD1").End(xlToLeft).Offset(2, 0).Select ' Se positionne a la dernière colonne renseignée Selection.PasteSpecial Paste:=xlPasteAll 'Copie les valeurs End Sub

---

Les select sont inutiles et couteux en temps d'execution, voire parfois source d'erreur.
Et vu que as plusieurs il vaut mieux avant le range préciser la feuille pour être sur de copier ce que tu veut

Code:

---

1 2 3 4

Sub Macro1() sheets("nondetafeuille").Range("D565").Copy Sheets("TBR").Range("XFD1").End(xlToLeft).Offset(2, 0).PasteSpecial Paste:=xlPasteAll 'Copie les valeurs End Sub

---

Pour ce qui est du collage avec liaison, essaye de passer par l'enregistreur de macro pour avoir la syntaxe.

PS: pense a utiliser la balise CODE quand tu poste du code c'est beaucoup plus lisible

J'ai essayé ça n'a pas l'air de fonctionner :/.

Je vais détailler un peu plus mon fichier je pensais qu'en expliquant le principe de base j'allais m'en sortir mais non...

En faite j'ai ma feuille récapitulative nommée "TBR" et la feuille de saisie nommée "Checklist".

"Checklist" est une feuille vierge et "pilote" en même temps : elle me permet de créer autant de checklist que je veux

Ce que je souhaiterais c'est qu'une fois que j'ai fini de faire une checklist ou de la modifier ultérieurement que toutes les valeurs de toutes les checklists que j'ai pu créer puissent être retransmise et mise à jour sur ma feuille "TBR"

Donc au final mon fichier possède 2 fichiers de bases mais peut posséder une multitude de feuilles modifiables au cours du temps.

Merci encore pour vos réponses

Citation:

---

Envoyé par aurelu

J'ai essayé ça n'a pas l'air de fonctionner :/

---

Sache que rares sont les membres de ce site à pratiquer la divination, si tu veux qu'on t'aide un peu de détail n'est jamais superflu.

Oui je sais bien mais je pensais que ma première explication serait suffisante pour m'aider. Le problème s'avère plus compliqué que je ne le pensais encore désolé...
Je tâcherais de donner un maximum de détails les prochaines fois :).
J'espère avoir été assez clair sur mon commentaire précédent. Voulez-vous plus de détails?

Citation:

---

Envoyé par aurelu

J'ai essayé ça n'a pas l'air de fonctionner :/

---

Citation:

---

Envoyé par aurelu

Voulez-vous plus de détails?

---

OUI ...
Quel est le code que tu a essayé? qu'est ce qui ne fonctionne pas? un message d'erreur? si oui lequel et à quelle ligne

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() Range("D5:D65").Select 'Selection des cellules à copier de la feuille X Selection.Copy Sheets("TBR").Select ' Active la feuille Range("XFD1").End(xlToLeft).Offset(2, 0).Select ' Se positionne a la dernière colonne renseignée Selection.Paste Link:=True Selection.PasteSpecial Paste:=xlPasteValues 'Copie les valeurs End Sub

---

Mon erreur vient de Selection.Paste Link:=True, j'ai trouvé ce code après avoir utilisé l'enregistreur de macro en faisant un copier coller avec liaison.
Ca me met lors de l'exécution de la macro "Erreur d'exécution 438: propriété ou méthode non gérée par cet objet".

Ps : désolé pour la présentation du code mais je ne sais pas comment utiliser correctement le site je suis tout nouveau

Bonjour,

Sauf erreur de ma part, il n'y a pas de méthode paste pour un objet range (l'objet sélectionne est une plage de donnée/ un range), seulement pour un objet worksheet.
Cependant il y a la méthode pastespecial (voir ligne d'en dessous dans ton code).
Supprime

Code:

---

Selection.Paste Link:=True

---

PS : pour l'affichage du code, utilise les balises [CODE], tu peux aussi sélectionner le code et cliquer sur le bouton "#"

Bonne journée !

Merci beaucoup pour les infos et du temps que tu prends pour me répondre :)

Alors oui en supprimant cette ligne les valeurs se recopient bien cependant si je modifie les valeurs sources, les valeurs d'arrivées ne se modifient pas :/.

L'intérêt serait d'avoir une sorte de mise à jour lorsque je modifie mes valeurs sources.

Tu as mis ton code dans l’événement worksheet_change?
Worksheet_change effectue l'action à chaque modification dans la feuille ;)

Bon c'est bon j'ai trouvé à force de tâtonnements.

Il suffisait juste de rajouter la fonction ActiveSheet.Paste Link:=True

Je laisse le code pour ceux que ça pourrait aider ;):

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() Range("D5:D65").Select 'Selection des cellules à copier de la feuille X Selection.Copy Sheets("TBR").Select ' Active la feuille Range("XFD1").End(xlToLeft).Offset(2, 0).Select ' Se positionne a la dernière colonne renseignée ActiveSheet.Paste Link:=True 'Copie les valeurs   End Sub

---

Merci pour vos aides et à une prochaine fois peut-être :)