Discussion :

[atmar]

bonjour,
dans le cadre d'un travail j'ai crée une base de données pour recenser les dossiers existant dans une entité
j'ai commencé à saisir les données mais après un certain temps, je me rendais compte que j'aurais dû saisir les données autrement
voici la table actuelle

N° Code servic Nature Année Code Numéros
3 S tr 2004 102 2-12-13-15-16-18-19-20-

et voici le résultat que je veux voir affiché

N° Code serv Nature Année Code b Numéros
3 S tr 2004 102 2
3 S tr 2004 102 12
3 S tr 2004 102 13
3 S tr 2004 102 15
3 S tr 2004 102 16
3 S tr 2004 102 18
3 S tr 2004 102 19

aidez moi svp

[Jean-Philippe André]

salut,
tu peux regarder les fonction split et ubound pour récupérer les valeurs entre "-" Plein d'exemple sont dispo sur le forum, et les tutos

[atmar]

merci
mais j'arrive pas le faire
voulez vous bien m'expliquer davantage
merci infinment

[Jean-Philippe André]

tu peux récupérer 2 12 etc dans un tableau avec

Code :

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

split(Numéros,"-")

tu créées donc un tableau Dim A(50) dans lequel tu récupères ces valeurs.
tu parcours par la suite ton tableau et mets en place tes requêtes d'ajout

[atmar]

si je vous dis que je suis très débutant

[Jean-Philippe André]

inutile de faire la tête hein, j'essaie de te faire progresser par toi même,
utilise ce code pour comprendre comment on se sert de split:

Code :

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

1
2
3
4
5
6
7
Dim st As String
Dim St1() As String
st = "2-16-18-23-29"
St1() = Split(st, "-")
For i = 0 To UBound(St1)
   MsgBox St1(i)
Next i