Premiere Lettre en Majuscule

Résolu/Fermé

Excel

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 - Modifié le 1 févr. 2018 à 00:15
faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 - 3 févr. 2018 à 18:34

Bonjour,

Encore un petit souci

J'arrive pas a trouver comment mettre en Majuscule la premiere lettre de chaque mot seulement sur une colonne (colonne F)
le range serait f2-f1000
j'aimerais que ce soit une macro de preference

soir = Soir
bONJOUR = Bonjour
BONJOUR = Bonjour
sous-titres = Sous-Titres

merci

A voir également:

Excel première lettre en majuscule
Excel majuscule première lettre - Meilleures réponses
Formule excel première lettre majuscule reste minuscule - Meilleures réponses
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Excel mois en lettre ✓ - Forum Excel
Mise en forme conditionnelle excel - Guide
Si et excel - Guide

5 réponses

Réponse 1 / 5

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 1 févr. 2018 à 00:37

Bonjour,

Avec une simple formule :
=NOMPROPRE(MINUSCULE(F2))

Et avec une macro c'est pareil, y a juste à traduire. (l'enregistreur de macro est mon ami !)

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
1 févr. 2018 à 00:41

Merci pour ta réponse rapide.
Ce que je voulais dire, c'est que cette fonction se fasse automatiquement, sans rien faire
Est-ce possible que lorsque je copie du texte qui vient d'ailleurs, et que je le colle dans une cellule, la correction se fasse automatiquement

Je disais par une macro, mais je pense que par VBA serait préférable

merci

Martin

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
1 févr. 2018 à 00:44

Sous Excel, les macros c'est forcement du VBA !

Pour que ça se face tout seul, il faut utiliser l'évènement Change de la feuille concernée.

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
1 févr. 2018 à 00:46

Merci

je suis assez novice coté Excel
Alors de quelle facon ou comment le faire`
Martin

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
1 févr. 2018 à 00:51

Si t'es novice, avant de te lancer dans la programmation VBA, apprends à te servir des possibilités d'excel.
La formule de je t'ai donné fera l'affaire.

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
1 févr. 2018 à 00:53

PS: Un excellent cours VBA pour débutants (et plus si affinités) :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf

Réponse 2 / 5

Raymond PENTIER Messages postés 58731 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 novembre 2024 17 244
1 févr. 2018 à 04:35

Autre approche du problème :
Copier-coller la colonne F dans Word
Appliquer l'outil Police/Modifier la casse pour "Première lettre en majuscule"
Copier-coller la liste ainsi modifiée dans Excel.

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
1 févr. 2018 à 22:19

Merci, mais j'aimerais une formule ou une MFC ou en VBA, qui se ferait automatiquement.
Sans passer par autre chose

Réponse 3 / 5

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 1 févr. 2018 à 08:15

Bonjour,

En vba se déclenche au double clic:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then Exit Sub
Target.Value = Application.WorksheetFunction.Proper(Target.Value) '1ere lettre majuscule
'Target.Value = LCase(Target.Value) 'minuscule
'Target.Value = UCase(Target.Value) 'majuscule
End Sub

Se mettre sur la feuille concernée faire Alt F11 et coller ce code

et pour adapter à une colonne voir ce site pour les boucles

https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
1 févr. 2018 à 22:22

Merci pour l'info.
J'ai bien regarder mais je ne vois pas comment intégrer a ton vba, une colonne par exemple F

merci

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 2 févr. 2018 à 08:33

Comme ceci, a adapter à ta colonne et ta feuille:

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim DLig As Long 'dernière ligne
DLig = Range("A1").End(xlDown).Row 'a adapter
    Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne A a adapter
    For NoLig = 1 To DLig
        Var = FL1.Cells(NoLig, NoCol)
        FL1.Cells(NoLig, NoCol) = Application.WorksheetFunction.Proper(FL1.Cells(NoLig, NoCol)) '1ère lettre majuscule
     Next
    Set FL1 = Nothing
End Sub

Tu mets ce code dans un module et ensuite tu suis l'explication donnée sur ce site:

https://www.excel-plus.fr/vba/demvba/affecter-une-macro-a-un-bouton/

Voilà, c'est simple!

@+ Le Pivert

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
2 févr. 2018 à 11:45

merci beaucoup

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
Modifié le 3 févr. 2018 à 17:33

Ca marche parfaitement
Mais J'aimerais que quelques abbréviations ne soient pas converti

exemple

CCBN devient Ccbn j'aimerais garder CCBN
SAAQ devient Saaq j'aimerais garder SAAQ
SDC deveint Sdc j'aimerais garder SDC
etc

(Pierre) devient (pierre)
(On Répare) devient (on Répare)

Comment garder la premiere lettre en majuscule apres une parenthese

Comment ajouter a ce VBA ces exceptions

merci

Martin

Réponse 4 / 5

via55 Messages postés 14498 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 novembre 2024 2 735
3 févr. 2018 à 17:46

Bonjour

Dans une colonne de ta feuille vide (par exemple en colonne L) tu listes les abréviations à conserver en majuscules puis dans la macro tu remplaces la ligne
FL1.Cells(NoLig, NoCol) = Application.WorksheetFunction.Proper(FL1.Cells(NoLig, NoCol)) '1ère lettre majuscule
par celle ci:
If Application.WorksheetFunction.CountIf(Range("L:L"), Var) = 0 Then FL1.Cells(NoLig, NoCol) = Application.WorksheetFunction.Proper(Var) '1ère lettre majuscule

Cdlmnt
Via

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
Modifié le 3 févr. 2018 à 18:13

J'ai bien mis les abbréviations dans la colonne L
CCBN
SAAQ
SDC
SAQ

mais en Colonne F , ces ABR. dans le texte ne sont pas corrigé

je viens de voir que si je corrige le texte en F, ca fonctionne

merci

Réponse 5 / 5

via55 Messages postés 14498 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 novembre 2024 2 735
3 févr. 2018 à 18:32

La macro originelle corrige en colonne A
NoCol = 1 'lecture de la colonne A a adapter
On t'a bien dit de l'adapter à ton fichier si nécessaire
ce qui pour la colonne F donnerait NoCol = 6

Cdlmnt

faisdlair Messages postés 171 Date d'inscription vendredi 19 janvier 2018 Statut Membre Dernière intervention 31 décembre 2023 6
3 févr. 2018 à 18:34

J'ai bien NoCol = 6

ca fonctionne merci

Discussions similaires

mettre une majuscule au début de cellule

Fonction Excel : première lettre en majuscule

[Excel] Majuscule sur la première lettre

J'ai mis une majuscule dans une adresse e-mail

Table des matières dont les titres n'apparaissent pas..

Table des matières ne prenant pas en compte tous mes titres