Problème bouton SpinUp

[jofdm]

Bonjour,
Dans le fichier ci-joint, quelqu'un peut-il m'expliquer pourquoi le bouton SpinUp ne fonctionne pas alors que le bouton SpinDown fonctionne lui parfaitement?
Merci d'avance pour votre aide car je commence à m'arracher les cheveux de ne pas trouver l'erreur

 

[pierrejean]

Re : Problème bouton SpinUp

bonjour jofdm

petite modif a faire:

.....
For x = 2 To FL1.Range("A65535").End(xlUp).Row
      If UCase(FL1.Range("A" & x)) Like UCase(Menu.TextBox1.Value) Then
          LigneActive = x
          Menu.TextBox1.Value = FL1.Cells(LigneActive + 1, "A").Value
          Menu.TextBox2.Value = FL1.Cells(LigneActive + 1, "V").Value
      trouve = True
     [COLOR=red] Exit For
[/COLOR]      End If
    Next
.....

explication:
même si on a trouvé une fois l'equivalent le next n fait continuer et le trouve redevient false

 

[jofdm]

Re : Problème bouton SpinUp

Merci beaucoup pour votre aide, je n'aurais jamais trouvé tout seul, d'autant plus que le "Exit For" est absent du code pour le spindown. Et comme le spindown fonctionnait ...
Bonne journée et à bientôt ... j'aurai sûrement d'autres questions 😉