j'ai effectué une recherche sur le forum et sur google mais je nai pas trouvé l'info.
je voudrais tout simplement lier deux cellules de deux feuilles différentes.
c'est à dire, j'ai une feuille1 avec des données et je voudrais avoir une feuille2 qui aurait les même données que la feuille1 mais disposé différemment. (jusqu'ici tout va bien)
mais je voudrais que lorsque je modifie une cellule de la feuille2 cela modifie la feuille1 et bien sur si je modifie une cellule de la feuille1 cela change la cellule de la feuille2
tout à fait, faire un lien dans un sens avec la fromule =lacelluledel'autrefichier me pose pas de probleme mais c'est avoir un lien bidirectionnelle que je n'arrive pas a réaliser.
j'ai fait une recherche assez longue sur google mais sans résultat
Merci BOISGONTIER cela fonctionne parfaitement sur un cas test.
Si j'explique plus globalement ma démarche, j'ai une feuille Excel FEUILLE_1 ou j'ai une dizaine de colonnes avec une centaine de ligne.
je voudrais réorganisé cette FEUIILE_1 en changeant la position des colonnes dans une nouvelle feuille FEUILLE_2.
Donc il faudrait adapter tes deux macros a une boucle par colonne.
je pense a quelquechose comme :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
[B]For i=2 to 300[/B]
If Target.Address = "$A$[B]i[/B]" Then
Sheets(2).[[B]C[/B][B]i[/B]] = Target
End If
End Sub
mais je ne connais pas l'ecriture exacte de la boucle For. dois-je declarer la varible I avant ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([champ1], Target) And Target.Count = 1 Then
temp = Target.Row - [champ1].Row + 1
Sheets(2).Range("champ2")(temp) = Target
End If
End Sub
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([champ2], Target) And Target.Count = 1 Then
temp = Target.Row - [champ2].Row + 1
Sheets(1).Range("champ1")(temp) = Target
End If
End Sub
Par contre sur l'exemple de test que j'ai utilisé avec ton premier code ou avec ton fichier j'ai à chaque fois un message d'erreur ( si je clique sur Fin cela fonctionne ensuite):
Peut-être un peu trop simple :
En sélectionnant les deux feuilles, toute modification dans l'une se répercute automatiquement dans l'autre.
Exemple :
Sélectionner les Feul1 et Feuil2 (cliquer sur les deux onglets en tenant la touche Ctrl enfoncée)
Saisir en Feuil1!A1 : oui
En Feuil2!A1 le "oui" figure bien
En Feuil2!A1 écrasser le "oui" par un "non"
En Feuil1!A1 le "oui" s'est transformé en "non"