Lier des cellules dans les deux sens

kepex Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 4 nov. 2012 à 13:18

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

A voir également:

Excel lier une cellule à une autre
Déplacer une colonne excel - Guide
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Bloquer une cellule excel - Guide
Liste déroulante excel - Guide

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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+

Kepex

Il me semblait que ca soit possible j'avais trouvé un bout de code sur Internet :

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
On Error GoTo fin 
nom = Target.Name.Name 
If InStr(nom, "?") > 0 Then 
nom = Left(nom, InStr(nom, "?")) 
Application.EnableEvents = False 
num = 1 
encor: 
Range(nom & num).Value = Target.Value 
num = num + 1 
GoTo encor 
End If 
fin: 
On Error GoTo 0 
Application.EnableEvents = True 
End Sub

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..

Réponse 2 / 4

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

kepex Messages postés 37 Date d'inscription Statut Membre Dernière intervention

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

Réponse 3 / 4

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Re,
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+

kepex Messages postés 37 Date d'inscription Statut Membre Dernière intervention

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

Réponse 4 / 4

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel : colorer une cellule sous condition d'une autre ?

Excel formule : savoir si une cellule contient partie texte

Votre réponse

Discussions similaires