Vider Fenêtre DEBUG

[mutzik]

Bonjour,

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

1. installer Clavier + http://utilfr42.free.fr

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 :

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