Vider Fenêtre DEBUG

mutzik

XLDnaute Barbatruc
Bonjour,

Souvent confronté à ce genre de problème, voici la solution que j'ai mis en place

1. installer Clavier + http://utilfr42.free.fr
upload_2017-1-25_8-44-34.png


2. créer un raccourci clavier. Pour ma part, j'ai utilisé Ctrl gauche + Majuscule + !
pour ce faire :
- appuyer sur le + bleu
- choisir 'écrire du texte'
- dans raccourci, entrer la combinaison de touches que vous allez utiliser
- le curseur se place dans la zone de texte
- il faut y mettre : [Ctrl+G][][Ctrl+A][][Suppr]

3. ouvrir un fichier excel vierge
- insérer un module
- y mettre les macros suivantes :

Code:
Sub ClearFenDebug()
    Application.SendKeys "^+!"
End Sub

Sub testEffDebug()
    Dim i
    For i = 1 To 20: Debug.Print "test": Next i
    Application.Wait Now() + TimeSerial(0, 0, 1)
    ClearFenDebug
End Sub
la macro ClearFenDebug va envoyer à l'application ctrl majuscule !
cela lance clavier plus qui va faire un 'sendkeys' de la séquence :
ctrl G : aller en fenêtre debug
ctrl A : sélectionner tout
suppr : supprimer

la deuxième macro permet de tester, elle n'est pas plus nécessaire que cela et peut être effacée après tests
voili,

Cordialement
Bertrand alias Mutzik

NB : clavier plus permet bien d'autres choses, à vous de tester ...
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas