Discussion :

[Klojos]

Bonjour,

J'aimerais connaître la raison pourquoi lorsque je supprime des lignes manuellement, le code ComboBox (ajouté comme Contrôle ActiveX) s'exécute :

Code :

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

1
2
3
Private Sub ComboBox1_Change()
MsgBox "allo"
End Sub

Pour le test ... à chaque ligne que je supprime "allo" s'affiche !

Merci.

[parmi]

Bonjour,

Ça doit dépendre de la manière que tu charges ce combobox1.
J'imagine que tu le lies à une plage plutôt que de le charger "manuellement"

[Klojos]

Merci parmi pour la réponse ...

Effectivement, j'utilise la propriété ListFillRange = A1:A5 pour alimenter mon ComboBox. Si c'est l'utilisation de cette propriété qui déclenche l'exécution de mon ComboBox comment l'éviter lorsque je supprime une ligne ?

[parmi]

En fait, je pensais que tu supprimais une ligne qui servait à alimenter la combobox...
Si ce n'est pas le cas, je ne vois pas pourquoi cet événement serait déclenché (?)

[Marc-L]

Bonjour,

peut-être en désactivant les évènements avant la suppression …

Voir du côté de la propriété EnableEvents

sans oublier de la réactiver avant la fin de la procédure !

[Klojos]

Merci toujours ...

c'est à titre d'exemple que je vous expose mon problème pour comprendre le phénomène!

J'ai un simple combobox qui est alimenté par les cellules A1:A5 (ListFillRange). Pour mon test je fais apparaître le message "Allo" quand je change de valeur.

Cependant, si je sélectionne 3 lignes consécutives dans cette même feuille, plusieurs lignes sous les cellules A1:A5, quand je fais bouton droit et que je supprime ces lignes sélectionnées (manuellement - sans code VBA) cette action déclenche l'événement sur le combobox sans raison ! Donc le message Allo apparaît.

[parmi]

Et si tu laisses tomber le ListFillRange et que tu charges le combo comme ceci ?

Code :

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

Combobox1.List = Range("A1:A5").Value

Est-ce que ça active toujours l'événement ?

[Klojos]

Merci parmi,

Oui ça fonctionne ...

Code :

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

1
2
3
Private Sub Workbook_Open()
    Sheets("Feuil1").ComboBox1.List = Range("A1:A5").Value
End Sub

Je ne comprends pas pourquoi la propriété ListFillRange crée ce problème, mais au moins en l'alimentant de façon indirect via ta proposition j'ai résolu mon problème.

J'ai apprécié ma première expérience sur ce forum

[parmi]

Spécifie tout de même la feuille de la plage au cas où le classeur s'ouvre sur une autre feuille.

Code :

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

Sheets("Feuil1").ComboBox1.List = Sheets("NomDeFeuille").Range("A1:A5").Value