Extraire des donnee d'un champ avec macro
Utilisateur anonyme
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
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:
- Extraire des donnee d'un champ avec macro
- Extraire une video youtube - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Extraire le son d'une vidéo - Guide
- Extraire image pdf - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
Bonjour
essaies
et pour toute la colonne C
Michel
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
