[Excel] Majuscule sur la première lettre Résolu

Question

Bonjour,
lorsqu'on insère du texte dans excel, y'a-t-il un moyen pour que la première lettre de chaque cellule soit mise automatiquement en majuscule?
J'ai regardé dans outils/options/orthographe mais n'y ai rien trouvé le permettant. Une astuce peut-être?
D'avance merci pour votre aide!

Configuration: Excel 2003
Windows XP

Rinos · Accepted Answer

Il y a plus simple :
=CONCATENER(MAJUSCULE(GAUCHE(D2;1));DROITE(D2;(NBCAR(D2))-1))

En gros, on extrait la première lettre à gauche (GAUCHE()) que l'on passe en majuscule (MAJUSCULE()), puis on extrait la partie droite(DROITE()) après la première lettre (NBCAR(D2))-1), on concatène le tout...

sardine-à l'huile · Answer

Salut
bah ça parait bete mais non, il existe des fonctions mais qui mettront une majuscule à CHAQUE mot, ou tout en capitales.
En fait, c'est excel et pas word, ce n'est pas un traitement de texte.

Joel

JvDo · Answer

bonsoir,

une petite macro à mettre en embuscade derrière la feuille de calcul dans laquelle tu effectues ta saisie :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value >= "a" And Target.Value <= "z" Then
    Target.Value = Chr(-32 + Asc(Left$(Target.Value, 1))) & Right$(Target.Value, Len(Target.Value) - 1)
End If
End Sub

A+

JvDo · Answer

Bonsoir,

en fait, il faut mettre le code derrière la feuille dans laquelle tu veux que ça marche.

donc tu te mets sur l'onglet 1,
tu fais ALT + F11 pour accéder à VBA
tu fais un clic droit sur feuil1 dans la fenêtre VBA Projet (en haut à gauche)
dans le menu contextuel qui s'affiche, tu choisis code
enfin, dans la fenêtre de droite qui apparait alors, tu copies le code.

tu retournes dans ton onglet et tu t'amuses pour vérifier que ça marche.

regarde là : http://cjoint.com/?chca6ry3tT
j'ai rajouté une ligne de code pour éviter certains soucis

bon courage et n'hésite pas si tu as des problèmes

A+

JvDo · Answer

bonsoir,bien sur que tu vas y arriver!regarde : http://cjoint.com/?ciazghJuAx, il y a des images.A+

JvDo · Answer

bonsoir,

bonne nouvelle donc!

pour la macro qui fait de la résistance, ça n'est pas normal.

personnellement, pour les macros incluses dans des modules, je fais clic droit sur le module, supprimer et je dis non à l'export du module.
Pour celles attachées à une feuille, que ce soit feuil1 ou thisworkbook, j'affiche le code (clic droit sur feuil1 ou thisworkbook puis code) et je l'efface comme si j'étais dans un éditeur de texte.

avec ça, il n'y a plus de sollicitations intempestives à l'ouverture du classeur autour de macros à activer ou pas.

bon courage

PS : n'oublie pas d'enregistrer ton classeur après l'effacement des macros!!!

Bridget Jones · Answer

Bonjour,

J'arrive bien après la bataille mais il y a une solution beaucoup plus simple qu'une macro pour mettre en majucule la première lettre d'une cellule : la fonction NomPropre. 
Cf http://www.info-3000.com/excel/majuscule.php (procédure pour mise en majuscules, puis évocation des fonctions NomPropre et Minuscule, qui reprennent exactement la même procédure).

sofiane06 · Answer

voilà une macro qui va pouvoir vous aider!
a+


Sub Transforme()

    Dim Valeur As String
    Dim Plage, Cellule As Range
    
    ' Ici spécifier la plage à couvrir !
    Set Plage = Range("A1:A700")
    
    For Each Cellule In Plage
        Valeur = Mid(Cellule.Value, 2)
        Valeur = UCase(Mid(Cellule.Value, 1, 1)) & Valeur
        Cellule.Value = Valeur
    Next Cellule

End Sub

labrele · Answer

Bonjour

Je suis un nouveau sur ce forum et je doit dire que celui-ci est vraiment supper pour les trucs et astuces.

A ce sujet j'ai une demande complémentaire a faire sur ce topic.

Voila la macro ci-dessus me convient parfaitement dans l'esprit mais je voudrait l'appliquer sur une zone nommée.

J'ai bien testé différentes solutions mais je n'arrive pas a extraire les bornes de la zone nommée pour les intégrer dans la variable "Set plage"

Par exemple :

j'ai une zone nommée "ref_1" qui couvre C13 a c70 et je souhaite (automatisation sur de nombreuses zone nommées avec des paramètres du type "ref_"n ) faire appel a cette zonne nommée pour remplir les adresses a prendre en compte.

en fait un peu avoir la syntaxe ci dessous

Set Plage = Range(ref_1) au lieu d'avoir les adressses en dur.

Si quelqu'un a une solution par avance merci

labrele · Answer

Bon j'ai trouvé 

Voici un exemple de code (avec passage en format Texte des cellules

Private Sub CommandButton_maj_Click()

For Rang = 1 To 29
    Application.Goto Reference:="ref_" & Rang
    Set Plage = Range(Selection.Address)
    For Each Cellule In Plage
        Cellule.Value = UCase(Cellule.Value)
        Cellule.NumberFormat = "@"
    Next Cellule
Next Rang

End Sub


A+

Nico · Answer

Bonjour, j'ai utilisé ce code pour pouvoir mettre la 1ère lettre de mon mot en majuscule et le reste en minuscule : 

Set Plage = Range("A2:A338")

For Each Cellule In Plage
Cellule.Value = LCase(Cellule.Value)
Valeur = Mid(Cellule.Value, 2)
Valeur = UCase(Mid(Cellule.Value, 1, 1)) & Valeur
Cellule.Value = Valeur
Next Cellule

End Sub

Cordialement.

Daniel · Answer

Function First_Letter(mRange As Range)
Dim a As Integer
Dim b As String, c As String
If mRange = "" Or IsNull(mRange) Then
    First_Letter = ""
Else
    a = Len(mRange)
    b = UCase(Left(mRange, 1))
    If a = 1 Then
        c = Right(mRange, a)
    Else
        c = Right(mRange, a - 1)
    End If
    First_Letter = b & LCase(c)
End If
End Function
Colle cette fonction dans la fenetre vb et invite le aprés
elle permet de rendre majuscule la 1ere lettre et minuscule le reste

Greg-J · Answer

Hello, pour compléter la formule de Rinos.


Si vous voulez mettre juste la première lettre en majuscule :
=CONCATENER(MAJUSCULE(GAUCHE(D2;1));DROITE(D2;(NBCAR(D2))-1)) 

Si vous avez le nom et le prénom dans la même celulle séparés par un espace (" ") et que vous voulez mettre une majuscule à la première lettre du nom et du prénom il vous faut cette formule là (nom + prénom en D2) :
=CONCATENER(MAJUSCULE(GAUCHE(D2;1));DROITE(GAUCHE(D2;CHERCHE(" ";D2;1)-1);NBCAR(GAUCHE(D2;CHERCHE(" ";D2;1)-1))-1);" ";CONCATENER(MAJUSCULE(GAUCHE(DROITE(D2;NBCAR(D2)-CHERCHE(" ";D2;1));1));DROITE(DROITE(D2;NBCAR(D2)-CHERCHE(" ";D2;1));(NBCAR(DROITE(D2;NBCAR(D2)-CHERCHE(" ";D2;1))))-1)))

Si le séparateur n'est pas un espace, vous devez changer dans la formule le " " par votre séparateur.

Maurice · Answer

Bonjour

Moi je prefere comme ca HI

Sub TestMaj()
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      Nom = Application.Trim(Range("A" & L).Value)
      A = Len(Nom)
      If A > 0 Then
         Range("A" & L).Value = UCase(Left(Nom, 1)) & LCase(Right(Nom, A - 1))
      End If
   Next
End Sub

A+

Maurice

[Excel] Majuscule sur la première lettre

14 réponses

Discussions similaires

Newsletters