Format de cellule avec TextToColumns

Version imprimable

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:

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.

28/12/2007, 15h06
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 .
28/12/2007, 16h02
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.

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:

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

31/12/2007, 12h10
Eric93

Merci,

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

Meilleurs voeux et bonnes fêtes