target, suivant et précédent ?

[Joker001]

Bonjour, je suis novice en VBA excel. J'ai réussi à programmer un bouton suivant et précédent avec ce code (trouvé qql part ..)

Précedent : currentrow= currentrow+abs ((currentrow<lastrow)*1):lecture ' sub qui lit le tableau vers textbox
suivant : currentrow= currentrow-abs ((currentrow>2)*1):lecture

sub userform_initialize ()
lastrow=thisworbook.worksheets ("Bd").range ("A"&colums.count)end(clup).row
currentrow=lastrow: lecture
end sub


pour la work sheet :

Private sub worksheet_beforedoubleclick (byval target as range, cancel as boolean)
cancel = true
userform1.show
range("B" & target.row).select
userform1.textbox1.value=activecell.value
end sub

J'ai crée un bouton pour appeler mon userform sur ma page excel et là préc et suivant fonctionnent.
Par contre ce n'est pas le cas si les utilisent en faisant apparaître le userform par double clique sur une ligne (target) ... il doit manquer quelque chose pour définir ma currentrow dans la worksheet ???

Merci pour vos réflexions !!

 

[Joker001]

Re : target, suivant et précédent ?

Bonjour Si...,

J'ai testé avec succès ta solution en ajoutant tout simplement "currentrow=activecell.row" dans l'initialisation du userform !

Excellent, ça fonctionne.

Une question : on fait une évaluation des réponses ou discussion terminée ??

Merci pour votre aide à tous ;-)