Bonjour à tous
J'aimerais avoir une macro "circulaire" qui en fonction de l'état de ma casse me mets le texte dans la casse inverse (comme le shift F3 de word).
J'ai bien un petit formulaire avec bouton radio
private sub majuscule_click
Code:
for each c in selection
c.value = ucase(c.value)
next c
end sub
etc ... pour les autres casses
mais de ce que je voudrais si ça existe, c'est une instruction qui me permettrait de connaitre l'état actuel de ma casse pour pouvoir la tester. Qchose du type :
ma_case = c.case
if ma_case = ucase
.. ?
merci
les majuscules classiques on des codes (fonction Asc) entre 65 et 90 et les minuscules classiques entre 97 et 122
pour les caractères accentués, il faut voir...
Sub inverseCasse()
For Each c In Selection
temp = ""
For i = 1 To Len(c)
temp = temp & IIf(Asc(Mid(c, i, 1)) >= 96, UCase(Mid(c, i, 1)), LCase(Mid(c, i, 1)))
Next i
c.Value = temp
Next c
End Sub
Bonjour à tous
Grand merci
Comme d'habitude ici, on ne reste pas en "rade"
Bon je ne connais pas IIF mais je trouverai bien des infos dans l'aide en ligne
Toujours très instructif de venir sur ce forum mais assez décourageant de contempler l'abime de son ignorance !
A bientot