VBA séparer une chaine de caractère

Bonjour,

J'aimerais séparer une chaine de caractère, J'ai deux données dans une même cellule et j'aimerais les séparer dans deux cellules différentes. J'ai un énorme trou et je n'arrive plus à me souvenir du code pour le faire (je me suis fait avoir, je pensais que c'était " et pas ' + ' et je pensais séparé après le caractère ". Normalement le message devrait toujours être de cette forme là : hh:mm':ss'' et immédiatement à la ligne le pourcentage. Normalement le temps devrait faire toujours la même taille mais dans le doute j'aimerais essayer une autre méthode que compter les caractères pour séparer).

Je joint le fichier.

Merci.

Bonjour,

Une piste :

Sub test()

    Dim Valeur1 As String
    Dim Valeur2 As String

    Valeur1 = WorksheetFunction.Clean(Split(Range("B22").Value, Chr(13))(0))
    Valeur2 = WorksheetFunction.Clean(Split(Range("B22").Value, Chr(13))(1))

    MsgBox Valeur1 & vbCrLf & Valeur2

End Sub

Bonjour Timothe URVOY,

bonjour Theze,

Au vu du code initial :

Public Sub Séparation()
Dim DerCol As Integer, Col As Integer
Dim Ligne As Long
    DerCol = Cells(25, Columns.Count).End(xlToLeft).Column
    For Col = 2 To DerCol
        Ligne = Cells(Rows.Count, Col).End(xlUp).Row
        Cells(Ligne, Col) = Split(Cells(22, Col), Chr(10))(0)
        Cells(Ligne + 1, Col) = Split(Cells(22, Col), Chr(10))(1)
        Cells(Ligne, Col).Resize(2).Interior.ColorIndex = 6
    Next Col
End Sub

A+

Bonjour Theze et frangy,

merci pour les idées, du coup je reste sur du simple vu que "normalement" le test ne devrait pas dépasser les 48h (j'avais peur qu'on ai 1XX heures ce qui aurait pu être problématique avec la fonction split) :

Public Sub DerniereLigne()
Dim DerniereColonne As Integer
DerniereColonne = Cells(25, Columns.Count).End(xlToLeft).Column
For i = 2 To DerniereColonne
    j = Cells(Rows.Count, i).End(xlUp).Row
    Cells(21, i) = Split(Cells(j, i), Chr(10))(0)
    Cells(22, i) = Split(Cells(j, i), Chr(10))(1)
Next i
End Sub