Récupération d'un prénom dans une cellule

[presticath]

Bonjour,

comment puis-je récupérer le prénom dans les cellules suivantes (cf. fichier joint).

Merci d'avance
cordialement

 

[pierrejean]

Bonjour presticath

Un essai avec fonction personnalisée
NB: Le prénom doit être le second terme en Majuscule

 

[zebanx]

Bonjour Pierre-Jean, bonjour Presticath

Merci pour ce code et qui doit faire l'objet de nombreuses (et récurrentes) demandes.

Bonne journée -)
zebanx

-----
Pour Presicath, en reprenant (vraiment à la marge -), le code de P-J si vous souhaitez extraire le nom
Function nom (cellule)
x = Replace(cellule, " ", ";")
x = Split(x, ";")
For n = LBound(x) To UBound(x)
xx = Replace(x(n), ";", "")
If xx <> "" And UCase(xx) = xx Then
For m = 1 To Len(xx)
Z = Mid(xx, m, 1)
If Asc(Z) < 65 Or Asc(Z) > 90 Then
nok = True
End If
Next
If nok = False Then
' MsgBox (xx)
nb = nb + 1
If nb = 1 Then
nom = xx
Exit For
End If
End If
nok = False
End If
Next
End Function

 

[Spinzi]

Bonjour à tous,

un essai par formule (nécessite la création de 3 noms via le gestionnaire).

 

[Eric 45]

Bonjour à tous

En VBA, peut importe majuscule, minuscule, position dans la cellule sauf avant "ne le ...."

Option Explicit

Sub extract_prenom()

Dim x As Integer, i As Integer, a As Integer, b As Integer

Dim prenom As String
Dim saisie As String

For x = 1 To 6
    saisie = Range("A" & x)
    saisie = Replace(saisie, "    ", " ")
    saisie = Replace(saisie, "   ", " ")
    saisie = Replace(saisie, "  ", " ")

    If UBound(Split(saisie, " ")) > 5 Then
        For i = 1 To UBound(Split(saisie, " ")) - 5
            Mid(saisie, InStr(saisie, " "), i) = "-"
        Next i
    End If
   
    b = 0
    For a = InStr(saisie, " ") + 1 To InStr(saisie, " ") + 50
        If Mid(saisie, InStr(saisie, " ") + 1 + b, 1) <> Chr(32) Then
            prenom = Mid(saisie, InStr(saisie, " "), a - InStr(saisie, " ") + 1)
            b = b + 1
        Else
            Exit For
        End If
    Next

Range("C" & x) = prenom
Next x
End Sub

A+

Eric