Comment faire trois colonnes à partir d'une seule

**Kassou** · 20/10/2014, 08h20

Bonjour,
J'ai copié un tableau (a partir d'un fichier adobe) et tout se retrouve dans 1 seule colonne qui contient du texte et des chiffres (aliment + indice glycémique). J'aimerai a partir de celle colonne en faire 3 distinctes.
Ex : Abricots (fruit frais) 30 Abricot (boîte, au sirop) 55 Ananas (boîte) 65
Je souhaiterai avoir :
Colonne A :
Abricots (fruit frais) 30
Colonne B :
Abricot (boîte, au sirop) 55
Colonne C :
Ananas (boîte) 65
Mon fichier est assez long et je ne suis pas du tout callée pour trouver la formule qui le fasse en une seul fois. Je vous joint le fichier si besoin.
Merci à celle ou celui qui m'aidera.
Kassou

**rjamin** · 20/10/2014, 11h44

Bonjour,
Je viens de regarder le fichier mais au vu de l'organisation catastrophique des données il n'est à mon sens pas possible d'utiliser Convertir que l'on trouve dans l'onglet Données. Dommage car cela est très pratique mais pour cela il faut des données régulières même nombres de données à séparer par ligne et un séparateur différent d'un espace soit une , ou un ; par exemple.
Désolé

**Daniel.C** · 20/10/2014, 11h50

Bonjour,

En colonne B :

Code :

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

=GAUCHE(A4;CHERCHE(") ";A4))

en colonne C :

Code :

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

=GAUCHE(SUBSTITUE($A4;B4&" ";"");CHERCHE(") ";SUBSTITUE($A4;B4&" ";"")))

en colonne D :

Code :

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

=GAUCHE(SUBSTITUE($A4;B4& " "&C4&" ";"");CHERCHE(") ";SUBSTITUE($A4;SUBSTITUE($A4;B4&" "&C4&" ";"")&" ";"")))

à recopier vers le bas.

Il faut que la colonne ait bien exactement la même structure.

**Kassou** · 20/10/2014, 13h00

Envoyé par Daniel.C

Bonjour,

En colonne B :

Code :

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

=GAUCHE(A4;CHERCHE(") ";A4))

en colonne C :

Code :

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

=GAUCHE(SUBSTITUE($A4;B4&" ";"");CHERCHE(") ";SUBSTITUE($A4;B4&" ";"")))

en colonne D :

Code :

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

=GAUCHE(SUBSTITUE($A4;B4& " "&C4&" ";"");CHERCHE(") ";SUBSTITUE($A4;SUBSTITUE($A4;B4&" "&C4&" ";"")&" ";"")))

à recopier vers le bas.

Il faut que la colonne ait bien exactement la même structure.

Bonjour Daniel,

C'est presque ça, mais il faudrait que l'Aliment soit avec l'indice glycémique,
ex Abricots (fruit frais) 30
Abricot (boîte, au sirop) 55
ect...
Je ne sais pas introduire la notion chiffre après la parenthèse.
Merci de ton aide

**Daniel.C** · 20/10/2014, 17h38

Je ne vois alors rien d'autre qu'une fonction personnalisée (macro). Est-ce que tu es d'accord ?

**Kassou** · 20/10/2014, 17h53

Envoyé par Daniel.C

Je ne vois alors rien d'autre qu'une fonction personnalisée (macro). Est-ce que tu es d'accord ?

OK
Merci a toi

**Daniel.C** · 20/10/2014, 21h00

Mets cette fonction dans un module standard :

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
Function Repart(C As Range, NumCol As Integer) As String
    Dim i As Integer, Ctr As Integer
    Dim Rub() As String, Temp As String
    Dim Bip As Integer
    Application.Volatile
    ReDim Preserve Rub(0)
    For i = 1 To Len(C.Value)
        If IsNumeric(Mid(C.Value, i, 1)) Then
            Temp = Temp & Mid(C.Value, i, 1)
            Bip = 1
        ElseIf Not IsNumeric(Mid(C.Value, i, 1)) And Bip = 0 Then
            Temp = Temp & Mid(C.Value, i, 1)
        ElseIf Not IsNumeric(Mid(C.Value, i, 1)) And Bip = 1 Then
            Rub(UBound(Rub)) = Temp
            Temp = ""
            Bip = 0
            ReDim Preserve Rub(UBound(Rub) + 1)
            Temp = Temp & Mid(C.Value, i, 1)
        End If
    Next i
    Select Case NumCol
        Case 1: Repart = Rub(0)
        Case 2: Repart = Rub(1)
        Case 3: Repart = Temp
    End Select
End Function

La fonction "Repart" a deux arguments : la cellule contenant le texte et le numéro du morceau à récupérer (1 pour la partie gauche, 2 pour le milieu et 3 pour la partie droite) :

Code :

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

=Repart(A4;2)

renvoie : "Abricot (boîte, au sirop) 55"

**keygen08** · 20/10/2014, 21h16

Bonjour

Code :

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

1
2
3
=GAUCHE(A1;CHERCHE(") ";A1)+3)
=GAUCHE(SUBSTITUE($A1;B1&" ";"");CHERCHE(") ";SUBSTITUE($A1;B1&" ";""))+3)
=GAUCHE(SUBSTITUE($A1;B1& " "&C1&" ";"");CHERCHE(") ";SUBSTITUE($A1;SUBSTITUE($A1;B1&" "&C1&" ";"")&" ";""))+3)

pourquoi ne pas faire comme ceci ??