Discussion :

[CALOU3117]

Bonjour,

Je souhaiterai reporter dans différentes colonne (une colonne par nombre) les nombre d'une cellule contenant du texte et la partie texte dans une seule colonne. L'outil "convertir" d'excel ne le permet pas.

Je vous joins un extrait du fichier avec sur une ligne le résultat que je souhaiterai avoir.

Merci par avance,

Bien cordialement

Classeur1.xlsx

[Invité]

Bonjour,

A tester :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
 
Sub TesterDecomposerLaChaine()
 
Dim J As Long, DerniereLigne As Long
Dim ShATraiter As Worksheet
Dim MonSplitValeurs As Variant
Dim MaChaineValeurs   As String
Dim ValeurEnCours As Integer, ColonneEnCours As Integer
 
    Set ShATraiter = ActiveSheet
 
    With ShATraiter
 
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         For J = 3 To DerniereLigne
 
            .Cells(J, 3) = LaChaineAlpha(.Cells(J, 1))
            MaChaineValeurs = Split(.Cells(J, 1), .Cells(J, 3))(1)
            MonSplitValeurs = Split(MaChaineValeurs, " ")
            .Cells(J, 2) = "'" & Trim(Split(.Cells(J, 1), .Cells(J, 3))(0))
            .Cells(J, 10) = CLng(MonSplitValeurs(UBound(MonSplitValeurs)))
 
            ValeurEnCours = 0
            For ColonneEnCours = 4 To 4 + UBound(MonSplitValeurs) - 1
                With .Cells(J, ColonneEnCours)
                      .Value = ChaineATransformer(Trim(MonSplitValeurs(ValeurEnCours)))
                      .NumberFormat = "#,##0.00"
                End With
                ValeurEnCours = ValeurEnCours + 1
            Next ColonneEnCours
 
         Next J
 
    End With
 
    Set ShATraiter = Nothing
 
End Sub
 
 
Function LaChaineAlpha(ByVal ChaineATester) As String
 
Dim ChaineAlpha As Variant
Dim I As Integer, PremiereVirgule As Integer
Dim MaChaine As String
 
    LaChaineAlpha = ""
    PremiereVirgule = 0
    For I = Len(ChaineATester) To 1 Step -1
        If Mid(ChaineATester, I, 1) = "," Then PremiereVirgule = I
    Next I
 
    If PremiereVirgule = 0 Then Exit Function
 
    ChaineAlpha = Split(Mid(ChaineATester, 1, PremiereVirgule), " ")
    Debug.Print Mid(ChaineATester, 1, PremiereVirgule) & ", " & UBound(ChaineAlpha) & ", "; PremiereVirgule
    MaChaine = ""
    For I = 1 To UBound(ChaineAlpha) - 1
        MaChaine = MaChaine & "" & ChaineAlpha(I) & " "
    Next I
 
    LaChaineAlpha = Trim(MaChaine)
 
End Function
 
 
Function ChaineATransformer(ByVal LaChaine As String) As Variant
 
Dim I As Integer
Dim ValeurChaine As String
Dim ValeurSigne As String
 
    ValeurSigne = "Positif"
    ValeurChaine = ""
 
    For I = 1 To Len(LaChaine)
        Select Case Mid(LaChaine, I, 1)
               Case ","
                    ValeurChaine = ValeurChaine & "."
               Case "-"
                    ValeurSigne = "Négatif"
               Case Else
                    ValeurChaine = ValeurChaine & Mid(LaChaine, I, 1)
        End Select
    Next I
 
    If ValeurChaine <> "" Then
        If ValeurSigne = "Négatif" Then
           ChaineATransformer = "-" & ValeurChaine
        Else
           ChaineATransformer = ValeurChaine
        End If
    End If
 
 
End Function

[unparia]

Bonjour
S'inspirer de ceci (bâclé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
toto = "voilà un exemple123 adc 145,47aaaa"
titi = Split(StrConv(toto, vbUnicode), Chr(0))
  For i = 1 To UBound(titi) - 1
    Select Case IsNumeric(titi(i))
      Case False: If (IsNumeric(titi(i - 1)) And titi(i) <> ",") Then titi(i) = Chr(1)
      Case True: If Not IsNumeric(titi(i - 1)) And titi(i - 1) <> "," Then titi(i - 1) = Chr(1)
    End Select
  Next
  toto = Join(Split(Join(titi), Chr(1)), Chr(1))
  MsgBox toto

Ce code suppose le séparateur décimal "," si nombre décimal.
Il est ensuite aisé d'utiliser la méthode Range.TextToColumns, méthode (aide vba) si l'on veut éclater sur plusieurs colonnes.

[Invité]

Il est ensuite aisé d'utiliser la méthode Range.TextToColumns, méthode (aide vba) si l'on veut éclater sur plusieurs colonnes.

Salut Jacques,

Sauf qu'ici la distribution des colonnes n'est homogène. On suppose que la dernière valeur est toujours sur la dernière colonne, cependant le nombre de colonnes de valeurs est variable.

[unparia]

Bonjour Eric
Je ne comprends pas. Texttocolumns sait justement faire cela tout seul sur du texte délimité

[Invité]

La méthode fonctionne si tu complètes le nombre séparateurs nécessaires pour que la dernière valeur de toutes les lignes se retrouve dans la dernière colonne du tableau.

Pièce jointe 413565

[unparia]

A Eric
Je ne vois pas ce "requis" dans la demande formulée par CALOU3117, telle que formulée. Il n'y est nulle part précisé cela.
Il se peut que tu aies déduit ce besoin supplémentaire à l'observation du classeur qu'il a joint et que je n'ai bien sûr pas ouvert (je ne ferai jamais cela).

[Invité]

Je ne vois pas ce "requis" dans la demande formulée par CALOU3117, telle que formulée. Il n'y est nulle part précisé cela.
Il se peut que tu aies déduit ce besoin supplémentaire à l'observation du classeur qu'il a joint

Exact.

[CALOU3117]

Bonjour,

Merci à tous les 2 pour votre retour à ma demande.

La source que j'ai donné provient d'un fichier pdf que je souhaite convertir en excel. Tous les convertisseurs que j'ai essayé ne rendent pas le résultat escompté. Je vous joins une capture écran du fichier pdf. Comme les séparations sont représentées par des lignes horizontales, je n'arrive pas le convertir avec la fonction convertir d'excel. Y a t'il un moyen de le mettre sous format excel en respectant les montants dans les bonnes colonnes.

Merci par avance

Bien cordialement

[CALOU3117]

Bonjour,

Je viens de trouver la solution. Toute bête par ma fois !

Ouvrir le PDF avec word et ensuite copier les données dans une feuille excel. Les colonnes sont bien respectées.

Merci à vous pour le temps consacré à ma demande

Bien cordialement