Discussion :

[Eric93]

Bonjour,

Je lis un fichier contenant des données à inserer dans une feuille, séparées par des point-virgule.

Dans un précedent post, bidou m'as donné le code suivant qui marche parfaitement pour distribuer les données d'une ligne dans les différentes colonnes :

Code :

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

1
2
Worksheets(feuille).Cells(lig, 1).Value = ligne
Worksheets(feuille).Cells(lig, 1).TextToColumns Destination:=Worksheets(feuille).Cells(lig, 1), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True

Parmi ces données, j'ai des données ne comportant que des chiffres et il m'enlève les zeros devant.

J'ai essayé d'ajouter le code suivant avant :

Code :

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

Worksheets(feuille).Rows(lig).NumberFormat = "@"

pour mettre la ligne au format texte, ca ne marche pas

Merci de votre aide

[bidou]

est ce que chaque ligne de texte à toujours le même nombre de valeurs ?

[Eric93]

Non justement, je ne connais pas à l'avance le nombre de colonnes.

Je voulais tout mettre au format texte, je vais devoir faire une boucle je pense

[bidou]

sinon ca peut marcher avec un code similaire à

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Redist()
 
Dim NbCase As Long, MaCell As Range, TabRedist As Variant, compteur As Long
 
    For Each MaCell In Range("A1:A30")
        NbCase = Len(MaCell.Value) - Len(Replace(MaCell.Value, ";", ""))
        ReDim TabRedist(NbCase)
        For compteur = 0 To NbCase
            TabRedist(compteur) = Array(compteur + 1, 2)
        Next compteur
        MaCell.TextToColumns Destination:=MaCell, DataType:=xlDelimited, Semicolon:=True, FieldInfo:=TabRedist
    Next
 
End Sub

[Eric93]

J'essaye de comprendre le code.

NbCase est donc le nombre de caractère de ma ligne sans les point-virgule

J'ai pas trop compris la boucle :

Code :

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

1
2
3
For compteur = 0 To NbCase
    TabRedist(compteur) = Array(compteur + 1, 2)
Next compteur

[bidou]

Ca sert à créer l'argument FieldInfo pour lui dire de redistribuer les données en texte

[ouskel'n'or]

Dans un précedent post, bidou m'as donné le code suivant qui marche parfaitement pour distribuer les données d'une ligne dans les différentes colonnes :

Parmi ces données, j'ai des données ne comportant que des chiffres et il m'enlève les zeros devant.

Ces données sont-elles dans une même colonnes ? Je précise : la ou les colonnes contenant ces données n'ont-elles que ce type de données ?
Ces données doivent-elles toutes avoir le même format (même nombre de caractères) ?
Si oui aux deux questions,
tu peux formater ta/tes colonnes ainsi

Code :

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

    Columns(NoColonne).NumberFormat = "0000000000"

avec autant de zéros que tu dois avoir de chiffres dans la cellule. Ça ajoutera les zéros manquants à gauche du chiffre.
Si non,
vois la méthode de Bidou
A+

[Eric93]

J'ai un nombre de colonne indeterminé, un des format de données indeterminés egalement, c'est pourquoi je veux tous les mettre au format texte pour que dans le cas de données numérique il ne m'enlève pas les zeros.

Mais j'ai également des données de format texte, de plus je ne connais pas la longueur des données.

En fait le code de bidou me permet de mettre la ligne dans la colonne 1 puis de distribuer les données dans chaque colonne (en fonction du séparateur point-virgule). Avant je fesait une boucle caractère par caractère, puis pour chaque colonne j'appliquais le format texte.

Son code est beaucoup plus simple, mais je sais pas comment formater toute la ligne au format texte avant, sans avoir à refaire de nouveau une boucle.

Je suis pas sur d'être très clair.

Merci de votre aide, et bon week-end, je reviens lundi

[ouskel'n'or]

Dommage que tu n'aies pas continué sur la même discussion, on aurait tous les éléments
Mets au moins l'URL de l'ancienne discussion je fusionnerai les deux.
A+

[ucfoutu]

http://www.developpez.net/forums/sho...d.php?t=461647

[Eric93]

Merci, mais tout est dans ce post, j'ai simplifié mon code de départ par les 2 lignes de code de bidou (ci-dessus)

Je veux juste mettre la ligne au format texte avant d'y mettre les donnée.