IF command1.caption="ON" then 'si activer msgbox "Activer" command1.caption="OFF" elseif command1.caption="OFF" then ' pas activer msgbox "desActiver" command1.caption="ON" end if
' avec select case select case command1.caption case "ON" msgbox "Activer" command1.caption="OFF" Case "OFF" msgbox "desActiver" command1.caption="ON" end select