Forcer la cellule de commencer par la majuscule
Fermé
blalaa
Messages postés
167
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
bonjour
est ce que il y a un code qui va forcer ma cellule de commnecer toujours par le terme majuscule
exemple
la cellule a1 = Ludovic QUENTIN
et je veux que msgbox affiche QUENTIN Ludovic, ca veut dure commencer toujour par le NOM
pas spécialement que pour ce nom prenom mais pour tout autre nom prenom qui seront enregistre dans la cellule A1
merci
est ce que il y a un code qui va forcer ma cellule de commnecer toujours par le terme majuscule
exemple
la cellule a1 = Ludovic QUENTIN
et je veux que msgbox affiche QUENTIN Ludovic, ca veut dure commencer toujour par le NOM
pas spécialement que pour ce nom prenom mais pour tout autre nom prenom qui seront enregistre dans la cellule A1
merci
A voir également:
- Forcer la cellule de commencer par la majuscule
- Forcer la reinitialisation pc - Guide
- Forcer demarrage pc - Guide
- Forcer la suppression d'un fichier - Guide
- Forcer à quitter - Guide
- É majuscule - Guide
2 réponses
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
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