XL 2016 majuscule/minuscule

[MICHAEL]

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

 

[Robert]

Bonjour Michael, bonjour le forum,

Didier (MyDearFriend), qui a longtemps sévit ici et que je me vois malheureusement plus depuis longtemps (mais que je salue s'il réapparait), avait crée une petite merveille. J'espère que David ne m'en tiendra pas rigueur si je mets un lien ici :
http://www.mdf-xlpages.com/modules/TDMDownloads/singlefile.php?cid=2&lid=13

 

[MICHAEL]

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]

Bonjour MICHAEL, Robert,

Pourquoi utiliser des boutons alors que le double-clic fait très bien l'affaire :

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+