Salut Xlogique, Thibo et le forum
Deux petites macros pour faire le travail
Soit dans le module de la feuille, changement sur double-click (Valide seulement pour la feuille)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Value = UCase(.Value) Then
.Value = LCase(.Value)
Else
.Value = UCase(.Value)
End If
End With
End Sub
Ou dans un module standard, changement par les touches CTRL+g (Valide pour toutes les feuilles)
Sub LowerUpperCase()
' Touche de raccourci du clavier: Ctrl+g
With ActiveCell
If .Value = UCase(.Value) Then
.Value = LCase(.Value)
Else
.Value = UCase(.Value)
End If
End With
End Sub
Petit bonus, code simplifié au maximum
Sub LowerUpperCase()
' Touche de raccourci du clavier: Ctrl+g
With ActiveCell
.Value = IIf(.Value = UCase(.Value), LCase(.Value), UCase(.Value))
End With
End Sub
Mytå