lier deux cellules.

Samantha

XLDnaute Accro

• 17 Juillet 2008

• #2

Re : lier deux cellules.

Bonjour,

Normalement il suffirait de mettre dans une des cellules la formule =lacelluledel'autrefichier

Mais dans ce cas la liaison ne se fait qu'en un sens : il faut toujours apporter la modification dans le même fichier.

Ta demande concernant un "aller/retour" : modification indifféremment dans l'un ou l'autre des fichiers me parraît difficile à réaliser par formule ?

Mesdames Messieurs du VBA ?


Sam

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Juillet 2008

• #3

Re : lier deux cellules.

Bonjour,

Dans la première feuille:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then
    Sheets(2).[A3] = Target
  End If
End Sub

Dans la seconde feuille:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then
    Sheets(1).[A3] = Target
  End If
End Sub

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

E

EagleEye

Guest

• 17 Juillet 2008

• #4

Re : lier deux cellules.

bonjour Samantha,

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 🙁

 

Vote positif 0 Vote négatif

E

EagleEye

Guest

• 17 Juillet 2008

• #5

Re : lier deux cellules.

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 ?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Juillet 2008

• #6

Re : lier deux cellules.

Code:

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

JB

 

Pièces jointes

• LienCellules.xls

  27.5 KB · Affichages: 229

Vote positif 0 Vote négatif

E

EagleEye

Guest

• 17 Juillet 2008

• #7

Re : lier deux cellules.

Excellent,

merci de ta réactivité BOISGONTIER.

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):

erreur d'execution 28

Espace pile insuffisant


pour je suis sous OFFICE 2007

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 17 Juillet 2008

• #8

Re : lier deux cellules.

Bonjour,

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"

abcd

 

Vote positif 0 Vote négatif

E

EagleEye

Guest

• 17 Juillet 2008

• #9

Re : lier deux cellules.

apres une recherche sur le net, le problème est du au fait qu'il faut une boucle a l'infini.

Pour le moment je n'ai pas trouvé de contournement.

 

Vote positif 0 Vote négatif

E

EagleEye

Guest

• 21 Juillet 2008

• #10

Re : lier deux cellules.

bonjour,
malgré différentes manipulation j'ai toujours un message espace pile insuffisant.

quelqu'un aurait-il une idée ?

merci

 

Vote positif 0 Vote négatif