Discussion :

[zebulon2201]

Bonjour,

j'ai un probleme.
j'extrais au format CSV des donnees d'un logiciel de gestion de configuration.

j'ai parfois plusieurs valeurs dans une meme cellule, séparées par des retours chariots.

Or je voudrais avoir une vision ligne à ligne pour des raisons de traitement (refacturation au prorata).

Comment puis-je :
compter le nombre de retours chariots
separer le contenu en autant de valeurs distinctes
creer des lignes et recopier le contenu de chaque ligne pour y integrer les valeurs ?

merci pour votre aide. je seche et ca m'aiderait grandement.

[EngueEngue]

la méthode split avec un Chr(13) ?

[el_slapper]

la méthode split avec un Chr(13) ?

Je l'ai fait récemment, c'était Chr(10)(à ma grande surprise). Je suis sous 2007. La partie pertinente(trafiquée pour confidentialité) de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim Ligne As Long
    Dim LGroupe As Variant,  Groupes As String
 
         For Ligne = 2 To .Range("A2").End(xlDown).Row
            Groupes = .Cells(Ligne, 2)
           For Each LGroupe In Split(Groupes, (Chr(10)))
               'ici le traitement de la chaine unitaire LGroupe, traitée depuis CStr(LGroupe)
           Next LGroupe
        Next Ligne

EDIT : il y a 4 possibilités pour un retour chariot :

Code :

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

1
2
3
4
Chr(10)
Chr(13)
Chr(10) & Chr(13)
Chr(13) & Chr(10)

si mon Chr(10) ne marche pas, essayer chacun des 3 autres.

[Invité]

Bonjour,
il serrait plus facile de repartir du CSV, si tu as un modèle de fichier je suis preneur.

[Marc-L]

Bonjour,

sinon à partir du fichier exemple,
voici un code transformant les colonnes de la feuille origine (Feuil1) dans la feuille cible (Feuil2) :

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
Sub RecopieParAppli()
    C& = Feuil1.UsedRange.Columns.Count
 
    If C > 1 Then
        TS = Feuil1.UsedRange
        ReDim TC$(1 To C, 1 To UBound(TS))
 
        For R = 1 To UBound(TS)
            AP = Split(TS(R, 1), vbLf)
            N& = L& + 1 + UBound(AP)
            If UBound(TC, 2) < N Then ReDim Preserve TC(1 To C, 1 To N)
 
            For Each A In AP
                L = L + 1:        TC(1, L) = A
                For K& = 2 To C:  TC(K, L) = TS(R, K):  Next K
            Next A
        Next R
 
        Feuil2.Columns("A:" & Chr$(64 + C)).ClearContents
        Feuil2.[A1].Resize(L, C) = Application.Transpose(TC)
    End If
End Sub

Comme le fichier exemple est au format .xlsx, il faudrait l'enregistrer au format .xlsb ou .xlsm …

Si ce n'est pas le fichier exemple qui contient le code, il faut alors requalifier Feuil1 & Feuil2 dans mon code …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …