VBA excel extraire des chaines de caractéres d'une cellule

Version imprimable

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:

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 ?

01/08/2018, 10h40
BENNASR

Bonjour
et avec la fonction standard de Excel GAUCHE ??? sans passer par VBA ??
01/08/2018, 10h44
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...
01/08/2018, 11h01
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.

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

Code:

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

01/08/2018, 11h33
AimeDija

1 pièce(s) jointe(s)
Merci, le code proposer ne donne aucun résultat, j'ai juste adapter
Code:

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
    Dim t As Integer
    With Sheets("Page1_1")
    j = .Range("AI" & Rows.Count).End(xlUp).Row
    For j = 1 To j
    If .Cells(j, 35) Like "*-*" Then
    Tableau = Split(.Cells(j, 35), "-")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
    Next i
    .Cells(j, 35) = Tableau(0)
    End If
    Next j
    End With
End Sub

01/08/2018, 13h23
AimeDija

Bennasr,

Un grand merci, j'ai testé le code et il fonctionne parfaitement.

Passe une bonne journée,