Discussion :

[androginius]

Bonjour le Forum!!

J'ai un comobobox (activeX) dans une feuille excel. Basiquement, quand je seleccionne un element du combo, je déplace la feuille a une position déterminée avec la propriété Scrollrow, placée dans l'event combo_change.

Code :

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

1
2
3
4
5
Private Sub Combo_version_change()
 
    ActiveWindow.ScrollRow = Range(Application.ConvertFormula(Split(Combo_version, ":")(0), xlR1C1, xlA1)).Row
 
End Sub

Mon problème est que lorsqu'on modifie la feuille (on introduit un chiffre dans une cellule par exemple), l'event s'execute également (??!!) et provoque des déplacements non désirés.
Comment éviter que l'event combo se déclenche quand on modifie la feuille?
Merci d'avance!

[Pierre Fauconnier]

Bonjour.

Normalement, l'événement Change n'est levé que lorsque la valeur du combobox est modifiée (Sélection d'une valeur du combobox ou modification de la cellule renseignée comme propriété LinkendCell).

D'autres modifications dans la feuille ne lèvent pas l'événement.

[androginius]

Bonjour Pierre, le forum!

Merci de te pencher sur mon cas.
Je suis d'accord avec toi, l'évènement ne devrait pas se lever et c'est bien ce qui me chagrine!! Car il le fait le sal..ard!
Et je ne comprends pas pourquoi.

De toute façon ta réponse m'aide beaucoup car je pensais que c'était du au fait que j'utilisais le combo dans une feuille et non un formulaire. Ta confirmation me montre que le problème vient d'ailleurs.
Je vais donc continuer de chercher ce qui lève l'evènement mais j'avoue que pour le moment je suis perplexe...
Merci encore.

[Pierre Fauconnier]

Tu es certain que, même par ricochet, la cellule de LinkedCell n'est pas modifiée?

[androginius]

Sur et certain, elle est même vide et le reste!!

Par contre, grace a ton aide j'ai charché du côté de listfillrange et je sais maintenant que c'est de là que vient le problème.
En effet, je rempli le combo avec des données qui sont dans une plage qui se trouve dans une autre feuille ("liste"). Pour simplifier, j'ai assigné à cette plage un nom ("nom_liste") et donc rempli le listfillrange du combo avec le nom "nom_liste".
Hors la plage n'est pas de taille constante et son nom est défini comme:

Code :

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

=DESREF(Liste!$M$2;0;0;NBVAL(Liste!$M$2:$M$100);2)

(la reférence M100 est prise arbitrairement car je sais que ma liste ne dépassera jamais cette longueur).

C'est ce point qui semble poser problème. J'ai essayé de rentrer la plage manuellement dans listfillrange et le problème disparaît. Donc il ne me reste qu'à trouver le moyen de remplir le combo autrement que par la méthode que j'ai utilisée.
Je reviendrai avec des nouvelles ce soir, là je suis au boulot...
Merci encore de ton aide Pierre.

[androginius]

Bonsoir le forum et Pierre si tu lis le post.
Me revoilà donc après avoir testé une autre solution.
Le problème vient bien du fait de la définition du nom de plage utilisé pour remplir mon combo c'est à dire de:

Code :

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

=DESREF(Liste!$M$2;0;0;NBVAL(Liste!$M$2:$M$100);2)

J'ai souvent utilisé un nom définit de cette façon car ça a l'avantage de pourvoir faire grandir le nombre de cellules comprises dans la plage sans avoir à redéfinir le nom.
C'est cependant la première fois que je l'utilisais en combinaison avec un combo et ma conclusion est claire: à éviter!!
Il semble que chaque fois qu'on modifie la feuille, l'expression est recalculée et déclenche la levée de l'event combo_change.

A la place, je renseigne directement la propriété listfillrange avec l'adresse avec du code VBA et ca marche au poil.
J'espère que cela peut servir à quelqu'un.
Bonne soirée à tous et à bientôt!