sur certaine ligne dont celle-ci par exemple :
NAPOLEON, Carolina (Tremblay) 1886-1980
il y a 1 espace devant la ligne et 3 espaces à la fin représenté par des *
*NAPOLEON, Carolina (Tremblay) 1886-1980***
Normalement trim supprime les espaces en trop avant et après
trim(*NAPOLEON, Carolina (Tremblay) 1886-1980***," ") // ici les espaces sont des *
Le resultat attendu doit être
NAPOLEON, Carolina (Tremblay) 1886-1980
alors que le résultat est toujours
*NAPOLEON, Carolina (Tremblay) 1886-1980***
Sub extraction()
For i = 2 To Cells(65536, 1).End(xlUp).Row
' Nettoyage espace trim
Cells(i, 1) = Trim(Cells(i, 1))
' Colonne B = Nom
Cells(i, 2) = Split(Cells(i, 1), ",")(0)
' Colonne C = Prénom
Cells(i, 3) = Split((Split(Cells(i, 1), ",")(1)), " ")(1)
' Colonne D = Nom jeune fille
If Split(Cells(i, 1), ",")(1) Like "*" & "(" & "*" Then
Cells(i, 4) = Split(Split(Split(Cells(i, 1), ",")(1), "(")(1), ")")(0)
End If
' Colone E = DDN et Colone F = DDD
If Split(Cells(i, 1), " ")(UBound(Split(Cells(i, 1), " "))) Like "*" & "-" & "*" Then
Cells(i, 5) = Split(Split(Cells(i, 1), " ")(UBound(Split(Cells(i, 1), " "))), "-")(0)
Cells(i, 6) = Split(Split(Cells(i, 1), " ")(UBound(Split(Cells(i, 1), " "))), "-")(1)
Else
Cells(i, 5) = Split(Cells(i, 1), " ")(UBound(Split(Cells(i, 1), " ")))
End If
Next i
End Sub