Discussion :

[lunab54]

Bonsoir,

en fait j'ai un fichier texte remonté dans une table Access avec une clé primaire entier, les données sont les suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
ID     DOSSIER      OBS
1      415A           TOtal
2      416A           Partiel1
3                     Partiel2
4                     Partiel3
5      417A           Partiel1
6                     Partiel2
7      501B           Total
...

et je voudrais obtenir ça pour pouvoir décomposer en table avec relation :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
ID     DOSSIER      OBS
1      415A           Total
2      416A           Partiel1
3      416A           Partiel2
4      416A           Partiel3
5      417A           Partiel1
6      417A           Partiel2
7      501B           Total
...

je ne vois que VBA pour faire ça...non ?

une boucle conditionelle sur 1ère colonne ?

un petit coup de main pour me lancer ne serait pas de refus, je suis paumé (notion VBA Word seulement)

merci d'avance

Luna

[pgz]

Bonjour.

S'il s'agit de "boucher" les trous de DOSSIER avec l'info de l'enregistrement précédent. Avec la bibli Microsoft DAO 3.6 Object Library :

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
Dim db as DAO.DAtaBase, rst as DAO.RecordSet, sDossier as string
 
Set db = Application.CurrentDb
 
Set rst = db.OpenRecordSet("SELECT * FROM MaTable ORDER BY ID",dbopendynaset)
sDossier = ""
 
While Not rst.EOF
    If Nz(rst("DOSSIER"),"") = "" Then
        rst.Edit
        rst("Dossier") = sDossier
        rst.Update
    End if
    sDossier = rst("Dossier")
    rst.MoveNext
Wend
 
rst.Close
Set rst = Nothing
Set db = Nothing

A adapter.

Bon courage,

PGZ

[lunab54]

Super !

après avoir fait activer la référence à la librairie Microsoft DAO 3.6 dans Microsoft Visual Basic Editor ca fonctionne Top !

merci beaucoup

Luna