Menu

Saisie majuscules-minuscules automatique

Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Bonjour,

J'ai besoin de vos lucioles les amis svp encore une fois pour, dans une cellule ou plusieurs cellules à la fois :
- Forcer la saisie d'un texte en majuscule
- Forcer la saisie d'un texte en minuscule
- Forcer la saisie de la première lettre du premier mot d'un texte en majuscule
- Forcer la saisie de la première lettre d'un mot d'un texte, se situant après un point, en majuscule
- Forcer la saisie de la première lettre d'un nom propre en majuscule

J'aimerai ne pas passer par "validation des données" car ça oblige l'utilisateur de ressaisir pour corriger.
Existe-t-il une méthode qui paramètre tout ça, sans que l'utilisateur ne se souci de son mode d'écriture ?

Par exemple si dans la cellule A1 je souhaite qu' un texte ou un mot apparaisse en majuscule dès sa saisie et que l'utilisateur ne le sache pas et écrive donc en minuscule, le texte se transforme ou se converti automatiquement en majuscule sans gêner l'utilisateur.
Je souhaite que l'utilisateur ne se soucis pas si à tel endroit il faut écrire en majuscule, à un autre en minuscule, ou si après un point il faut mettre une majuscule. Que ça corrige pour lui le format.

Je n'ai pas de fichier pour l'instant.

Merci à tous :)
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
344
Date d'inscription
vendredi 18 juillet 2008
Dernière intervention
13 décembre 2018
1
Merci
Bonjour,
Une macro devrait pouvoir t’aider :
par exemple dans Feuil1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1).Value = UCase(Cells(1, 1))
End Sub


Le texte en A1 sera automatiquement transformé en majuscule.
LCase tranformera en minuscule.

Merci didibonf 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM a aidé 33699 internautes ce mois-ci

cs_Le Pivert
Messages postés
5603
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 décembre 2018
-
Sur Google Chrome clic droit Traduire;

Voilà la marche à suivre:

La mise à jour corrigera ce problème.

Assurez-vous que votre Mac dispose d'une connexion Internet fonctionnelle avant de vérifier les mises à jour.



Mises à jour Mac OS X:

Pour obtenir les mises à jour Mac OS, accédez à l'App Store sur votre dock, puis cliquez sur le bouton Mises à jour pour afficher les mises à jour disponibles.



Mises à jour de bureau

Pour obtenir la mise à jour:

1. Ouvrez n’importe quelle application Office:

3. Assurez-vous que votre Mac dispose d'une connexion Internet fonctionnelle.

4. Allez dans le menu Aide et choisissez Vérifier les mises à jour.

5. Laissez AutoUpdate vérifier et installer les mises à jour.

Quand ton Office Excel sera rétabli je te donnerai la macro pour mettre une majuscule au début de chaque phrase!

@+ Le Pivert
deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Un grand merci je vais essayer :)
deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Non ça ne fonctionne toujours pas je suis triste lol bon bah tant pis j'ai peut-être un problème d'excel. N'existe t - il pas un autre moyen sans passer par une macro ? Une formule pour mise en forme par exemple ?
cs_Le Pivert
Messages postés
5603
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 décembre 2018
-
Voir ceci

https://officepourtous.com/premiere-lettre-en-majuscule-dans-excel/

et en cherchant sur Google il y en a une quantité d'autres!!!!!!!

@+
deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Merciiii je cherche, je cherche :)
Commenter la réponse de didibonf
Messages postés
15543
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 décembre 2018
1
Merci
Bonjour Feanerys, Dididonf

Comment veux tu qu'Excel sache ce que tu veux faire ? il faut bien que tu lui transmettes ton ordre

Merci michel_m 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM a aidé 33699 internautes ce mois-ci

michel_m
Messages postés
15543
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 décembre 2018
-
peut-être avec un clic droit de la souris ???

un exemple que tu pourrais adapter:
https://mon-partage.fr/f/O6nIWqA0/
deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Non ça fonctionne pas non plus dsl
michel_m
Messages postés
15543
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 décembre 2018
-
n'importe quoi !

Adieu
deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
J'ai fait cli droit, rien ne se passe sur la feuille ????
Commenter la réponse de michel_m
Messages postés
264
Date d'inscription
jeudi 11 août 2016
Dernière intervention
16 octobre 2018
1
Merci
Bonjour à tous,
Un code à adapter
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
' première lettre en majuscule
If Target.Address = "$J$14" Then [J14] = LCase([J14]): GoTo fin
If Target.Address = "$A$30" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$A$35" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$A$38" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$G$25" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$K$4" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$K$7" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$K$50" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$K$53" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$S$22" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$S$10" Then Target = Application.Proper(Target): GoTo fin
If Target.Address = "$S$19" Then Target = Application.Proper(Target): GoTo fin

' tout en majuscule
Select Case Target.Address(0, 0)
Case "A4, K4"
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
End Select

fin:
Application.EnableEvents = True 'on remet

If IsEmpty(Range("Y47")) Then
Range("Y47").Value = Date
End If
End Sub

Merci jean300 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM a aidé 33699 internautes ce mois-ci

deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Merci j'attends un réparateur car rentrer des macros sur excel ça ne fonctionne pas.
Commenter la réponse de jean300
Messages postés
15543
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
13 décembre 2018
0
Merci
Excusez moi d'avoir dérangé en essayant d'aider Deanerys. Mais, c'est promis, je ne le gênerai plus.
deanerys
Messages postés
59
Date d'inscription
jeudi 27 septembre 2018
Dernière intervention
17 octobre 2018
-
Non non vous ne m'avez pas dérangez pourquoi dîtes vous cela ?
Commenter la réponse de michel_m