Probleme de multi cellule

[timekeeper]

Bonjour,

j'ai fais cette petite macro, qui fonctionne très bien (ouf!)



Sub MAJUSCULEAUTO()
'ctrl Q
texte = ActiveCell.Value
ActiveCell.Value = UCase(texte)
End Sub


mais elle ne fonctionne que sur une cellule, quand je sélectionne plusieurs cellule , il ne se passe rien!!

si quelqu'un a une idée , je suis preneur !


merci d'avance

Sebastien
Niveau (Novice)

 

[DoubleZero]

Re : Probleme de multi cellule

Bonjour, timekeeper, le Forum,

Comme ceci ?

Option Explicit
Sub MAJUSCULEAUTO()
    Dim c As Range
    'ctrl Q
    For Each c In Selection
        c.Value = UCase(c)
    Next
End Sub

A bientôt 🙂

 

[timekeeper]

Re : Probleme de multi cellule

Merci j'essaie de suite