Discussion :

[noisat]

Bonjour à tous !

Voilà j'ai une feuille (A) où il y a des données dans des cellules non adjacentes, je les ai liées à d'autre cellules dans une autre feuille (B), jusque là tous va bien.
Ce que je veux c'est copier cette ligne dans une autre feuille (C) qui me servira de base de donnée. Les lignes doivent avoir un numéro incrémenté de 1 à chaque nouvel enregistrement.
Et je voudrais me servir de la feuille (B) comme feuille intermédiaire pour choisir d'importer des données déjà enregistrées dans la feuille (C). Pour cela il faudrait qu'il y ai une liaison bi-directionnelle des cellules entre la feuille (A) et la feuille (B). Je ne sais pas si c'est possible de faire une macro qui me permettrait d'enregistrer les données de la feuille (B) dans la feuille (C) et ensuite avec un combox de réinsérer les donnés choisies dans (C) dans la feuille (A).

J'espère avoir été le plus clair possible.

J'ai essayé une autre technique hier mais ca ne fonctionnait pas.(merci ouskel'n'or!)

Merci par avance pour votre aide !

[Gorfael]

Salut noisat et le forum
Comme d'habitude : tout ce que tu ne nores pas dans ton poste nous reste inconnu...

j'ai une feuille (A) où il y a des données dans des cellules non adjacentes, je les ai liées à d'autre cellules dans une autre feuille (B).

Tu veux que les modifications de certaines cellules de A soient reportées en B. C'est à peu près compris. Sauf que les cellules de A ne contiennent pas de formules ? Les cellules de B sont les mêmes que celles de A (adresses identiques ) ? C'est une liaison par formule ou par macro ?

Ce que je veux c'est copier cette ligne dans une autre feuille (C) qui me servira de base de donnée. Les lignes doivent avoir un numéro incrémenté de 1 à chaque nouvel enregistrement.

On commence la brasse coulée : on parlait de cellules, là, on aborde des lignes ???? Et on parle d'enregistrement : c'est quoi un enregistrement ? un enregistrement classeur, une modification de valeur d'une cellule (même quand on le fait trois fois de suite, parce qu'on s'est trompé de touche, on fait trois enregistrements) ?

Et je voudrais me servir de la feuille (B) comme feuille intermédiaire pour choisir d'importer des données déjà enregistrées dans la feuille (C). Pour cela il faudrait qu'il y ai une liaison bi-directionnelle des cellules entre la feuille (A) et la feuille (B). Je ne sais pas si c'est possible de faire une macro qui me permettrait d'enregistrer les données de la feuille (B) dans la feuille (C) et ensuite avec un combox de réinsérer les donnés choisies dans (C) dans la feuille (A).

Là, on aborde la nage dite du "Fer à repasser"
Si on veut une liaison bidirectionnelle entre A et B, On peut faire (exemple à coller dans le module ThisWorkBook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Workbook_SheetChange
'Déclaration ===============================
Dim F_1 As Worksheet
Dim F_2 As Worksheet
Dim Plg As Range
Dim Cel As Range
'Validité ==================================
If (Sh.Name <> "A" And Sh.Name <> "B") Or _
    Intersect(Target, [A1:E9]) Is Nothing _
    Then GoTo Sort_Workbook_SheetChange
'MEI =======================================
Application.ScreenUpdating = False
Application.EnableEvents = False
Set F_1 = Sheets("A")
Set F_2 = Sheets("B")
Set Plg = Intersect(Target, [A1:E9])
'Traitement ================================
For Each Cel In Plg
    If Sh.Name = F_1.Name Then
        F_2.Range(Cel.Address) = Cel
    Else
        F_1.Range(Cel.Address) = Cel
    End If
Next Cel
'Sortie obligatoire ========================
Sort_Workbook_SheetChange:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
'Traitement des erreurs =====================
Err_Workbook_SheetChange:
    MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR n°" & Err.Number
    Resume Sort_Workbook_SheetChange
End Sub

Tout changement de la plage A1:E9 dans les feuilles A ou B sera reporté sur l'autre. Bien évidemment, c'est une structure simple, mais on peut faire par le même principe que A1(A) soit liée à E3(B), A2(A) à B8(B), etc...)

