extraire un nom et la premiere lettre du prénom

[SSIAP2]

Bonjour à tous

j'aurais besoins un peut aide svp

dans ma feuil1 colonne A2 à A500 Des nom et prénom renseigne comme ceci

Dupont Robert

je souhaiterais que dans ma feuil2 Colonne B

Dupont Robert s’affiche comme ceci Dupont R

quelqun pourait m'aider svp merci

 

[R@chid]

Re : extraire un nom et la premiere lettre du prénom

Bonsoir,
en B2 :

=GAUCHE(A2;TROUVE(" ";A2)+1)

@ tirer vers le bas


@ + +

 

[DoubleZero]

Re : extraire un nom et la premiere lettre du prénom

Bonjour, SSIAP2, R@chid 🙂,

Autre possibilité avec le code suivant, sollicité depuis l'onglet "Feuil1" :

Option Explicit
Sub Nom_P_extraire()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Sheets("Feuil1").Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
        With Sheets("Feuil2").Range("b2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
            .FormulaR1C1 = "=LEFT(Feuil1!RC[-1],FIND("" "",Feuil1!RC[-1])-1)&"" ""&MID(Feuil1!RC[-1],FIND("" "",Feuil1!RC[-1])+1,1)"
            .Value = .Value
        End With
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[SSIAP2]

Bonjour double zero merci pour ton aide et désoler pour cette réponse tardive dût au fait que j'avais pas vue ton poste encore désoler merci

 

[R@chid]

Bonsoir @ tous,
Salut DoubleZero, Salut SSIAP2
Salut R@chid et désolé puisque ta réponse ne me convient pas.

Cordialement