Discussion :

[Manou34]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[fred65200]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Manou34]

Merci "fred65200"

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

Merci 1.000 fois

[fred65200]

re

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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é !!