Discussion :

[bernardgiraud]

bonjour , je dispose d'un fichier excel qui contient des données sur une seule colonne et j'aimerais insérer ces données en ligne pour les rendre exploitable.
Les groupes de donnees sont écrites sur 5 ou 6 lignes(avec ligne vide pour certain) du type:

Nom : Jean dumartin
champ vide ou pas
adresse : rue des près
cp+ville 95000 Chailly
tel 0184857865
fax(champ cide ou pas)

La seule constante c'est que chaque groupe de donnée est séparé par 3 lignes vides.
Est il possible de faire un script pour convertir ces données verticales en données horizontale sous forme de tableau?

Je suis total débutant sous excel , alors si vous pouvez m'aider c'est sympa.

[lucfrfr]

bonjour,

essai quelque chose comme ca :

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
numligne = 1
numcolonne = 2
ligne = 2
Do While Range("A" & ligne).Value <> ""
    Range("A" & ligne).Cut (Cells(numligne, numcolonne))
    Range("A" & ligne).Delete
    numcolonne = numcolonne + 1
    If Range("A" & ligne).Value = "" Then
        Range("A" & ligne).Delete
        Range("A" & ligne).Delete
        Range("A" & ligne).Delete
        numligne = numligne + 1
        numcolonne = 2
        ligne = ligne + 1
    End If
Loop

numligne est la ligne que l'on est en train de traiter
numcolonne est la colonne de copy
ligne est la ligne ou l'on saisi la valeur à déplacer

[random]

ceci ?

[lucfrfr]

ha oui j'avais oublié l'en-tête

[lucfrfr]

Ca marche en Excel ? je comprend pas trop là...c'est plus du vba

[cafeine]

Si si, c'est du VBA mais il faut ajouter une référence.

Ca marche en Excel ? je comprend pas trop là...c'est plus du vba

[lucfrfr]

cafeine, tu pourrais me dire ce que vaut mon petit bout de code s'il te plait ?
J'ai vraiment l'impression d'être pire qu'un débutant là ou alors suis un fantôme...

ps : pourrais-tu mettre ton code random ? j'aimerais comprendre comment tu le fais

[cafeine]

Hello,

pour aller assez vite, je passerais par les expressions régulières ...

dans mon tutoriel
http://cafeine.developpez.com/access/tutoriel/regexp/

il y a une fonction assez sympa pour tester une expression régulière AllRegExp
http://cafeine.developpez.com/access.../regexp/#LII-B

Je la teste avec ce motif ...

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
?allregexp(UneVariableQuiContientLeTexte, _
    "Nom : (.*)(\r\n(.*))?\r\nAdresse : (.*)\r\ncp\+ville (.*)\r\ntel (.*)(\r\nfax (.*))?(\r\n\r\n\r\n|$)", _
    "$1;$3;$4;$5;$6;$8")
==================================
      Travaux liés à .Execute
==================================
nombre d'occurences : 1
source >>     Nom : Jean dumartin
champ vide ou pas
adresse : rue des près
cp+ville 95000 Chailly
tel 0184857865
fax (champ cide ou pas)
[$1]          Jean dumartin
[$2]          
champ vide ou pas
[$3]          champ vide ou pas
[$4]          rue des près
[$5]          95000 Chailly
[$6]          0184857865
[$7]          
fax (champ vide ou pas)
[$8]          (champ vide ou pas)
[$9]          
==================================
        Travaux liés à .Test
==================================
Vrai
==================================
      Travaux liés à .Replace
==================================
Jean dumartin;champ vide ou pas;rue des près;95000 Chailly;0184857865;(champ vide ou pas)

Bon je sais c'est un peu barbare mais ça permet de transformer rapidement ton fichier fouilli en quelque chose de plus compréhensible ...

Pour plus de détails, regarde le tutoriel ...

[cafeine]

Je viens de voir la solution de random qui est nickel si tu as toujours un nombre fixe de ligne par personne