Discussion :

[wes333]

Bonsoir,

je bloque sur un petit problème : je n'arrive pas à effacer les données de la fenêtre d'exécution, en mode débogage.

J'ai essayé plusieurs méthodes toujours non efficaces.

Merci d'avance pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Application.VBE.ActiveWindow.Collection("Exécution")
 
        .Visible = True 'affiche
 
        .SetFocus 'donne le focus
 
        Application.VBE.CommandBars.FindControl(, 756).Execute 'sélectionne tout
 
        'SendKeys "^a"
        SendKeys "{DELETE}" 'supprime
 
     .Close 'ferme la fenêtre
 
End With

[EricDgn]

Bonjour,

Ceci devrait le faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Clear()
  Application.VBE.Windows("Exécution").SetFocus
  If Application.VBE.ActiveWindow.Caption = "Exécution" And Application.VBE.ActiveWindow.Visible Then
    Application.SendKeys "^a {DEL} {HOME}"
  End If
End Sub

Vraiment utile ?
Cordialement.

[wes333]

merci beaucoup Eric pour ta réponse.
En réalité ça ne marche toujours pas, même si j'essaie de triturer dans tous les sens à partir de ta proposition.

Ce qui est très étrange c'est que j'ai réalisé une macro qui fonctionne parfaitement si je la lance indépendamment du programme principal.
Par contre si je l'appelle depuis le programme cela ne marche pas.
J'ai aussi l'impression que dans le programme c'est l'instruction .setfocus qui ne désigne pas la fenêtre. Si j'arrive à sélectionner du texte via ^a, c'est dans la fenêtre de programmation et non dans la fenêtre d'Exécution que la sélection s'opère.

Voici la macro indépendante qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub deletexecution2()
 
 
ThisWorkbook.Activate
Worksheets("distribution").Activate
Worksheets("distribution").Select
 
With Application.VBE.ActiveWindow.Collection("Exécution")
 
        .Visible = True 'affiche
 
        .SetFocus 'donne le focus
 
        SendKeys "^(a)"
        SendKeys "{DELETE}" 'supprime
 
     '.Close 'ferme la fenêtre
 
    End With
 
End Sub

merci pour votre aide à tous.
Très bonne journée

[EricDgn]

Et ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Clear()
     Application.VBE.MainWindow.Visible = True
    Application.VBE.Windows("Exécution").Visible = True
    Application.VBE.Windows("Exécution").SetFocus
    Application.SendKeys "^a {DEL} {HOME}"
End Sub

Cordialement

[wes333]

rebonjour Eric,

c'est vraiment très sympa de m'aider.

Toujours le même problème, si je crée la macro et que je la lance indépendamment du programme, cela marche bien, on efface bien la fenêtre Exécution.
Si j'appelle la macro depuis le programme, cela ne marche pas.
Si je copie les lignes directement dans le programme cela ne marche pas non plus.

C'est compliqué le VBA

Merci beaucoup

[Igloobel]

Bonjour,


Juste une suggestion sans être sûr que cela fonctionne si tu faisais une Function au lieu d'une sub ?

Et une remarque attention aux mots réservés, les noms des Sub, Function, module, plage ....) ne doivent pas être des mots réservés.

"Clear" en fait partie il vaut mieux l'appeler "C_Clear"

A+

[wes333]

merci beaucoup Igloobel mais ça ne change rien.

La procédure ou la fonction isolée marche bien mais si on l'appelle depuis la procédure rien ne fonctionne.

Décidemment...

[EricDgn]

Bizarre, sur mon pc cela fonctionne. Exemple attaché.
Cordialement.

[wes333]

Merci beaucoup Eric, avec ton exemple, je viens de comprendre ce qui bloquait. Ce n'était pas l'écriture du code.

En fait, j'avais écrit la procédure principale dans une feuille alors que les macros sont dans des modules.

Je viens de tout regrouper dans les modules et là ça fonctionne parfaitement bien.

En plus dans mes feuilles je n'avais précisé dès le départ l'option explicit, je pense que ca contribue au bug.

En tout cas merci encore à vous tous pour votre aide précieuse.