Discussion :

[johnmakina]

Bonjour à tous,

Voilà mon petit souci, je cherche à transformer le tableau suivant :

Commande - evenement
111 - 1
111 - 2
111 - 3

En ceci

Commande - Clé
111 - 123

Si vous avez une méthode, une idée ou un petit conseil, ce serait bien sympathique.

Merci beaucoup d'avance

Mathieu

[DMboup]

C'est à peu prés ce qui est traité ici
http://www.developpez.net/forums/sho...26#post1331826

[johnmakina]

Merci pour le lien mais ça dépasse mes qualités de compréhension.... c'est fou qu'il n'y ait pas une manière simple d'y arriver.

Merci en tout cas !

[argyronet]

Bonjour,

Si tu as plusieurs enregistrements de ce type et que pour chacun d'netre eux tu veux les transformer comme dans ton exemple, il te faut parcourir la table avec un Recordset (DAO).

Tu créés une nouvelle table avec la colonne concernée... "TableDestination"
Tu créés ta procédure qui agit dans la table source...
De là, tu prends les 3 premiers caractères de chaque enregistrement trouvé que tu stockes dans une variable (strDebut) puis le dernier caractère dans une autre (strFin)...

Par exemple

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
Sub CreerEnrTableau()
Dim oRS As Recordset
Dim strDebut As String
Dim strTemp As String
Dim strFin As String
Dim strNouvelEnr As String

  Set oRS = CurrentDb.OpenRecordset("TableSource", 2)
  
  On Error Resume Next
  With oRS
    Do While Not .EOF
        strDebut = Left(.Fields("LeChamp"), 3)
        Do While Not .EOF
           If Left(.Fields("LeChamp"), 3) = strDebut Then
              strFin = strFin & Right(.Fields("LeChamp"), 1)
           Else
              strNouvelEnr = strDebut & " - " & strFin
              AjouterEnr strNouvelEnr
              strFin = Right(.Fields("LeChamp"), 1)
              Exit Do
           End If
          .MoveNext
        Loop
    .MoveNext
    Loop
    strNouvelEnr = strDebut & " - " & strFin
    AjouterEnr strNouvelEnr
    .Close
  End With
  Set oRS = Nothing
End Sub

Private Sub AjouterEnr(nouvelEnr As String)
Dim SQL As String
  
  SQL = "INSERT INTO TableDestination (LeChamp) VALUES _
  (" & Chr(34) & nouvelEnr & Chr(34) & ");"
  CurrentDb.Execute SQL, dbSeeChanges

End Sub

Voilà ce que j'ai en source

111 - 1
111 - 2
111 - 3
112 - 1
112 - 2
112 - 3
112 - 4
113 - 1
113 - 2
113 - 3
113 - 4
113 - 5
114 - 1
114 - 2
115 - 1
115 - 2
115 - 3

et voilà ce que j'obtiens après dans l'autre table, ça te vas ???

111 - 123
112 - 1234
113 - 12345
114 - 12
115 - 123


Argy

[johnmakina]

Merci de tous ces efforts mais en fait, les données se trouvent dans deux colonnes distinctes : la première est composée par les commandes (111, 222, etc...) et la deuxième par les numéros (1,2,3,...).

Mon but est d'avoir à nouveau deux colonnes mais de regrouper les numéros communs à une même commande.

Encore merci !

[argyronet]

Eh bien tu adaptes...
Moi j'ai pris le nom de champs "LeChamp" ;

A toi d'aller chercher les bonnes valeurs dans les bonnes colonnes en substituant les fonctions Left$ et Right$

Argy