Discussion :

[Eric93]

Bonjour,

J'ai déja évoqué le sujet dans un ancien post, non résolu, je relance la question.

J'ai le code suivant :

Code :

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

1
2
3
Worksheets(1).Rows(1).NumberFormat = "@"
Worksheets(1).Cells(1, 1).Value = "ASP0009;20071218;027285;1; ;LEFEBVRE CLAUDE ;"
Worksheets(1).Cells(1, 1).TextToColumns Destination:=Worksheets(1).Cells(1, 1), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True

La fonction TextToColumns permet de distribuer les données dans les colonnes en partant de la colonne 1, en utilisant le point-virgule comme séparateur.

Les cellules de la ligne 1 sont bien mises au format texte par NumberFormat, mais la fonction TextToColumns n'en tiens pas compte et me supprime les zéros devant pour les zones numérique.

La fonction TextToColumns m'avais été donné par bidou, peut-être faut-il ajouter des paramètres.

Merci de votre aide et bonne fêtes.

[ucfoutu]

Bonjour,

Tu vas l'ouvrir encore combien de fois, ce même sujet ?
Tout ce que tu risques de faire ainsi, c'est d'irriter... c'est certain .

[Eric93]

Désolé,

En fait c'étais parti d'un autre sujet, puis on m'as donné cette fonction qui simplifie mon programme.

Depuis j'ai juste ce petit problème, et l'autre post n'avais pas le même sujet.

[Invité]

Bonjour Eric93,

Avec votre code j'ai en effet le même problème. Il y a peut-être comme vous le dîtes un paramètre à modfier mais ?

A toutes fins utiles avec ce code cela fonctionne :

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
Dim Text, Tableau() As String
  Dim pl, dl, n As Long
  Dim c, cc  As Byte
    'Remplacer 2 par la première ligne de données le cas échéant
    pl = 1
     'Remplacer 100 par la dernière ligne de données le cas échéant
    dl = 100
    'Remplacer 1 par le numéro de colonne contenant les données le cas échéant
    c = 1
 
 For n = pl To dl
 Worksheets(1).Rows(n).NumberFormat = "@"
 'Remplacer 1 le cas échéant, par le numéro de la colonne qui va contenir la 1ère partie du texte
    cc = 1
  Text = Worksheets(1).Cells(n, c)
    Tableau = Split(Text, ";")
     For i = 0 To UBound(Tableau)
     Worksheets(1).Cells(n, cc) = Tableau(i)
        cc = cc + 1
    Next i
Next n

[Eric93]

Merci,

Mais j'aurais préféré garder la fonction TextToColumns qui fait tout automatiquement.

Meilleurs voeux et bonnes fêtes