Boutons d'Userform inactifs

L'userform NABOX se laisse charger, se laisse voir,
Mais aucun bouton ne fonctionne.

Pourtant je lui dis bien de me supprimer la ligne
Dans le bouton en question :

Code:

---

1 2 3 4

Private Sub on1_Click() ActiveCell.Rows.EntireRow.Delete shift:=xlUp Unload (NABOX) End Sub

---

Même le bouton pour fermer l'userform reste vain
La compilation continue inlassablement avec pour compagnon
un flemmard qui ne comprend rien à rien !!!!

La procédure fonctionne parfaitement
Les boutons fonctionnent

Cependant au sein de la boucle dans laquelle elle se trouve
dès que le end sub de l'userform est passé (ce qui laisserait imagine que les boutons fonctionnent...)
la lecture du code continue et réintègre la boucle ...
Tout en se foutant de la possibilité que l'userform puisse modifier la suite.
Là, en effet, aucun bouton ne fonctionne.

Citation:

---

Envoyé par ohohoh

Cependant au sein de la boucle dans laquelle elle se trouve

---

:koi: Une procédure événementielle dans une boucle? :koi:

Citation:

---

Envoyé par ohohoh

dès que le end sub de l'userform est passé

---

:koi: Il est où le End Sub d'un UserForm? :koi:

remplace le

Code:

---

unload (NABOX)

---

par

Code:

---

unload me

---

après cela : cette partie du code fonctionne le reste est peut etre la principale cause de dysfonctionnement.
l'initialisation de ton USF ; les autre procédures, les propriétés des boutons