Extraction d'une partie de texte d'une cellule

Bonjour,

Je cherche à extraire une partie du texte d'une cellule dans une autre cellule.

Pour l'instant dans mon code, j'extrais tout le texte de la cellule comme ceci :

Code:

---

1 2 3 4 5 6 7

For limit = ligne To 1 Step -1 If Cells(limit, 2).Value Like "Utilisateur:*" Then Cells(result, 17).Value = Cells(limit, 2).Value limit = 1 End If Next limit

---

je sais que chaque cellule est remplie de la même façon Utilisateur : Nom Prénom(identifiant) et je ne souhaiterais à chaque fois reporter que la partie Nom Prénom qui bien entendu est variable d'une ligne à l'autre.

Si quelqu'un a une idée, je l'en remercie vivement.

Cordialement.

Bonjour,

Une piste avec Split(). Attention pour les noms et prénoms composés ! Sinon, poste quelques valeurs de cellules afin qu'on puisse voir comment sont construites tes chaînes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test()   Dim Chaine As String Dim Prenom As String Dim Nom As String   Chaine = "ninie didou"   Prenom = Split(Chaine, " ")(0) Nom = Split(Chaine, " ")(1)   MsgBox "Nom : " & Nom & vbCrLf & "Prenom : " & Prenom   End Sub

---

Hervé.

Bonjour,

Merci pour cette solution!

Elle fonctionne très bien mais comme vous l'avez dit si une personne a un nom ou prénom composé ça bloque.

Du coup, j'ai ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

For limit = ligne To 1 Step -1 If Cells(limit, 2).Value Like "Utilisateur:*" Then tableau = Split(Cells(limit, 2).Value, " ") For i = 0 To UBound(tableau) Worksheets("resultat").Cells(resultjpierre, 3).Value = tableau(1) + (" ") + tableau(2) Next i limit = 1 End If Next limit

---

Mais effectivement si dans la cellule j'ai par exemple : Utilisateur: Sarah Al Madi Cander (salmadi)
et bien je perd les mots Madi Cander

il faudrait donc une solution pour que je garde le contenu de la cellule en supprimant juste Utilisateur: et le texte entre ()
sachant que toute les cellule sont sous ce modèle la

merci encore pour le split().

Cordialement.

Re,

Si c'est cette chaîne que tu souhaite récupérer "Sarah Al Madi Cander" alors, teste ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test()   Dim Chaine As String   Chaine = "Utilisateur: Sarah Al Madi Cander (salmadi)"   Chaine = Replace(Chaine, "Utilisateur: ", "") Chaine = Left(Chaine, InStrRev(Chaine, "(") - 2)   MsgBox Chaine   End Sub

---

Hervé.

Alors là je dis Merci Merci et Mille Merci.

Je vais pouvoir partir en week-end bien heureuse.

Ça fonctionne nickel.

Je suis content d'éclairer ton WE ;-)

Je te souhaite un très bon WE ainsi qu'à tout le monde !!!

Hervé.