VBA Minuscule /Majuscule

Bonsoir

J'ai ce code VBA qui me permet de mettre en majuscule les valeurs d'une colonne C13:C74.

Je dois ajouter encore 5 colonnes F13:F74, I13:I74,L13:L74:O13:074 et R13:R74.

Masi je ne sais comment je dois mettre ces valeurs dans le code pour que ça fonctionne.

Merci pour la solution

JJ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim PlageNoms As Range

Dim cell As Range

Set PlageNoms = Range("C13:C74")

For Each cell In PlageNoms

cell = UCase(cell)

Next

End Sub

Bonjour

un essai :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlageNoms As Range
Dim cell As Range
Set PlageNoms = Union(Range("C13:C74"), Range("F13:F74"), Range("I13:I74"), Range("L13:L74"), Range("O13:O74"), Range("R13:R74"))
For Each cell In PlageNoms
cell = UCase(cell)
Next
End sub

Fred

Bsr

Super ça fonctionne...par contre ça prend du temps et ralentit l'utilisation du fichier , normal ?

Merci beaucoup

JJ

Re

la plage de cellule est maintenant 5 fois plus grande.... donc 5 fois plus long a s’exécuter.... CQFD

et n'oubli pas :

Fred

Maintenant on est a pas obligé de faire toutes les cellules en permanence...a chaque fois qu'une cellul est modifiée dans la feuille ... mais peut-etre traiter que la cellule en cour..... et verifier qu'elle appartient bien aux colonnes qui doivent etre traitées....

mais ne connaissant pas dans quel contexte sera utilisé cette macro.....

Fred

Bonsoir

Merci pour les retours....

Je joins mon fichier essai avec les deux macros....étrangement je n'ai pas de ralentissement ???

Je cherche aussi un code VBA pour colorier les doublons , au cas où

merci

Bonne soirée

M07

Rechercher des sujets similaires à "vba minuscule majuscule"