XL 2016 majuscule/minuscule

MICHAEL

XLDnaute Occasionnel
Bonjour
je souhaiterais savoir si il existe un bouton de commande qui me permettrait de modifier les majuscules en minus et inversement dans une cellule.
merci
 

MICHAEL

XLDnaute Occasionnel
Merci de votre réponse.
je vais essayer ceci, mais jusqu'à présent il me semble que cela ne fonctionne pas
sous ma version Excel (office 365).
ayant uniquement besoin de passer de min en maj et reciproquement voici une solution que l'on m'a
proposer et qui dans mon cas me convient.

cordialement

( les macros sont ajoutées dans le ruban)

Sub majuscules()

traite_casse ("maj")

End Sub

Sub minuscules()

traite_casse ("min")

End Sub

Sub traite_casse(comment As String)

Dim cellule As Range

For Each cellule In Selection

If (comment = "maj") Then
cellule = UCase(cellule)
Else
cellule = LCase(cellule)

End If

Next cellule

End Sub
 

job75

XLDnaute Barbatruc
Bonjour MICHAEL, Robert,

Pourquoi utiliser des boutons alors que le double-clic fait très bien l'affaire :
Code:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = IIf(UCase(Target) = Target, LCase(Target), UCase(Target))
End Sub
La macro est à placer dans ThisWorkbook, elle fonctionne sur toutes les feuilles du classeur.

A+
 

Discussions similaires


Haut Bas