Split - contenu cellule

Version imprimable

18/07/2012, 18h44
OutilSUiVi

Split - contenu cellule

Bonjour à tous,

Je cherche à récupérer de façon distincte le contenu d'une cellule, je m'explique:

Une cellule contient plusieurs "bouts" de texte, séparés par un " / "

ex) C1 contient: "A / B / C"

je souhaiterais récupérer les infos distinctement dans 3 nouvelles cellules

C2 -> "A"
C3 -> "B"
C4 -> "C"

est-ce possible et si oui comment? :roll:

Merci d'avance ;)

Bonjour,

Code:

1
2
3
4
5
6
7
8
Sub Test()
Dim Tablo
Dim i As Integer
    Tablo = Split(Range("C1").Value, "/")
    For i = 0 To UBound(Tablo)
        Range("C" & i + 2) = Trim(Tablo(i))
    Next i
End Sub

Cordialement.

Merci! ton code marche nickel par contre (je pensais pouvoir me débrouiller tt seul mais je ne m'en sors pas)...

Je souhaiterais généralisé ton code à toutes les cellules renseignées de ma colonne (en l'occurence "W"...) feuille "BASEDEDONNEES" et récupérer les résultats splités dans une nouvelle feuille ("Feuil1") colonne "A".

ex) colonne "W": W2 = A / B / C ; W3 = A / B ; W(derniere ligne) = A

donne dans ma nouvelle feuille tout les splits à la suite dans la même colonne

A1 = A ; A2 = B ; A3 = C ; A4 = A ; A5 = B .... A(...) = A

J'ai commencé par cherché à définir la derniere cellule remplie de ma colonne "W" puis j'essaye une récurrence sur les cellules... pas d'erreur de compil mais au final pas de résultat (enfin si ça ne me retourne que A1 = A ; A2 = B ; A3 = C ... après rien)

Voici mon petit bout de code (soyez indulgents ^^ vba et moi c'est tt récent ^^)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Test2() Dim Tablo Dim i As Integer, j As Integer, der As Long der = Sheets("BASEDEDONNEES").Cells(Rows.Count, "W").End(xlUp).Row For j = 1 To der Tablo = Split(Sheets("BASEDEDONNEES").Cells(j, "W").Value, "/") For i = 0 To UBound(Tablo) Sheets("Feuil1").Range("A" & i + 1) = Trim(Tablo(i)) Next i Next j End Sub
Merci d'avance pour vos réponses :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test3()
 
der = Sheets("BASEDEDONNEES").Cells(Rows.Count, 23).End(xlUp).Row
 
For j = 3 To der
a = Sheets("BASEDEDONNEES").Cells(j, "W").Value
Tablo = Split(a, "/")
For i = 0 To UBound(Tablo)
Sheets("Feuil1").Cells(j - 2, i + 1) = Trim(Tablo(i))
Next i
 
 
Next j
 
End Sub

J'ai continué ma petite cuisine et ceci semble fonctionner :D

Bonjour,

C'est toujours plus gratifiant quand on trouve tout seul ;).
Prends la bonne habitude de déclarer tes variables (Option Explicit est à consommer sans modération).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Sub test3()
Dim Tablo() As String
Dim i As Integer
Dim j As Long, Der As Long
    With Worksheets("BASEDEDONNEES")
        Der = .Cells(Rows.Count, "W").End(xlUp).Row
        For j = 3 To Der
            Tablo = Split(.Cells(j, "W").Value, "/")
            For i = 0 To UBound(Tablo)
                Worksheets("Feuil1").Cells(j - 2, i + 1) = Trim(Tablo(i))
            Next i
        Next j
    End With
End Sub

Encore un petit :ccool: d'encouragement.

Cordialement.

19/07/2012, 12h37
OutilSUiVi

Merci pour ces conseils! :ccool: