Forcer la cellule de commencer par la majuscule
Fermé
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
13 mars 2019 à 16:37
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 mars 2019 à 09:39
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 mars 2019 à 09:39
A voir également:
- Forcer la cellule de commencer par la majuscule
- Forcer la reinitialisation pc - Guide
- Forcer la suppression d'un fichier - Guide
- Forcer demarrage pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Forcer à quitter - Guide
2 réponses
JCB40
Messages postés
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
464
13 mars 2019 à 18:25
13 mars 2019 à 18:25
Bonjour
Coller ce code dans la feuille qui doit recevoir le nom et prénom
Pour cela ouvrir le dossier excel faire Alt+F11 copier le code ci-dessous et coller dans le cadre
qui apparait
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp
Dim x As String
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
On Error GoTo fin
Application.EnableEvents = False
tmp = Split(Target, " ")
x = UCase(tmp(0))
x = x & " " & Application.Proper(tmp(1))
Target = x
End If
Application.EnableEvents = True
Exit Sub
fin:
Application.EnableEvents = True
End Sub
Cordialement
Coller ce code dans la feuille qui doit recevoir le nom et prénom
Pour cela ouvrir le dossier excel faire Alt+F11 copier le code ci-dessous et coller dans le cadre
qui apparait
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp
Dim x As String
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
On Error GoTo fin
Application.EnableEvents = False
tmp = Split(Target, " ")
x = UCase(tmp(0))
x = x & " " & Application.Proper(tmp(1))
Target = x
End If
Application.EnableEvents = True
Exit Sub
fin:
Application.EnableEvents = True
End Sub
Cordialement
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
14 mars 2019 à 09:39
14 mars 2019 à 09:39
14 mars 2019 à 09:13
MERCI pour votre reponse
j'ai essaye le code mais ce qu'il fait c'est d'ecrire le premier terme en majuscule et le 2em le transforme en miniscule (avec sa premeire lettre en maj)
exmple
Ludovic QUENTIN
Ludovic c'est prenom
QUENTIN c'est le NOM
LE CODE LE TRANSFORME A : LUDOVIC Quentin
ce que je souhaite moi si c'est possible c'est de inverser l'ordre ca veut dire commencer tjrs par la majuscule de contenu
exemple
la cellule A =Ludovic QUENTIN
je souhaite que la cellule A = QUENTIN Ludovic
c veut dire on commence toujours par le NOM qui est en majuscule
je vous remercie pour votre reponse
et si c'est possible de faire ce je souhaite ca serait vraiment enorme pour moi