Extraire Majuscule cellule

Bonjour,

Je vous explique mon problème, j'ai une colonne qui contient le nom et prénom de plusieurs personnes ( 500 lignes )

Le nom est en majuscule et le prénom en minuscule, j'aimerais copier tous les noms en majuscules et les coller dans la colonne d'à coté.

Mais je botte en touche...

Merci de votre aide.

Bonjour

deux lignes de ton classeurs devraient permettre de répondre à ta question

si Nom et prénom sont séparés par un espace la formule peut être :

= gauche( tacellule;trouve(tacellule;" ")-1)

pour avoir tout en majuscule =majuscule(gauche( tacellule;trouve(tacellule;" ")-1))

Cordialement

FINDRH

J'ai bien un espace entre le NOM et le prenom mais ca n'a pas l'air de fonctionné.

Exemple en A2 j'ai :

TOTO Thomas

J'aimerais coller TOTO en B2.

En vba serait l'idéal.

Bonjour,

Une proposition parmi tant d(autres.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet
Dim lastRow As Long, i As Long

    Application.ScreenUpdating = False

    Set ws = ActiveSheet

    With ws
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To lastRow
            .Cells(i, 2) = Split(.Cells(i, 1))(0)
        Next i
    End With

    Set ws = Nothing

End Sub

as tu un espace avant le nom dans ta cellule ?

FINDRH

helas oui , des fois j'ai " NOM prenom"

J'ai un espace des fois avant le nom

RE,

Modifie le code dans la partie surlignée.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet
Dim lastRow As Long, i As Long

    Application.ScreenUpdating = False

    Set ws = ActiveSheet

    With ws
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To lastRow
            .Cells(i, 2) = Split(Trim(.Cells(i, 1)))(0) 
       Next i
    End With

    Set ws = Nothing

End Sub

Erreur dans ma formule, j'ai inversé les champs de la syntaxe de trouve....

Mille excuses

=GAUCHE(D4;TROUVE(" ";D4)-1)

ou D4 est la cellule à traiter

Cordialement

FINDRH

Un grand merci à vous à 2.

Jean Éric c'est parfait, petite question des fois la cellule est bonne ( sans espace avant le nom ) est que la première lettre du nom risque d'être effacé ?

Est j'aimerais faire la même chose mais avec les prénoms.... Je sais j'en demande beaucoup lol

Bonjour

une formule :

=stxt(cell;trouve(" ";cell)+1;100))

Ci joint un exemple avec suppression des espaces de début et de fin de zone extraite

Cordialement

FINDRH

avec suppression des espaces

Bonjour,

Regarde cette procédure et redis moi.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet
Dim lastRow As Long, Col As Long, i As Long
Dim x As String

    Application.ScreenUpdating = False

    Set ws = ActiveSheet

    Col = 1 ' colonne A, à adapter!...

    With ws
        lastRow = .Cells(Rows.Count, Col).End(xlUp).Row
        For i = 1 To lastRow
            x = Trim(.Cells(i, Col))
            .Cells(i, Col + 1) = UCase(Split(x, " ")(0))
            .Cells(i, Col + 2) = WorksheetFunction.Proper(Split(x, " ")(1))
        Next i
    End With

    Set ws = Nothing

End Sub