Lier des cellules dans les deux sens
kepex
Messages postés
46
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
J'aimerai lier deux cellules de feuilles différentes en elles (dans les deux sens) en fonction d'un ID
En fait, je récupère (ca je sais le faire) un ID que je met dans une variable id, et j'aimerai que la valeur (par exemple) de ma feuille1-Cellule A1 se synchronise dans ma feuille2-Cellule(ligne id , colone 2) . Et j'aimerai que ca se fasse dans les deux sens, c'est à dire que j'aimerai pouvoir modifier la premiere cellule ou la deuxieme et qu'à chaque fois ca se modifie dans l'autre.
Voilà si vous aviez quelques minutes à me consacrer ! Je bloque sur la partie copier les cellules dans les deux sens, apres ca devrait le faire..
Merci ;)
Alex
J'aimerai lier deux cellules de feuilles différentes en elles (dans les deux sens) en fonction d'un ID
En fait, je récupère (ca je sais le faire) un ID que je met dans une variable id, et j'aimerai que la valeur (par exemple) de ma feuille1-Cellule A1 se synchronise dans ma feuille2-Cellule(ligne id , colone 2) . Et j'aimerai que ca se fasse dans les deux sens, c'est à dire que j'aimerai pouvoir modifier la premiere cellule ou la deuxieme et qu'à chaque fois ca se modifie dans l'autre.
Voilà si vous aviez quelques minutes à me consacrer ! Je bloque sur la partie copier les cellules dans les deux sens, apres ca devrait le faire..
Merci ;)
Alex
A voir également:
- Excel lier une cellule à une autre
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
4 réponses
Bonjour,
Si j'ai bien compris (c'est pas sûr) tu veux Modifier A1 feuil1 et que A1 Feuil2 soit identique mais aussi que tu peux modifier A1 Feuil2 et que A1 feuil1 soit identique.
Si c'est bien ça, par formule ce n'est pas possible (référence circulaire)
En VBA c'est faisable, Tu dis.
A+
Si j'ai bien compris (c'est pas sûr) tu veux Modifier A1 feuil1 et que A1 Feuil2 soit identique mais aussi que tu peux modifier A1 Feuil2 et que A1 feuil1 soit identique.
Si c'est bien ça, par formule ce n'est pas possible (référence circulaire)
En VBA c'est faisable, Tu dis.
A+
Si tu répondais aux questions ce serait mieux.
Par VBA..tu peu modifier A1 dans l'une des trois feuilles c'est retranscrit automatiquement dans les cellules A1 des autre feuilles.
Un classeur démo
A+
EDIT :
Une version simplifiée
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Par VBA..tu peu modifier A1 dans l'une des trois feuilles c'est retranscrit automatiquement dans les cellules A1 des autre feuilles.
Un classeur démo
A+
EDIT :
Une version simplifiée
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Oui désolé j'ai pas répondu à ta question au fait.. Regarde sur le fichier Excel joint, j'y explique tout !
Merci
PS : Merci pour les deux fichiers que tu m'as envoyé mais comme tu le comprendras en ragardant le fichier joint, ce n'est pas exactement ce que je veux.. Merci encore
http://dl.free.fr/getfile.pl?file=/fOv5hmIa
Merci
PS : Merci pour les deux fichiers que tu m'as envoyé mais comme tu le comprendras en ragardant le fichier joint, ce n'est pas exactement ce que je veux.. Merci encore
http://dl.free.fr/getfile.pl?file=/fOv5hmIa
Re,
Copie le code ci-dessous dans un module général (Module1) et lier au bouton "Enrégistrer"
A+
Copie le code ci-dessous dans un module général (Module1) et lier au bouton "Enrégistrer"
Sub Recopier()
Dim Lig As Long, i As Byte
Dim Wks As Worksheet
Set Wks = Sheets("BDD Stockage")
With Sheets("NouvelleEntrée")
Lig = .[A2].Value + 1
Wks.Range(Cells(Lig, "E"), Cells(Lig, "J")).Value = .[B4:G4].Value
Wks.Range(Cells(Lig, "K"), Cells(Lig, "M")).Value = .[B6:D6].Value
Wks.Cells(Lig, "N") = .[G6]
For i = 0 To 3
Wks.Cells(Lig, "O").Offset(, i).Value = .Cells(7, "B").Offset(i).Value
Next i
End With
End Sub
A+
Merci de ta réponse ! Le code est correct je suppose mais j'ai un souci lorsque j'execute la Macro : 'La méthode Range de l'objet Worksheet a échouée"...
Et le souci, c'est que ca copie dans un sens lorsque "j'enregistre", mais mon tableau de nouvelle entrée ne reprend pas les valeurs de la base de donnée losque je change de ID. J'aimerai aussi pouvoir avoir l'apercu de ma base de donnée quand je selectionne un ID, et pouvoir le remodifier..
Merci beaucoup !
Alex
Et le souci, c'est que ca copie dans un sens lorsque "j'enregistre", mais mon tableau de nouvelle entrée ne reprend pas les valeurs de la base de donnée losque je change de ID. J'aimerai aussi pouvoir avoir l'apercu de ma base de donnée quand je selectionne un ID, et pouvoir le remodifier..
Merci beaucoup !
Alex
Effectivement, ça fonctionne pas !!
Fichier tester
Test déjà cette version, je vois pour ajouter le retour de la feuille BDD
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Fichier tester
Test déjà cette version, je vois pour ajouter le retour de la feuille BDD
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Le souci, c'est que je n'arrive pas à comprendre comment celà fonctionne, et je ne peux pas l'adapter au fait que la ligne sur laquelle c'est "collé" change en fonction de l'ID..