mise en majuscule modif casse

[alexane]

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

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

 

[tototiti2008]

Re : mise en majuscule modif casse

Bonjour Alexane,

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...

 

[BOISGONTIER]

Re : mise en majuscule modif casse

Bonjour,

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

JB

 

[tototiti2008]

Re : mise en majuscule modif casse

Bonjour JB,
Re,

Comme d'habitude, la solution parfaite
ça prend même en charge les caracères accentués, puisque UCase et LCase les gèrent...

 

[alexane]

Re : mise en majuscule modif casse

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