Discussion :

[didousama]

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 :

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

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.

[Theze]

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 :

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

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é.

[didousama]

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 :

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

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.

[Theze]

Re,

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

Code :

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

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é.

[didousama]

Alors là je dis Merci Merci et Mille Merci.

Je vais pouvoir partir en week-end bien heureuse.

Ça fonctionne nickel.

[Theze]

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

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

Hervé.