Discussion :

[Grankiller33]

Bonsoir à tous,

Je cherche comment faire pour séparer le contenu d'une cellule.
Je vous explique :

la cellule A5 contient une chaine de caractère comme suit : LPMAT / CSM / LIGNE / MAT1
Je souhaite avoir chaque valeur dans une colonne spécifique.
A5 = LPMAT / CSM / LIGNE / MAT1
B5 = LPMAT
C5 = CSM
D5 = LIGNE
E9 = MAT1

Sachant que je souhaite faire de même pour toutes les lignes de ma base de données (6900 lignes)
et que la colonne A peut avoir :
- LPMAT tout simplement => Ai = LPMAT, Bi = LPMAT
- LPMAT / CSM => Ai = LPMAT / CSM, Bi = LPMAT, Ci=CSM.

Merci de votre aide, Macro ou formule .

[kiki29]

Salut, F1 sur Split

[GerardCalc]

Bonjour,

Merci de votre aide, Macro ou formule .

Et si c'était "ni macro, ni formule" ?

1. Sélectionner la colonne A, copier (Ctrl+C)
2. Coller en colonne B (Ctrl+V)
3. Onglet (ou Menu, selon la version d'Excel), Convertir → Délimité → Suivant : Décocher "Espace", cocher "autre" et mettre le séparateur adéquat /

C'est tout.

[Menhir]

Je vais supposer qu'il peut y avoir au maximum 4 "/" dans tes cellules A. S'il peut y en avoir plus, tu adapteras.

Tu mets en F5 la formule :

Code :

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

=A5

Tu mets en G5 la formule :

Code :

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

=SIERREUR(STXT(F5;TROUVE("/";F5)+2;1000);"")

Tu la recopies en H5 et I5

Tu mets en B5 la formule :

Code :

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

=SIERREUR(GAUCHE(F5;TROUVE("/";F5)-1);"")

Tu la recopies en C5, D5 et E5

Tu recopies B5:I5 sur toutes tes lignes.
Ensuite tu peux masquer les colonnes F à I si besoin.

Il doit être possible de faire ça sans les colonnes intermédiaires avec une formules à grand renforts de SI() multiples, mais cette solution a l'avantage d'être simple et facile à comprendre.

[antonysansh]

Bonjour a tous,

Voilà une autre solution avec la méthode TextToColumns :

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
Sub Split_ColA()
    Dim rg As Range, c1 As Range, c2 As Range
    With ActiveSheet
        Set c1 = .[A1]
        Set c2 = .Cells(.Cells(Application.Rows.Count, 1).End(xlUp).Row, 1)
        Set rg = .Range(c1, c2)
            rg.TextToColumns _
                Destination:=Range("B1"), _
                DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=True, _
                Tab:=True, _
                Semicolon:=False, _
                Comma:=False, _
                Space:=True, _
                Other:=True, _
                OtherChar:="/", _
                FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
                TrailingMinusNumbers:=True
    End With
End Sub