Liaison dynamique entre deux feuilles

Résolu/Fermé

Excel

ElvisRocks Messages postés 11 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 29 février 2016 - 13 mai 2015 à 11:42
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 15 mai 2015 à 13:40

Bonjour,

Voici mon problème. Je cherche à lier dynamique deux feuilles, à savoir quand "1 feuil 1" change, "A1 feuil 2" soit modifiée; et inversement.

J'ai trouvé quelques codes ça et là mais c'est toujours du cellule par cellule. Il y aurait un moyen que ce soit l'intégralité de la feuille qui soit reliée. C'est que j'ai beaucoup de cellules à relier !
Aussi, est-ce possible de relier dynamiquement, de la même façon, des classeurs différents ?

Si on ne peut que relier cellule par cellule, je veux bien un petit code avec explications, ça m'aiderait déjà à avancer :)
Merci beaucoup !!

elvis rock n roll

A voir également:

Lier dynamiquement des cellules dans excel
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller des cellules excel - Guide
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 mai 2015 à 16:38

Bonjour,

Faire Alt F11 pour accéder au code.
Sélectionner en haut à gauche le feuille1 et mettre ce code:

Option Explicit
Dim mavariable, colonne, ligne
Private Sub Worksheet_Change(ByVal Target As Range)
mavariable = Target.Value
ligne = Target.Row
colonne = Target.Column
 Sheets("Feuil2").Cells(ligne, colonne).Value = mavariable
End Sub

ensuite

Sélectionner en haut à gauche le feuille2 et mettre ce code:

Option Explicit
Dim mavariable, colonne, ligne
Private Sub Worksheet_Change(ByVal Target As Range)
mavariable = Target.Value
ligne = Target.Row
colonne = Target.Column
 Sheets("Feuil1").Cells(ligne, colonne).Value = mavariable
End Sub

ElvisRocks Messages postés 11 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 29 février 2016
15 mai 2015 à 11:24

Encore deux petites questions...
Admettons que je veuille décupler ce code à plusieurs feuilles, quelle ligne dois-je rajouter dans feuil1 ? et feuil3 ?

Aussi, est-ce possible de lier de la même manière feuil1 et à une feuille d'une autre classeur ?

merci

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
15 mai 2015 à 13:40

Dans l'exemple que j'ai donné, c'est très compréhensible. Dans la feuille qui donne les ordre mettre cette ligne de code avec le nom de la feuille qui reçoit les ordres:

Sheets("Feuil3").Cells(ligne, colonne).Value = mavariable

la feuille 3 reçoit les ordres

pour ta 2ème question: ce n'est pas possible

la seule solution: copier la feuille dans un autre classeur;

Discussions similaires

Formule pour d'enlever des caracteres dans une cellule...

Supprimer ligne contenant un mot précis - Excel 2010

Supprimer un mot des cellules d'une colonne

Fusion de 2 colonnes en gardant le contenu

Masquer des lignes vides avec formule

ajout même texte dans plusieurs cellules