Dans un tel système, tout changement de A sera repporté sur B et versa dans le vice.
Donc la reprise d'une sauvegarde modifiera les 2 feuilles.

Les seules questions à se poser (outre celles du début), sont :
qu'est-ce qu'on sauvegarde (cellules ou ligne) ? et comment : si tu sauvegardes de manière automatique à chaque changement, il faut référencer la sauvegarde : si tu sauves une ligne de A à GZ, tu vas galérer pour trouver la cellule qui a changé. Mais n'ayant que des données partielles, difficile de proposer un modus operandi qui tienne la route
A+

[noisat]

Bonjour,

Merci pour ton aide Gorfael, mais je n'arrive pas à appliquer ce que tu as fais.

Il s'agit d'un logiciel d'analyse médicale (infos patient nom, prénom etc ... et autres infos numériques et text de calculs d'analyses).

Je veux faire une sélection multiple dans plusieurs feuilles "DATA", "BTM" et "OBSTACLE" et les enregistrer dans une nouvelles feuilles (DB) qui me sert de "base de donnée", sur une ligne. C'est à dire une ligne par patient. Ensuite je veux pouvoir ré-insérer ces données depuis la feuille "DB" dans les feuilles "DATA", "BTM" et "OBSTACLE".

Pour cela j'utilise une feuille "intermédiaire" qui est directement liée aux feuilles "DATA", "BTM", et "OBSTACLE", ces données sont sur une seule ligne dans la feuille "intermédiaire", comme ca si je change une donnée dans "DATA" la feuille "intermédiaire" change et quand je clique sur le bouton "Sauver dans la Base" les infos des 3 feuilles "DATA", "BTM" et "OBSATCLE" qui se trouvent sur la première ligne de la feuille "intermédiaire" sont copiées dans la feuille "DB". Il suffit de copier la ligne 1 de la feuille "intermédiaire" dans le feuille "DB" et d'incrémenter un numéro de 1, pour qu'un nouvel "enregistrement" puisse se faire dans "DB", avec un clic sur "Sauver dans la base".

dans "DATA" les cellules "D3,N3,X3,D4,N4,X4,D5,N5,X5,D6,N6,X6, puis "C15,E15", "B18 à B20" doivent être liées aux cellules "A1,B1,C1,D1 etc..." de la feuilles "intermédiaire"

Un autre bouton "Importer de la base" doit me permettre de recopier une ligne de la feuille "DB" dans la feuille "intermédiaire", en choisissant via une boîte de dialogue le nom qui m'intéresse.

J'espère avoir été cette fois-ci plus clair et compréhensible !!!

Merci encore par avance pour vos lumières et vos connaissances partagées.

[mayekeul]

bonjour,

Je veux faire une sélection multiple dans plusieurs feuilles "DATA", "BTM" et "OBSTACLE"

en même temps?
Y a t-il une logique de sélection ou non?

sinon, un échantillon du fichiers serait le bienvenu

[noisat]

Bonjour !

Le fichier se trouve à http://pascontente.free.fr/ANA.xls.zip

Les sélections doivent se faire dans un ordre précis tel que "D3" dans la feuille "DATA" soit lié en "A1" de la feuille "interméédiaire" et "N3" de la feuille "DATA" lié à "B1" de la feuille "intermédiaire" etc ...

Ensuite utiliser une macro activée par un bouton "Sauver dans la base", qui enregistre la ligne "1" complète dans la feuille "DB" en incrémentant un numéro d'enregistrement à chaque clic sur ce bouton.

Voilà !

[noisat]

Il s'agit bien de copier la LIGNE 1 de la feuille "intermédiaire" dans la feuille "DB" et non de la Colone "A". Je me trompais dans mon explication !

Toutes mes excuses, j'ai maintenant corrigé partout.

@+

[mayekeul]

alors, pas de feuille nommée "intermédiaire" est-ce "IMP.EXP"?

