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 !!
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 !!