1) Je voudrais désactiver les raccourcis clavier, comment faire ?
2) Autre question : J'ai un classeur avec quelques macros. C'est très long
lors de l'enregistrement. Donc : Peut-on alléger le temps d'enregistrement
ou bien générer une boîte dialogue qui dit "Enregistrement en cours.
Veuillez patienter".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Caroline L,
De LL...
Sub Désactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I), "" Next I Next K End Sub
Sub Réactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I) Next I Next K End Sub
2) cf les barres de progression disponible sur Excelabo... http://www.excelabo.net/
ChrisV
"Caroline L." a écrit dans le message de news: qne4e.21641$
Bonjour !
1) Je voudrais désactiver les raccourcis clavier, comment faire ?
2) Autre question : J'ai un classeur avec quelques macros. C'est très long lors de l'enregistrement. Donc : Peut-on alléger le temps d'enregistrement ou bien générer une boîte dialogue qui dit "Enregistrement en cours. Veuillez patienter".
Merci beaucoup ! Caroline
Bonjour Caroline L,
De LL...
Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub
Sub Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I)
Next I
Next K
End Sub
2) cf les barres de progression disponible sur Excelabo...
http://www.excelabo.net/
ChrisV
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
qne4e.21641$g_5.600006@wagner.videotron.net...
Bonjour !
1) Je voudrais désactiver les raccourcis clavier, comment faire ?
2) Autre question : J'ai un classeur avec quelques macros. C'est très long
lors de l'enregistrement. Donc : Peut-on alléger le temps d'enregistrement
ou bien générer une boîte dialogue qui dit "Enregistrement en cours.
Veuillez patienter".
Sub Désactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I), "" Next I Next K End Sub
Sub Réactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255 Application.OnKey K & Chr$(I) Next I Next K End Sub
2) cf les barres de progression disponible sur Excelabo... http://www.excelabo.net/
ChrisV
"Caroline L." a écrit dans le message de news: qne4e.21641$
Bonjour !
1) Je voudrais désactiver les raccourcis clavier, comment faire ?
2) Autre question : J'ai un classeur avec quelques macros. C'est très long lors de l'enregistrement. Donc : Peut-on alléger le temps d'enregistrement ou bien générer une boîte dialogue qui dit "Enregistrement en cours. Veuillez patienter".
