Discussion :

[counterbob]

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

[Philippe Tulliez]

Bonjour,
Il suffit de refaire un Split
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub t()
 Const txt As String = "Nom1_Prenom1/Nom2_Prenom2/Nom3_Prenom3"
 Dim Tableau_1() As String
 Dim Tableau_2() As String
 Dim Elem_1 As Long, Elem_2 As Long
 Tableau_1 = Split(txt, "/")
 
 For Elem_1 = 0 To UBound(Tableau_1)
   Tableau_2 = Split(Tableau_1(Elem_1), "_")
     MsgBox Tableau_2(0) & " - " & Tableau_2(1)
 Next
End Sub

[counterbob]

Merci beaucoup Philippe
c'est parfait, je ne savais pas que l'on pouvait imbriquer des tableaux
bonne soirée