Discussion :

[sojobo38420]

Bonjour voila je vous explique mon problème , je récupère les donné d'une cellule dans une variable et les données que je récupère dans ma colonne A sont des chemin et j'aimerais avoir une fonction comme par exemple un Split ou autre chose pour séparer ce chemin a chaque "\"
Je vous transmet aussi mon fichier excel pour que vous voyez la colonne A

Merci =)

Code :

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

repertoire = Cells(i, 1) 'Je récupère la valeur de A comme ceci

[Mr Poulpe]

Bonjour,

Voici une fonction codée à la va vite :

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
Option Explicit
Function Scinder(Chaine As String, Separateur As String) As String()
Dim i As Integer
Dim Word_size As Integer
Dim Chaine_len As Integer
Dim Temp() As String
Chaine_len = Len(Chaine)
ReDim Temp(0)
 
Word_size = 1
For i = 1 To Chaine_len
    If Mid(Chaine, i, 1) = Separateur Then
        Temp(UBound(Temp)) = Mid(Chaine, i - Word_size + 1, Word_size - 1)
        ReDim Preserve Temp(UBound(Temp) + 1)
        Word_size = 1
    ElseIf i = Chaine_len Then
        Temp(UBound(Temp)) = Mid(Chaine, i - Word_size + 1, Word_size)
    Else
        Word_size = Word_size + 1
    End If
Next i
Scinder = Temp
End Function

En appelant la fonction avec la chaine (la cellule à "split") et le séparateur ("\") alors tu récupères un tableau de type "string" avec tous les éléments séparés par le "\".

NB : Sinon, sans VBA, tu as Données>Convertir>Délimité>Autre (Mettre \ ) qui te permet de séparer ta colonne en plusieurs en utilisant le " \ " comme séparateur.

Cordialement,

Un Poulpe

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim R As Range
Dim i As Long
Dim repertoire
 
Set R = Sheets("Feuille1").Range("A3").CurrentRegion
For i = 2 To R.Rows.Count
    repertoire = Split(Trim("" & R(i, 1)), "\")
Next
End Sub

[sojobo38420]

Merci pour ta réponse Robert mais comment puis-je vérifier si ma chaîne de caractère contenue dans ma variable à bien était séparer car un MsgBox me de déclare une incompatibilité de type ... :s

Merci d'avance =)

[Invité]

c'est un tableau!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim R As Range
Dim i As Long
Dim repertoire
 
Set R = Sheets("Feuille1").Range("A3").CurrentRegion
For i = 2 To R.Rows.Count
    repertoire = Split(Trim("" & R(i, 1)), "\") 'tableau de répertoires
    For i2 = 0 To UBound(repertoire) 'Scan le tableau
        MsgBox repertoire(i2)
    Next
Next
 
End Sub

[sojobo38420]

Merci de ton complément de réponse, maintenant j'aimerais savoir si il est possible de séparer de la même façon ma chaine mais ce que je voudrai c'est delete cette partie "14.5.1 - 20140404" enfin les chiffre d'avant je voudrai qu'une fois que cette partie de la macro exécuter quand je lance une MsgBox ce la m'affiche seulement par exemple : "ASYNC" ensuite "CodaEU_To_Xerox_Finance_Referential_Data" etc...

Merci encore pour ta réponse Robert =)

[Mr Poulpe]

Le code

For i2 = 0 To UBound(repertoire) 'Scan le tableau
MsgBox repertoire(i2)
Next
Next

te permet de boucler sur les éléments du tableau.

Si tu souhaites ignorer le début, remplace le i2 = 0 par i2 = 1

Poulpe