Manipulation chaine de caractères

Bonjour à tous,

je me permets de poster ce message car je suis quelque peu en difficulté. En effet dans le cadre d'un exercice je dois manipuler une chaîne de caractère avec comme objectif d'isoler le premier caractère de la dite chaîne pour le mettre en gras et majuscule.

J'ai conscience que ce n'est pas particulièrement difficile, malgré tout je n'arrive pas à mélanger ces éléments

variable = Left( varTexte, varLongueur )

ucase pour la majuscule et bold pour le gras

Si quelqu'un avait la gentillesse de m'aider, ce serait gentil

Merci d'avance

Bonjour,

à tester,

varTexte = "Le Test"
varLongueur = 1
variable = UCase(Left(varTexte, varLongueur))

pour le Bold, cela dépend ou tu mettras le résultat de la variable,

en cellule ?

sur une forme ?

Salut agbj et

un exemple pour la céllule A1

Private Sub majuscule()
Range("A1").Value = Application.Proper(Range("A1").Value)
Range("A1").Characters(1, 1).Font.Bold = True
End Sub

Sinon

Merci beaucoup pour vos messages si rapide

Je vais essayer tout ça et adapter si besoin

i20100 a écrit :

Bonjour,

à tester,

varTexte = "Le Test"
varLongueur = 1
variable = UCase(Left(varTexte, varLongueur))

pour le Bold, cela dépend ou tu mettras le résultat de la variable,

en cellule ?

sur une forme ?

En soit c'était pour faire une petite macro que je pourrais utiliser où je le souhaite au niveau des feuilles

Re,

voici une macro exemple pour faire les changements dans toute la colonne A

à adapter

Sub MajusculeGras()

Dim oMatches As Object, i As Long, vOut As Variant, r As Range

For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp))
     r.Value = StrConv(r.Value, vbProperCase)

    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\b(\w+)"
        If .Test(r) Then
            Set oMatches = .Execute(r)
            ReDim vOut(0 To oMatches.Count - 1)
            For i = 0 To oMatches.Count - 1
                  vOut(i) = oMatches(i).firstindex + 1
            Next i
            For i = LBound(vOut) To UBound(vOut)
                r.Characters(vOut(i), 1).Font.Bold = True
            Next i
        End If
    End With
Next r

End Sub