Bonjour,
Dans une feuille lors de l'import de valeurs d'un fichier texte une colonne contient les valeurs noms et prénoms séparés par "_" et "/".
Nom1_Prenom1/Nom2_Prenom2/Nom3_Prenom3 etc...

Je souhaiterais récupérer les noms et prénoms dans deux colonnes distincte.

J'ai créé ce code grâce au tuto de SilkyRoad https://silkyroad.developpez.com/VBA...nesCaracteres/
Je sépare bien Nom_prénom mais je ne sais pas comment séparer le nom du prénom dans deux colonnes.
Merci pour une piste.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Extraire les données séparées par un caractère spécial dans une chaine de caractères
Sub extractionNomPrenom()
 
    Dim Tableau() As String
    Dim i As Integer
    Set sh = Sheets("Fiche") '
 Set f = Sheets("Data2") 'feuille source
ValIdent = sh.Range("E9").Value 'définit la valeur à rechercher
ligneEnreg = Sheets("Data2").[A:A].Find(ValIdent, LookIn:=xlValues).Row 'défini la ligne de référence lorsque le choix est effectué
    'découpe la chaine en fonction des  "/" nom_prénom
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(f.Cells(ligneEnreg, 30), "/")
 
    'boucle sur le tableau pour afficher le résultat
    j = 11 'début ligne11
    For i = 0 To UBound(Tableau)
 
        'Le résultat s'affiche dans la feuille Fiche colonne DC
        sh.Range("dc" & j) = Tableau(i)
        j = j + 2 'saut de deux lignes
 
    Next i
End Sub