Discussion :

[noisat]

Bonjour à tous !

Je suis en train de développer un logiciel d'analyse médicale sous excel. Mais j'ai du mal, ne connaissant pas assez bien VBA, à faire certaines macros.

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". Ensuite je veux pouvoir ré-insérer ces données depuis la feuille "DB" dans les feuilles "DATA", "BTM" et "OBSTACLE".

J'essaye depuis plusieurs jours mais je n'arrive à rien !

Les cellules à sauver sont par ex : dans "DATA" --> "D3,N3,X3,D4, etc" puis "C15,E15", "B18 à B20" et dans "BTM" -->"AY23 à Ay25" puis dans "OBSTACLE" de "D5 à D205"

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

Si quelqu'un pouvait m'aider, merci.

[ouskel'n'or]

J'ignore quelle est la version d'Excel que tu utilises mais on peut analyser le problème sans le fichier.
Si j'ai compris : Tu as plusieurs feuilles de calculs rassemblant plusieurs types de données.
Tu veux pouvoir sélectionner certaines données de ces différentes feuilles et les rassembler dans une seule.
Pour le principe : Dans un userform, une série de listes proposant à la sélection chacune des données de chaque feuille. On détermine le nombre de listes à placer dans l'userform et on affecte à chacune d'elle la plage de données correspondante avec RowSource
L'userform ouvert, ne restera plus qu'à sélectionner l'élément intéressant dans chaque liste.

Pour le reporter dans une nouvelle feuille, plusieurs questions :
- Cette feuille existe-t-elle ?
- A-t-elle un format particulier ?
- Si oui, utiliser une copie de cette feuille pour la récollection des données ?
- Faut-il la créer ?

Déjà, si tu commences par réaliser la première partie, tu y verras plus clair.
Si tu as un pb, on avancera au cas par cas, ce sera plus simple que tout passer en revue en une fois.
Bon courage
A+

Edit
Bienvenue sur le forum !

[noisat]

Ce que j'essaye de faire c'est de récupérer les données, dans la feuille "DATA" par exemple. Mais j'ai déjà à ce niveau un problème parce que ces données se placent pas sur la même ligne à la suite comme je veux, mais sur une seconde ligne !!!

partie du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub sovdb()
'
' sovdb Macro
'
 
'
    Range("D3,N3,X3,D4,N4,X4").Select
    Selection.Copy
    Sheets("DB").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Cells(16384, 2).End(xlUp).Offset(1, 0).Select
End Sub

où est le soucis ?

[ouskel'n'or]

Tu ne désignes pas de ligne pour le collage, alors le collage se place sur la ligne de la cellule active de ta feuille.
Je suppose que tu veux coller ta ligne sur la première ligne vide de la feuille DB :

Code :

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

1
2
3
Ligne = Split(Worksheets("DB").UsedRange.Address, "$")(4) + 1
Range("D3,N3,X3,D4,N4,X4").Copy
Sheets("DB").Range("A" & Ligne).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Evite les selects, il ne servent qu'à ralentir la procédure
A+

Edit
Je préciserais la feuille dans laquelle s'effectue la copy (pas le collage puisque c'est fait)

Code :

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

Worksheets(NomDeLaFeuilleCopiée).Range("D3,N3,X3,D4,N4,X4").Copy

[noisat]

Bonjour,

J'ai essayé de faire comme tu m'as dis mais les données s'enregistrent les une en dessous des autres et non l'une à côté de l'autre sur la même ligne.

Je suis sous windows xp, et office 2007.
j'ai essayés la fonction "offset" mais rien ne change !!!

Puis-je encore te demander de l'aide ?

Merci.

[fring]

Bonjour,

Une solution éventuelle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Plage As Range, cel As Range, DerL As Integer, x As Integer
 
Set Plage = Application.InputBox("Sélectionnez les cellules", "Sélection", , , , , , 8)
 
DerL = Sheets("Feuil2").Range("A65535").End(xlUp).Row + 1
x = 0
 
For Each cel In Plage
    Sheets("Feuil2").Cells(DerL, 1).Offset(0, x) = cel.Value
    x = x + 1
Next
End Sub

Tu lances la procédure, une boîte de dialogue te demande de sélectionner les cellules (tu en sélectionnes autant que tu veux, contigues ou pas avec Shift ou Ctrl), ensuite ces cellules seront copiées sur la première ligne vide de la feuille "Feuil2" (nom de la feuille à adapter)

[noisat]

Merci pour ta macro, mais je voudrais que cela se fasse automatiquement.

cf autre post de noisat, "lier des cellules dans les deux sens"

Je pense être sur la bonne voie dans cette optique, et je continue de chercher.

Je mettrais RESOLU dans ce post lorsque tout fonctionnera.

@+

[fring]

Alors si ce post n'a plus d'intérêt, on le supprime !