Forcer un affichage en majuscule

Bonjour a tous, forum bonjour

Je transfert le contenu d'une cellule (B21) vers la colonne (Z)

par une petite macro.

et je souhaiterai modifier l'affichage dans la colonne (Z)

Voir fichier svp fichier ci-joint avec les explications.

Merci a vous pour votre aide, bonne après midi

Cordialement Ray

25transfert.xlsm (15.25 Ko)

Bonjour,

Code à modifier :

Public Sub Transfert()
    With Cells(5, "Z")
        .Value = WorksheetFunction.Proper(Range("B21"))
        .Characters.Font.FontStyle = "Gras"
        .Characters.Font.Color = vbBlack
        .Characters(Start:=1, Length:=1).Font.Color = vbRed
    End With
End Sub

Salut Raja,

Merci pour la réponse

ça fonctionne presque LOL

j'ai effacer la colonne Z et mis l'écriture noire

je clic pour transférer (X) première lettre est bien rouge majuscule et la suite en minuscule noir

j'ai cliquer une deuxième fois par erreur et tout le texte passe en rouge et reste en rouge.

merci bonne après midi a toi.

Cdlt Ray

Re,

J'ai remis le code modifié dans mon précédent message. Essaye avec.

Re Raja

C'est bon, ça fonctionne bien, merci

Serait t'il possible svp de faire en sorte d'avoir tout le mot (X multi 5) majuscule.

Bonne fin d'après midi a toi.

Cdlt ray

Re,

Remplace la ligne 3 par :

.Value = UCase(Range("B21"))

Re Raja,

Merci beaucoup nickel, ca fonctionne bien comme souhaiter.

je vais pouvoir adapter a mon programme.

Je te souhaite un bon W-end ainsi qu'une bonne soirée.

Bye bye et encore grand merci a toi de partager ton savoir.

Cordialement Raymond

Rechercher des sujets similaires à "forcer affichage majuscule"