Discussion :

[OutilSUiVi]

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?

Merci d'avance

[gFZT82]

Bonjour,

Code :

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

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.

[OutilSUiVi]

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 :

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
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

[OutilSUiVi]

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
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

[gFZT82]

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 :

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

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 d'encouragement.

Cordialement.

[OutilSUiVi]

Merci pour ces conseils!