Bonjour,
j'utilise ce code pour passer de min à maj et reciproquement.
pour cela j'ai besoin de deux bouton
un maj/min
un min/maj
mon souhait serai d'utiliser un seul bouton (à chaque clic dessus cela inverse la sélection)
pensez vous que cela soit possible apres modif du code
merci
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
j'utilise ce code pour passer de min à maj et reciproquement.
pour cela j'ai besoin de deux bouton
un maj/min
un min/maj
mon souhait serai d'utiliser un seul bouton (à chaque clic dessus cela inverse la sélection)
pensez vous que cela soit possible apres modif du code
merci
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