Mettre en majuscule

Bonjour a tous et toutes, forum bonjour,

Je cherche a mettre la première lettre en "Majuscule" et de couleur "Rouge" et "Gras"

dans la zone A1:H1 de la ligne 1, (Voir svp le fichier).

J'ai fait pleins d'essais trouver sur le site, mais je ni arrive pas.

Voir le fichier ci-joint avec quelques explications complémentaires.

Merci d'avance pour votre aide.

Bonne après midi a vous.

Cdlt Ray

Bonsoir,

juste une petite remarque :

Ce genre de mise en forme pour forcer le retour à la ligne : "sélection et référence______code article", faut éviter...

Pour un retour à la ligne dans une cellule il y a en effet la fonction automatique, mais elle ne fait pas toujours ce que l'on veut, c'est pourquoi il existe le [Alt]+[Entrée], et là oui, on maitrise la mise en forme de ses cellules ! Et on évite d'insérer une multitudes d'espaces !

@ bientôt

LouReeD

Bonjour,

à tester,

Sub test()
For Each c In Range("A1:H1")
 t = Split(c, " ")
 For i = LBound(t) To UBound(t)
   c.Value = Application.Substitute(c, t(i), Application.Proper(t(i)))
 Next i
Next

For Each c In Range("A1:H1")
 t = Split(c, " ")
 For i = LBound(t) To UBound(t)

      x = Application.Find(t(i), c)

      With c.Characters(Start:=x, Length:=1)
        .Font.FontStyle = "Gras"
        .Font.Color = RGB(255, 0, 0)
      End With

 Next i
Next
End Sub

Bonjour a tous, forum bonjour,

Bonjour i20100,

Merci pour ta réponse, j'ai essayer et c'est presque bon.

Voir svp le fichier joint, j'ai écrit ce qui va pas, comme ca c'est plus clair.

Merci et une bonne journée a toi.

Cdlt Ray

Re,

Option Explicit
Sub test()
Dim cel As Range
  For Each cel In ActiveSheet.Range("A1:H1")
    With cel
      .Value = UCase(Left(.Text, 1)) & Mid(.Text, 2)
      .Font.ColorIndex = xlAutomatic
      .Characters(Start:=1, Length:=1).Font.Color = vbRed
    End With
  Next cel
End Sub