Extraire des donnee d'un champ avec macro Fermé

Question

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



Configuration: Windows 7 Prenium
AMD 6400+ 2.3GHZ Dual-Core
4 GB Ram
1 Go Memoire Graphique (Carte PCI/E)
1 Lecteur/Graveur DVD/CD + DVD+-RW CD+-RW
1 Lecteur Blu-Ray Hd-DVD / Lecteur/Graveur DVD/CD + DVD+-RW CD+-RW
Internet Explorer 8
Firefox (Derniere Version)
Safari (Derniere Version)
Chrome (Derniere Version)

Mac OSX 10.6.6
Intel Core 2 Duo 2.52GHZ
4 GB Ram
256 Mo Memoire Graphique
Firefox (Derniere Version)
Safari (Derniere Version)
Chrome (Derniere Version)

michel_m · Answer

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

Extraire des donnee d'un champ avec macro

1 réponse

Discussions similaires