Empècher l'évènement 'Change' avec ComboBox dans feuille

[Compte Supprimé 979]

Bonjour à tous,

Un autre petit soucis qui m'ennuie 🙁

Si on saisi une valeur dans une cellule de n'importe qu'elle feuille du classeur joint,
j'ai l'évènement 'Change' de mon ComboBox qui s'active ?

Quelqu'un a t'il déjà solutionné ce problème ?

Merci pour vos réponses

 

[néné06]

Re : Empècher l'évènement 'Change' avec ComboBox dans feuille

Bonjour Bruno M45
Pour ma part je solutionne le problème en affectant un pointeur avant la modif et dans la routine change je place la condition
If pointeur =1 then
Exit sub

Endif
Je n'ai pas regarde ton programme car je suis sur mon téléphone et
Je suis peut être hors sujet

A+

 

[job75]

Re : Empècher l'évènement 'Change' avec ComboBox dans feuille

Bonjour Bruno 🙂

Tu as défini le nom ListeChoix par :

=DECALER(Params!$B$1;1;;NBVAL(Params!$B:$B)-1)

Or la fonction DECALER est volatile, elle se recalcule chaque fois que l'on modifie une feuille quelconque.

Du coup la propriété ListFillRange de la ComboBox est recalculée aussi => évènement Change.

Si tu définis ListeChoix par => =Params!$B$2:$B$13 => no problem.

C'est comme ça avec DECALER...

Edit : salut néné06

A+

 

[Compte Supprimé 979]

Re : Empècher l'évènement 'Change' avec ComboBox dans feuille

Salut Néné06, Job75 😉

@Néné06, effectivement c'est ce que j'utilise aussi mais ça me créé des problèmes 🙁

@Job75, et bien ça c'est de la réponse comme je les aime, explicite et claire 🙂
Merci beaucoup, il va falloir que je définisse mes plages autrement, car elles sont dynamiques (ajout de valeurs au fur et à mesure)

A+ les amis

 

[job75]

Re : Empècher l'évènement 'Change' avec ComboBox dans feuille

Re Bruno,

Au lieu de créer la liste par ListFillRange, utiliser la propriété List.

1) Dans ThisWorkBook :

Private Sub Workbook_Activate()
Feuil1.ComboBox1.List = [ListeChoix].Value
End Sub

2) Dans le code de Feuil1 :

Private Sub WorkSheet_Activate()
ComboBox1.List = [ListeChoix].Value
End Sub

Fichier joint.

A+

 

[pierrejean]

Re : Empècher l'évènement 'Change' avec ComboBox dans feuille

Bonjour a tous

Une façon de definir (a l'activation de la feuille)

Private Sub Worksheet_Activate()
Dim n As Integer
n = Sheets("Params").Range("B65536").End(xlUp).Row
ComboBox1.ListFillRange = "Params!B2:B" & n
End Sub

 

[Compte Supprimé 979]

Re : Empècher l'évènement 'Change' avec ComboBox dans feuille

Bonjour mon cher Pierrejean ... ça faisait logntemps, hereux de te croiser 🙂

En tout cas un seul mot : EXCELLENT
peut-être un 2ème : MERCI

Non seulement, c'est efficace, mais en plus ça marche LOL

Mes amitiés à vous 2 et A+