Transformer une colonne en Minuscules sauf la 1ère lettre

Résolu/Fermé
Lencorev - 10 juin 2015 à 15:38
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 10 juin 2015 à 17:54
Bonjour,

Après avoir copié-collé le contenu d'une colonne en majuscule, je voudrais mettre le tout en minuscule sauf la première lettre.
Voici mon code,


'Copier coller
tampon = Sheets(2).Range("BD3:BD400")
Sheets("Feuil3").Range("T5:T402") = tampon

'Mettre en Minuscule
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant

Set FL1 = Worksheets("Feuil3")

NoCol = 5 'lecture de la colonne 1
For NoLig = 5 To Split(FL1.UsedRange.Address, "$")(4)
Var = FL1.Cells(NoLig, NoCol)
For Each Cell In Selection
Cell.Value = Application.WorksheetFunction.Proper(Cell.Value)
Next Cell
Next
Set FL1 = Nothing


Je pensais que la première boucle For sélectionnait une cellule à chaque tour de boucle, mais ça n'a pas l'air d'être ça, puisque ça ne marche pas..

Je suis bloquée, si vous avez une idée, n'hésitez pas !

Merci d'avance :)


A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
10 juin 2015 à 17:03
Bonjour,

Comme ceci:

'Mettre en Minuscule
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil3")
NoCol = 5 'lecture de la colonne 1
    For NoLig = 5 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
Cells(NoLig, NoCol).Value = Application.WorksheetFunction.Proper(Cells(NoLig, NoCol).Value)
Next
    Set FL1 = Nothing

0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
10 juin 2015 à 17:54
0