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 ?