maj ou min colonne

[David LINGELSER]

Bonjour a tous,

je souhaiterais s' avoir comment faire pour mettre en majuscule ou en minuscule comme le code ci dessous mais par pour une seule ligne mais pour une colonne entiére(colonne non definis ex: A:A)



Sub majmin()
Dim chainecellule As String
chainecellule = Selection.Value
chainecellule = LCase(chainecellule)
Selection.Value = chainecellule

End Sub

 

[STéphane]

bonjour

il te faut un truc du genre suivant

For Each cl In ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues)
cl.Value = UCase(cl.Value)
Next cl

bye
stephane