Problème bouton enabled

[pingouinal]

Bonjour à tous,

J'ai un fichier avec des données qui commencent en ligne 12. Dans ce fichier un userform affiche les infos de chaque ligne, et sur ce userform j'ai mis un bouton Suivant et un Précédent. Ces boutons sont désactivés en fin de liste pour le Suivant et en début de liste pour le Précédent.

Par exemple si je suis en ligne 13, je clique sur précédent et j'arrive en ligne 12. Le bouton se bloque donc car il n'y a rien avant la ligne 12. C'est parfait. Mais si je clique sur suivant, j'arrive de nouveau en ligne 13 et le bouton Précédent ne se réactive pas.

J'utilise le code ci-dessous :

Do
ActiveCell.Offset(-1, 0).Select
Loop Until ActiveCell.EntireRow.Hidden = False
If ActiveCell.Row > 12 Then
UserForm5.Precedent.Enabled = True
Else
UserForm5.Precedent.Enabled = False
End If

Je n'arrive pas à trouver comment le modifier pour que le bouton redevienne actif quand je ne suis plus en ligne 12.
J'en appelle donc à votre aide. Et merci d'avance à tous ceux qui prendront le temps jeter un coup d'oeil à mon problème.

 

[ERIC S]

Re : Problème bouton enabled

bonjour

sur bouton précédent

après ton endif, ajouter
UserForm5.Suivant.Enabled = true


sur bouton suivant

après ton endif, ajouter
UserForm5.Precedent.Enabled = true

à tester

 

[pingouinal]

Re : Problème bouton enabled

Bonjour Eric,

Merci pour cette proposition, ça marche parfaitement.
Mais maintenant je me sens un peu bête de ne pas y avoir pensé tout seul... 😀

 

[ERIC S]

Re : Problème bouton enabled

re

C'est arrivé à d'autres gars biens....


....moi par exemple😉