si c'est le cas, je n'y vois aucune référence qui les lie aux données sources.

les cellules à copier ne changent-elles de place? sinon,une simple formule dans les cellules fera l'affaire.

il sera ensuite tout à fait aisé de les passer dans la base de données.

dis moi quoi et je te dirais pour la suite!

[noisat]

Je n'ai pas créé de feuille "intermédiaire" dans cette version, ce que j'ai essayé chez moi c'est de mettre dans la cellule "A1" de la nouvelle feuille que j'ai créé et nommé "intermédaire" -->=DATA!D3 en "A2" en "B2" j'ai -->=DATA!N3 etc... et en ligne d'entête j'ai recopier la ligne 7 de la feuille "IMP.EXP." (Test No, Patient, Age etc...).

[noisat]

Boujour,

Je ne suis toujours pas arrivé à adapter un bout code à ce à que je veux !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Workbook_SheetChange
'Déclaration ===============================
Dim F_1 As Worksheet
Dim F_2 As Worksheet
Dim Plg As Range
Dim Cel As Range
'Validité ==================================
If (Sh.Name <> "DATA" And Sh.Name <> "IMP.EXP.") Or _
    Intersect(Target, [A1:E9]) Is Nothing _
    Then GoTo Sort_Workbook_SheetChange
'MEI =======================================
Application.ScreenUpdating = False
Application.EnableEvents = False
Set F_1 = Sheets("DATA")
Set F_2 = Sheets("IMP.EXP.")
Set Plg = Intersect(Target, [A1:E9])
'Traitement ================================
For Each Cel In Plg
    If Sh.Name = F_1.Name Then
        F_2.Range(Cel.Address) = Cel
    Else
        F_1.Range(Cel.Address) = Cel
    End If
Next Cel
'Sortie obligatoire ========================
Sort_Workbook_SheetChange:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
'Traitement des erreurs =====================
Err_Workbook_SheetChange:
    MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR n°" & Err.Number
    Resume Sort_Workbook_SheetChange
End Sub

Comment faire pour que les cellules "D3","N3","X3","D4" de la feuille "DATA" soient liées au cellules "B8","C8","D8","E8" de la feuille "IMP.EXP." ?

merci de votre aide !

[mayekeul]

bonjour,

tu dois faire comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name <> "DATA" And Sh.Name <> "IMP.EXP.") then exit sub
On Error GoTo Err_Workbook_SheetChange
'Déclaration ===============================
Dim F_1 As Worksheet
Dim F_2 As Worksheet
dim adr as string
 
 
'Validité ==================================
If not Intersect(Target, [A1:E9])  Then 
'MEI =======================================
    Set F_1 = Sheets("DATA")
    Set F_2 = Sheets("IMP.EXP.")
    'Traitement ================================
    'ici, on va mettre une correspondance des adresses
    select case target.address
        case "$D$3" 
            adr="$B$8"
        case "$B$8"
            adr="$D$3"
        case ...
   end select
    If Sh.Name = F_1.Name Then
        F_2.Range(adr) = target
    Else
        F_1.Range(adr) = target
    End If
end if
 
'Traitement des erreurs =====================
Err_Workbook_SheetChange:
MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR n°" & Err.Number
 
End Sub

[noisat]

Rien ne s'inscrit dans la feuille "IMP.EXP." !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, ["A1:E9"]) Then

n'a plus lieu d'être, ce n'étais qu'un exemple.

[mayekeul]

ben voila, tu dois remplacer ça par le range adéquat

[noisat]

Quand je change le range comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, [D3:X43]) Then

J'ai une erreur 13, "Type Mismatch" quand je change les données dans la case "D3" de la feuille "DATA" et rien apparait dans la feuille "IMP.EXP." !!!

[mayekeul]

euh déjà, tu dois essayer comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, [A1:A100]) Is Nothing Then

j'avions oublié des choses lol

[noisat]

