Discussion :

[aurelu]

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

[MacKay77]

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

[aurelu]

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 :

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

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

[MacKay77]

Juste dans le code de ta feuille de saisie

Code :

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

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

[aurelu]

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

[halaster08]

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.

[halaster08]

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 :

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

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 :

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

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