Extraire des donnee d'un champ avec macro

Utilisateur anonyme -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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