Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Majuscule & Minuscule

Majuscule & Minuscule

8 réponses
Avatar
fredbzr
Re bonsoir
J'utilise le code ci-dessous pour avoir des cellules soient en majuscule
(Ucase ) soient en minuscule (Lcase).
Mon soucis est que j'aimerai n'avoir que la 1ère lettre en majuscule et le
reste en minuscule

Private Sub Worksheet_Change(ByVal Target As Range)
If (Not Intersect(Target, Range("E8:E500")) Is Nothing) Or _
(Not Intersect(Target, Range("G8:E500")) Is Nothing) Then
For Each c In Target
c.Value = UCase(c.Value)
Next c
End If
End Sub

Merci de votre aide
Fred
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Garette
Bonsoir,

StrConv utilisé avec la constante vbProperCase

Sub Test()
MsgBox StrConv("ABCDEFG", vbProperCase)
End Sub
Avatar
Daniel
Bonsoir.
c.value=left(c.value,1) & lcase(right(c.value,len(c.value)-1))
Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
4564c747$0$27370$
Re bonsoir
J'utilise le code ci-dessous pour avoir des cellules soient en majuscule
(Ucase ) soient en minuscule (Lcase).
Mon soucis est que j'aimerai n'avoir que la 1ère lettre en majuscule et le
reste en minuscule

Private Sub Worksheet_Change(ByVal Target As Range)
If (Not Intersect(Target, Range("E8:E500")) Is Nothing) Or _
(Not Intersect(Target, Range("G8:E500")) Is Nothing) Then
For Each c In Target
c.Value = UCase(c.Value)
Next c
End If
End Sub

Merci de votre aide
Fred



Avatar
Daniel
Bonsoir.
Oui, mais :
MsgBox StrConv("ABC DEFG", vbProperCase) donne "Abc Defg"
Cordialement.
Daniel
"Garette" a écrit dans le message de news:
%
Bonsoir,

StrConv utilisé avec la constante vbProperCase

Sub Test()
MsgBox StrConv("ABCDEFG", vbProperCase)
End Sub




Avatar
MorMic
Bonsoir

Change la ligne comme indiqué dans ton code.

Cela devrait faire l'affaire.

Michel

"fredbzr" a écrit dans le message de news:
4564c747$0$27370$
Re bonsoir
J'utilise le code ci-dessous pour avoir des cellules soient en majuscule
(Ucase ) soient en minuscule (Lcase).
Mon soucis est que j'aimerai n'avoir que la 1ère lettre en majuscule et le
reste en minuscule

Private Sub Worksheet_Change(ByVal Target As Range)
If (Not Intersect(Target, Range("E8:E500")) Is Nothing) Or _
(Not Intersect(Target, Range("G8:E500")) Is Nothing) Then
For Each c In Target


c.Value= UCase(Left(c.Value,1)) &
LCase(Right(c.Value,Len(c.Value-1)))

Next c
End If
End Sub

Merci de votre aide
Fred




Avatar
jps
un peu de tenue, Garette...non, mais
jps

"Daniel" a écrit dans le message de news:

Bonsoir.
Oui, mais :
MsgBox StrConv("ABC DEFG", vbProperCase) donne "Abc Defg"
Cordialement.
Daniel
"Garette" a écrit dans le message de news:
%
Bonsoir,

StrConv utilisé avec la constante vbProperCase

Sub Test()
MsgBox StrConv("ABCDEFG", vbProperCase)
End Sub








Avatar
fredbzr
Bonjour à tous
D'abord merci pour vos réponses
Je viens d'insérer la ligne de code et j'ai un message d'erreur

Private Sub Worksheet_Change(ByVal Target As Range)

If (Not Intersect(Target, Range("D31,D49")) Is Nothing) Then
For Each c In Target
c.value = UCase(c.value)
Next c
End If

If (Not Intersect(Target, Range("R31,G45")) Is Nothing) Then
For Each c In Target
c.value = UCase(Left(c.value, 1)) & LCase(Right(c.value,
Len(c.value) - 1)) 'Erreur d'exécution 5 : argument ou appel de procédure
incorrecte
Next c
End If
End Sub


"MorMic" a écrit dans le message de news:
4564cec6$0$27392$
Bonsoir

Change la ligne comme indiqué dans ton code.

Cela devrait faire l'affaire.

Michel

"fredbzr" a écrit dans le message de news:
4564c747$0$27370$
Re bonsoir
J'utilise le code ci-dessous pour avoir des cellules soient en majuscule
(Ucase ) soient en minuscule (Lcase).
Mon soucis est que j'aimerai n'avoir que la 1ère lettre en majuscule et
le
reste en minuscule

Private Sub Worksheet_Change(ByVal Target As Range)
If (Not Intersect(Target, Range("E8:E500")) Is Nothing) Or _
(Not Intersect(Target, Range("G8:E500")) Is Nothing) Then
For Each c In Target


c.Value= UCase(Left(c.Value,1)) &
LCase(Right(c.Value,Len(c.Value-1)))

Next c
End If
End Sub

Merci de votre aide
Fred








Avatar
Garette
Bonjour,

Chez moi ca fonctionne parfaitement.
Le contenu se met en Maluscule ou premiere lettre en Majuscule suivant où je
saisis.
Je suis XL2002.
La formule n'est pas tronquée comme on le voit dans le fil ?
Avatar
fredbzr
Bonsoir
j'utilise XP2000
la conversion se fait bien mais après j'ai l'erreur 5 apparait
la formule n'est pas tronquée
Que faire?
merci
"Garette" a écrit dans le message de news:

Bonjour,

Chez moi ca fonctionne parfaitement.
Le contenu se met en Maluscule ou premiere lettre en Majuscule suivant où
je saisis.
Je suis XL2002.
La formule n'est pas tronquée comme on le voit dans le fil ?