Extraire des donnee d'un champ avec macro

Utilisateur anonyme -  
Bonjour,

J'ai un fichier ou dans un champs (colonne C) je note
prenom.nom
prenom.nom
...

J'aimerais si posssible fair une macro qui va extraire le prenom de le nom et va l'inserer dans la colonne d'a coté (colonne B) "prenom non".

Esce possible et pourriez vous m'aider cart je n'y connais vraiment rien du tout et gagner du temps dans ce que ej fais m'aiderai beaucoup.

D'avance merci et Bonne Journée

P.S : Désoler pour mon orthographe

1 réponse

  1. michel_m Contributeur
    Bonjour

    essaies 
    Sub separer_nom(identite As Range) 
separe = Split(identite, ".") 
identite.Offset(0, -1) = separe(0) 
identite = separe(1) 

End Sub 
Sub test() 
separer_nom Cells(1, 3) 
End Sub


    et pour toute la colonne C 
    Sub test()
Dim fin As Long, lig As Long
fin = Cells(Cells.Rows.Count, 3).End(xlUp).Row
For lig = 1 To fin
    separer_nom Cells(lig, 3)
Next
End Sub

    Michel
    0