Re : Pb sur une macro lié à un formulaire
Re,
Dans cette macro Cells(36,30)=0 et c'est là le PB
J'ai mis 9 ici pour tester et plus de bugg.
Je n'ai pas poussé plus loin à toi de rectifier pour avoir une valeur qui soit au moins identique ou supérieur à celle que tu veux en y mettre en texte
Private Sub CboGrade1_Change()
CboEchelon1 = Cells(36, 30)
HorsEchelle = Cells(37, 30)
With CboEchelon1
.Clear
For IndEchelon = 1 To 9 'CboEchelon1
.AddItem IndEchelon
Next
Pour trouver les buggs il faut mettre un point d'arrêt dans la macro (1 clic dans la bordure en face de la ligne) ceci en initialize
ensuite lancement de l'user.
Presse F8 autant de fois que tu veux pour suivre le déroulement de la macro ligne par ligne
Passe le curseur sur une variable et tu verras sa valeur, ou affiche la fenêtre exécution et tu écris
?cells(36,30) et presse Enter il doit afficher ici 0
et comme on fait une boucle de 1 à ....0 cela fait pas de additem donc liste vide,
comme ensuite on écrit une valeur en échelon et avec .MatchRequired = True cela bugg
Le point d'interrogation veux dire que tu poses la question.
Pour enlever le point d'arrêt clic dessus.
ha! ces échelons
Bonne journée Bruno