Discussion :

[AimeDija]

Bonjour à tous,

je viens vers vous afin de résoudre un probléme qui parraît simple mais qui me pose probléme; Séparer une chaine telle que 01/01/2018-E4444444 en 01/01/2018

Connaissant la fonction Excel Données > Convertir afin de séparer des chaines de caractéres dans une cellules en deux ou plusieurs cellules, je cherche à automatiser le process sur plus de 50 000 lignes (la raison est que que je ne peux selectionner l'entiéreté de la colonne et effectuer l'opération sans affecter les autres cellules) avec le code suivant :

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
 
 
sub SplitCells()
 
    Dim DerniereLigne As Integer
    Dim PositionTiret As Integer
    Dim Contenu As String
    Dim Adroite As String
 
 
With Feuil4
    DerniereLigne = Cells(65535, 1).End(xlUp).Row
    For i = 1 To DerniereLigne
        Contenu = Cells(i, 35).Value
        PositionTiret = InStr(Contenu, "-")
 
        If PositionTiret > 0 Then
            Adroite = Right(Contenu, Len(Contenu) - PositionTiret)
            Cells(i, 35).Value = Adroite
 
        End If
 
    Next i
End With
 
End Sub

Mon probléme est que j'obtiens le résultat suivant 01/01/2018- en lieu et place de 01/01/2018 , auriez vous l'amabilité de me guider ?

[BENNASR]

Bonjour
et avec la fonction standard de Excel GAUCHE ??? sans passer par VBA ??

[78chris]

Bonjour

Si toutes les dates sont bien sous la forme jj/mm/aaaa il suffit, par formule ou en VBA de prendre les 10 caractères de gauche...

[AimeDija]

Bonjour Bennasr,

Merci pour ton retour, je pense que cette fonction ne me permets pas de retranscrire les données dans la même cellule et ne prend pas en compte une colonne entiére avec d'autres données ne devant pas être séparées.

Bonjour Chris,

Merci pour ton retour rapide, j'essaye d'adapter mon code afin de juste spliter la cellule à l'endroit précis du "-" afin de garder la date dans la cellule source.

[BENNASR]

essayer avec ça sur une copie de ton travail
je suis pas responsable des dégâts potentiels

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
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    Dim t As Integer
    With Sheets("feuil1")
    j = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To j
    Tableau = Split(.Cells(j, 1), "-")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
    Next i
    .Cells(j, 1) = Tableau(0)
    Next j
    End With
End Sub

[AimeDija]

Merci, le code proposer ne donne aucun résultat, j'ai juste adapter

Code :

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

1
2
 
 j = .Range("AI" & Rows.Count).End(xlUp).Row

mais le code ne change rien. merci de trouver ci-joint un fichier excel représentant mon probléme