Un plop visuel qui surprend chaque fois ma rétine

[Magic_Doctor]

Bonjour à tous,

Voilà, quand j'actionne une macro à partir d'un ComboBox il y a, suivant l'item choisi, un fort désagréable "plop visuel", et ce en dépit d'un "Application.ScreenUpdating = False" en début de macro.
Je comprends l'origine du problème, mais je n'arrive pas à le contourner.
Tout est bien expliqué dans le classeur et ses macros.

Merci d'avance pour toute aide.

 

[Magic_Doctor]

Re : Un plop visuel qui surprend chaque fois ma rétine

Regardez plutôt ce classeur.

 

[job75]

Re : Un plop visuel qui surprend chaque fois ma rétine

Bonjour Magic_Doctor,

Pour le "plop visuel", va dans le code de la feuille "BD" et à la fin de la macro Worksheet_SelectionChange supprime :

Application.ScreenUpdating = True

Rien testé car je suis sur mon ordi avec Excel 2003.

Pour ce qui est de la variable Public compt2 on en a assez parlé il me semble !

Tu n'as qu'à utiliser à la place le nom défini, il est créé justement pour mémoriser la valeur qu'il contient.

A+

 

[Magic_Doctor]

Re : Un plop visuel qui surprend chaque fois ma rétine

Bonjour job,

Effectivement ça marche. Je pensais qu'il fallait toujours finir par Application.ScreenUpdating = True.

Je vais voir donc pour cette variable.

 

[job75]

Re : Un plop visuel qui surprend chaque fois ma rétine

Re,

Et dans la 1ère macro de ta feuille "Données", pour que l'activation de la cellule "TitreListeItems" déclenche la macro SelectionChange, il ne faut pas que cette cellule soit déjà sélectionnée donc remplace :

Sheets("BD").Select 'on doit aller à la feuille "BD" pour activer la cellule "TitreListeItems"

par

Application.Goto Sheets("BD").[A1] 'on doit aller à la feuille "BD" pour activer la cellule "TitreListeItems"

Edit : ah pardon, cette modif est inutile puisque ta macro sélectionne la cellule CR50 après l'activation.

A+

 

[Magic_Doctor]

Re : Un plop visuel qui surprend chaque fois ma rétine

Merci job, il ne me reste plus que d'en finir avec la variable.