VBA Spliter une cellule

[Arpette]

Bonjour à tous, je souhaite spliter la partie gauche d'une cellule qui contient le caractère / puis ensuite faire une concaténation. Je n'arrive pas à spliter. Voici mon code :

Sub test()

Dim i as long
Dim j as long

For i = 2 To 65536
    For j = 2 To 65536
    j = Split(Cells(i, 4).Text, "/")
    Cells(i, 5).Value = j & "-" & Cells(i, 23).Value & "-" & Cells(i, 33).Value
    Next j
Next i

End Sub

Merci de votre aide.

 

[RENAUDER]

Re : VBA Spliter une cellule

Bonjour,

Par exemple:

Sub test()
    Dim i As Long
    Dim j As Long
    Nb = Range([D2], [D65536].End(xlUp)).Rows.Count
    For i = 2 To Nb + 1
        Valeur = Split(Cells(i, 4).Text, "/")
        Cells(i, 5).Value = Valeur(0) & "-" & Cells(i, 23).Value & "-" & Cells(i, 33).Value
    Next i
End Sub

 

[Arpette]

Re : VBA Spliter une cellule

Bonjour,

Par exemple:

Sub test()
    Dim i As Long
    Dim j As Long
    Nb = Range([D2], [D65536].End(xlUp)).Rows.Count
    For i = 2 To Nb + 1
        Valeur = Split(Cells(i, 4).Text, "/")
        Cells(i, 5).Value = Valeur(0) & "-" & Cells(i, 23).Value & "-" & Cells(i, 33).Value
    Next i
End Sub

Bonjour Eric, merci c'est nickel.
Bonne soirée.