majuscule toute une colones.

[petchy]

bonsoir le forum

quel est le code pour mettre en majuscule toute une colones.

merci à vous

petchy

 

[LaurentTBT]

Salut Petchy et tout le forum.

C'est sûrement pas le plus simple et le plus efficace, mais cette procédure doit fonctionner (la variable à entrer est la lettre de la colonne)

Sub ColonneMaj(Colonne As String)
Dim Cellule As Range
For Each Cellule In Range(Colonne & "1:" & Colonne & Range(Colonne & "65536").End(xlUp).Row)
Cellule = UCase(Cellule)
Next Cellule
End Sub

Sub essai()
ColonneMaj ("B")
End Sub

Bonne soirée.
Laurent.

 

[Baudouin]

Bonsoir, tu peux utiliser 2 fonctions texte( icône fx de la barre d'outil):

Exemple : texte initial en A1

soit (A2) =NOMPROPRE( A1)

soit (A2) =MAJUSCULE(A1)

Il ne te rete plus qu'à recopier vers le bas cette opération (double-clic sur croix en bas à droite de la cellule (A2)

Cordialment: Patrick