J'ai dans ce cas une erreur 0 !!! La balise [/CODE] ne fonctionne plus pour moi je m'en excuse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name <> "DATA" And Sh.Name <> "IMP.EXP.") Then Exit Sub
On Error GoTo Err_Workbook_SheetChange
'Déclaration ===============================
Dim F_1 As Worksheet
Dim F_2 As Worksheet
Dim adr As String
 
 
'Validité ==================================
If Not Intersect(Target, [A1:A50]) Is Nothing Then
'MEI =======================================
    Set F_1 = Sheets("DATA")
    Set F_2 = Sheets("IMP.EXP.")
    'Traitement ================================
    'ici, on va mettre une correspondance des adresses
    Select Case Target.Address
        Case "$D$3"
            adr = "$B$8"
        Case "$B$8"
            adr = "$D$3"
        Case "$N$3"
            adr = "$C$8"
        Case "$C$8"
            adr = "$N$3"
   End Select
    If Sh.Name = F_1.Name Then
        F_2.Range(adr) = Target
    Else
        F_1.Range(adr) = Target
    End If
End If
 
'Traitement des erreurs =====================
Err_Workbook_SheetChange:
MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR n°" & Err.Number
 
End Sub

[Modération] Un peu de lecture ICI concernant l'utilisation des balises [.CODE.]...[./CODE.]

[mayekeul]

sur quelle ligne?
mais je viens de voir un truc

tu dois rajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
case else
exit sub

[noisat]

Il n'y a maintenant plus d'erreur mais les données se trouvant dans la cellule "D3" de la feuille "DATA" ne semble toujours pas être liée à la cellule "B8" de la feuille "IMP.EXP." qui reste vide ! même quand je change une info dans la cellule "D3" de la feuille "DATA" !

Je ne comprends pas !

[mayekeul]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name <> "DATA" And Sh.Name <> "IMP.EXP.") Then Exit Sub
On Error GoTo Err_Workbook_SheetChange
'Déclaration ===============================
Dim F_1 As Worksheet
Dim F_2 As Worksheet
Dim adr As String
 
 
'Validité ==================================
If Not Intersect(Target, [A1:E50]) Is Nothing Then
'MEI =======================================
Set F_1 = Sheets(1)
Set F_2 = Sheets(2)
'Traitement ================================
'ici, on va mettre une correspondance des adresses
Select Case Target.Address
    Case "$D$3"
        adr = "$B$8"
    Case "$B$8"
        adr = "$D$3"
    Case "$N$3"
        adr = "$C$8"
    Case "$C$8"
        adr = "$N$3"
    Case Else
        Exit Sub
End Select
Application.EnableEvents = False
If Sh.Name = F_1.Name Then
F_2.Range(adr) = Target
Else
F_1.Range(adr) = Target
End If
Application.EnableEvents = True
End If
 
'Traitement des erreurs =====================
Exit Sub
Err_Workbook_SheetChange:
MsgBox Err.Description, vbCritical + vbOKOnly, "ERREUR n°" & Err.Number
 
End Sub

fonctionne impec chez moi

n'oublie pas de changer la valeur intersect au besoin

[noisat]

Eh bien me voilà dégagé d'une belle épine !

Merci beaucoup pour cette précieuse aide dans la résolution de mon problème.

Je continue parcqu'il me faut lier des cellules qui se trouvent sur d'autre feuilles aussi puis copier la ligne 8 de la feuille "IMP.EXP." dans ma feuille "DB".

Pour pouvoir réactualiser les infos d'un patient, en copiant dans le sens "DB" vers la ligne 8 de la feuille "IMP.EXP." (liée à "DATA"), la ligne où se trouve le patient qui m'intéresse.

Merci.

Je ne sais pas si je dois mettre "RESOLU" et créer un nouveau post pour le reste, ou bien continuer sur celui-là ?

[mayekeul]

je serait toi, je crée un autre sujet qui fait un lien vers celui -ci

ça peut-être utile!

Pour pouvoir réactualiser les infos d'un patient, en copiant dans le sens "DB" vers la ligne 8 de la feuille "IMP.EXP." (liée à "DATA"), la ligne où se trouve le patient qui m'intéresse.

tu ne passe pas par une feuille intermédiaire pour cela??