Extraire des donnee d'un champ avec macro

Fermé
Utilisateur anonyme - 14 mars 2011 à 10:19
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 mars 2011 à 11:18
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



A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 14/03/2011 à 11:21
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