Erreur de type 5; Argument ou appel de procédure incorrect

Bonjour,

J'aimerais créer une macros qui prend le prénom et nom dans une cellule pour la séparer en deux cellules, une prénom et l'autre nom.

J'ai ajouter des mises en forme pour une meilleure lecture et rester conforme avec la Langue française.

Pb ... la macro ne marche pas... Voici ci-dessous ma macro

Sub seperateur()

Dim FullName As String

Dim FirstName As String

Dim LastName As String

Dim SpacePos As Integer

Dim l As Long

For l = 1 To 10

If Cells(l, 1).Value = "" Then

l = l + 1

End If

FullName = Cells(l, 1).Value

SpacePos = InStr(FullName, " ")

FirstName = Left(FullName, SpacePos - 1)

FirstName = Application.WorksheetFunction.Proper(FirstName)

LastName = Right(FullName, Len(FullName) - Len(FirstName))

LastName = UCase(LastName)

Cells(l, 1).Offset(, 1).Value = FirstName

Cells(l, 1).Offset(, 2).Value = LastName

Next l

End Sub

Help please ^^,

En vous remerciant.

Yoboys

Bonjour,

dépose un fichier, ça sera plus facile pour tous

P.

Bonjour,

Merci pour la réponse, vous trouverez ci-joint le fichier en question.

Cordialement,

Yoboys

Bonjour,

essaie ainsi :

Sub Separateur()
Dim FullName As String, FirstName As String, LastName As String
Dim SpacePos As Long
Dim I As Long, k As Long
    For I = 1 To 10
        If Cells(I, 1).Value <> "" Then
            k = k + 1
            FullName = Cells(I, 1).Value
            SpacePos = InStr(FullName, " ")
            FirstName = Left(FullName, SpacePos - 1)
            FirstName = Application.WorksheetFunction.Proper(FirstName)
            LastName = Right(FullName, Len(FullName) - Len(FirstName) - 1)
            LastName = UCase(LastName)
            Cells(k, 2).Value = FirstName
            Cells(k, 3).Value = LastName
        End If
    Next I
End Sub

Bonjour Jean-Eric,

Merci beaucoup pour votre réponse. Ceci marche parfaitement !

Savez-vous pourquoi l'autre macro ne marchait pas ?

En vous remerciant encore

Cordialement,

Yoboys

Bonjour,

Regarde ceci à la place de ton code :

For I = 1 To 10
        If Cells(I, 1).Value <> "" Then
            k = k + 1
            'code
            '
            '
            Cells(k, 2).Value = FirstName
            Cells(k, 3).Value = LastName
        End If
    Next I