Simplifier mon code "Majuscule/Minuscule"

Version imprimable

Bonjour ! ou re-Bonjour !!! lol

J'ai trouvé ce code (Ci-joint en dessous) sur un forum, il fonctionne mais je voudrais savoir si il n'y as pas moyen de le simplifier.

D'autre part, je souhaiterais plutôt utiliser un "iLastRow" car ce traitement actuel prend plus de temps !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub Majuscule() 'déclarations des variables Dim Valeur As String Dim Plage, Cellule As Range Set Plage = Range("A1:A15000") 'Colonne concernant les noms For Each Cellule In Plage Valeur = Mid(Cellule.Value, 2) Valeur = LCase(Valeur) Valeur = UCase(Mid(Cellule.Value, 1, 10)) Cellule.Value = Valeur Next Cellule End Sub Sub Minuscule() 'Déclaration des variables Dim Valeur As String Dim Plage, Cellule As Range Set Plage = Range("B1:B15000") 'Colonne concernant les prénoms For Each Cellule In Plage Valeur = Mid(Cellule.Value, 2) Valeur = LCase(Valeur) Valeur = UCase(Mid(Cellule.Value, 1, 1)) & Valeur Cellule.Value = Valeur Next Cellule End Sub
*----------------------------------*
Je vous remercie
Bonne aprés-midi !! :D

bonjour,
est ce que c'est ce que tu cherches

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
'déclarations des variables
Dim Plage As Range, Cellule As Range
Dim lngDerli As Long
Sub Majuscule()
 
lngDerli = Columns("A").Find("*", , , , , xlPrevious).Row
 
Set Plage = Range("A1:A" & lngDerli) 'Colonne concernant les noms
 
For Each Cellule In Plage
   Cellule.Value = UCase(Cellule.Value)
Next Cellule
 
End Sub
 
Sub Minuscule()
 
lngDerli = Columns("B").Find("*", , , , , xlPrevious).Row
 
Set Plage = Range("B1:B" & lngDerli) 'Colonne concernant les prénoms
 
For Each Cellule In Plage
   Cellule.Value = Application.Proper(Cellule.Value)
Next Cellule
 
End Sub

cordialement

24/01/2008, 16h55
Manou34

Merci "fred65200" :yaisse2:

C'est exactement ce que je recherchée !!!

Merci 1.000 fois :D

:merci:

re

juste pour info dans le code que tu nous a présenté

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Majuscule()
 
'déclarations des variables
Dim Valeur As String
Sur la ligne ci-dessous, Plage est initialisé comme variant et non comme range
Dim Plage, Cellule As Range
 
Set Plage = Range("A1:A15000") 'Colonne concernant les noms
 
For Each Cellule In Plage
'Par exemple Cellule = duPontDubois
Valeur = Mid(Cellule.Value, 2) '--> Valeur = uPontDubois
Valeur = LCase(Valeur)  '--> Valeur = upontdubois
Valeur = UCase(Mid(Cellule.Value, 1, 10))  '  --> Valeur = DUPONTDUBOis, si plus de 10 caractères, ils ne sont pas modifiés
Cellule.Value = Valeur
Next Cellule
 
End Sub

24/01/2008, 17h05
Manou34

ha ok !! c'est gentil de ta part ta remarque mais je me suis inspirée de ton code car en plus il me mets les premières lettres des prénoms composés en majuscule !!

Exemple : "Jean-Pierre" alors que mon code ne fesait que "Jean-pierre" !!

Merci de m'avoir aidé !! :merci: