Microsoft 365 désactiver/réactiver l'alphabet

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)

Je souhaite faire ou trouver (plutôt trouver vu mon niveau lol) un code qui permet de désactiver et de réactiver l'alphabet.
Je suis en recherche un peu partout et j'ai déjà fait un bon nombre de tests sans résultat pour l'instant.

En revanche, j'ai trouvé (peu être le bonheur :)) sur ce fil :

galopin01 au #post 4 donne une solution :​

VB:
Sub désactive() 'désactive l'alphabet
For i = 65 To 90 'on doit pouvoir aller de 33 à 126... (a vérifier!)
Application.OnKey '{' & i & '}', ''
Next
End Sub

Sub réactive() 'réactive l'alphabet
For i = 65 To 90
Application.OnKey '{' & i & '}'
Next
End Sub
Mais qui ne fonctionne pas et que je n'arrive pas à modifier :
1650637458072.png

Sauriez-vous la faire fonctionner ?
Je joins un petit fichier test.
Avec mes remerciements,
Amicalement,
lionel :)
 

Pièces jointes

  • desactiver.xlsm
    22.8 KB · Affichages: 3
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour D.D. :)
Merci du retour.
J'ai fait ça :
VB:
Sub désactive() 'désactive l'alphabet
For i = 65 To 90 'on doit pouvoir aller de 33 à 126... (a vérifier!)
Application.OnKey "{" & i & "}", ""
Next
End Sub

Sub réactive() 'réactive l'alphabet
For i = 65 To 90
Application.OnKey "{" & i & "}"
Next
End Sub

ça semble fonctionner, je continue à tester.
Encore merci :)
lionel :)
 
Dernière édition:

RF13

XLDnaute Nouveau
Bonjour,

Je vous propose les fonctions suivantes. Elles fonctionnent.

Sub désactive() ' désactive les lettres de l'alphabet : a..z et A..Z
' soit des codes ASCII : 65 à 90 et 97 à 122
Dim c As String, i As Integer
For i = 65 To 90 ' les majuscules
c = Chr(i)
Application.OnKey c, ""
Next
For i = 97 To 122 ' les minuscules
c = Chr(i)
Application.OnKey c, ""
Next
End Sub

Sub réactive() ' réactive les lettres de l'alphabet : a..z et A..Z
Dim c As String, i as integer
For i = 65 To 90
c = Chr(i)
Application.OnKey c
Next
For i = 97 To 122
c = Chr(i)
Application.OnKey c
Next
End Sub
 

Discussions similaires

  • Question
Microsoft 365 Excel VBA
Réponses
14
Affichages
559

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale