Modification parti de texte minuscule en majuscule et en gras

Question

Bonjour

Dans un tableau Excel, dans la colonne B se trouve écrits plusieurs mots en minuscule dont la première lettre est en majuscule

je recherche une solution qui remplace ce premier mot en majuscule et en gras

comme exemple:

Dupont Maurice -----> DUPONT Maurice

Durand Albert -------> DURAND Albert

Martin Jean ----------> MARTIN Jean

Merci par avance de la solution que vous pourrez m'apporter

Cordialement

Philippe

Answer 1

Sub test()

  Dim C As Range, Pos As Integer

  For Each C In Range("B1", Cells(Rows.Count, 2).End(xlUp))

    If C <> "" Then

      Pos = InStr(C.Value, " ")

      If Pos > 0 Then

        Pos = Pos - 1

      Else

        Pos = Len(C.Value)

      End If

      C.Offset(, 1).Value = UCase(Left(C.Value, Pos)) & Mid(C.Value, Pos + 1, 9 ^ 9)

      C.Offset(, 1).Characters(1, Pos).Font.Bold = True

    End If

  Next C

End Sub

Daniel

Answer 2

Daniel

J'ai essayé la macro reçue, elle a générée une nouvelle colonne

dont le premier mot est bien passé en majuscule et en gras

tout est est parfait, merci

Par contre j'avais oublié de spécifié que dans quelques cellules il n'y avait qu'un seul mot

ce mot est bien passé en gras par contre il n'est pas passé en majuscule il est resté en minuscule

il y a peut être une solution ?

Merci

Philippe

Answer 3

Essaie :

Sub test()

  Dim C As Range, Pos As Integer

  For Each C In Range("B1", Cells(Rows.Count, 2).End(xlUp))

    If C <> "" Then

      Pos = InStr(C.Value, " ")

      If Pos > 0 Then Pos = Pos - 1

      C.Offset(, 1).Value = UCase(Left(C.Value, Pos)) & Mid(C.Value, Pos + 1, 9 ^ 9)

      C.Offset(, 1).Characters(1, Pos).Font.Bold = True

    End If

  Next C

End Sub

Si tu ne sais pas comment installer la macro, dis-le.

Daniel

Answer 4

Bonjour

si cela est réalisable avec une macro il n'y pas de soucis.

Merci

Philippe

Answer 5

Bonjour,

A ma connaissance, je ne vois qu'une macro qui puisse le faire. Est-ce que cette solution te convient ?

Daniel