Défilement dans formulaire

Bonjour.
Regarde le classeur à l'adresse :
http://cjoint.com/?estrp7yO0W
J'ai changé la propriété ScrollHeight du formulaire Ficheclient. L'aspect
dépend du rapport Height / ScrollHeight
Cordialement.
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1176906225.752817.251730@p77g2000hsh.googlegroups.com...
Bonjour à tous

J'ai un soucis je voudrais faire défiler mes formulaires ( suivant
prècedent) mais je ne vois pas comment m'y prendre
Pouvez vous m'aider

Voici un lien de mon fichier (format zip) qui est presque abouti :
http://cjoint.com/?esqxba33K6

Bonne soirée et merci de votre aide

A++

Salut Merci Daniel

Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un
pour visionner les formulaires précedents et l'autre pour avancer...un
peu comme dans Access.
Peux tu m'aider ?
J'avais ce code mais ca ne fonctionne pas :

Private Sub Precedent_Click()


On Error Resume Next
With Me
If Not IsNull(Me.fiche) Then
adr =
Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address
.nom.value = Sheets("base").Range(adr).Offset(-1, 1)
.fiche.value = Sheets("base").Range(adr).Offset(-1, 0)
.daterecep.value = Sheets("base").Range(adr).Offset(-1, 2)
.dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3)
.serinum.value = Sheets("base").Range(adr).Offset(-1, 4)...
End If
End With


Merci beaucoup

A++

Lolo

J'ai rajouté un scrollbar sur le formulaire "ficheclient1" :
http://cjoint.com/?etamMzwlAC
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1176924339.321277.221380@y5g2000hsa.googlegroups.com...
Salut Merci Daniel

Ce n'est pas exactement ce que je voulais en fait c'est deux bouton un
pour visionner les formulaires précedents et l'autre pour avancer...un
peu comme dans Access.
Peux tu m'aider ?
J'avais ce code mais ca ne fonctionne pas :

Private Sub Precedent_Click()


On Error Resume Next
With Me
If Not IsNull(Me.fiche) Then
adr Sheets("base").Range("A2:A65536").Find(What:=Me.fiche).Address
.nom.value = Sheets("base").Range(adr).Offset(-1, 1)
.fiche.value = Sheets("base").Range(adr).Offset(-1, 0)
.daterecep.value = Sheets("base").Range(adr).Offset(-1, 2)
.dateexpe.value = Sheets("base").Range(adr).Offset(-1, 3)
.serinum.value = Sheets("base").Range(adr).Offset(-1, 4)...
End If
End With


Merci beaucoup

A++

Lolo

Merci Daniel

C'est exactement ce que je voulais il va falloir que je regarde le
code afin de comprendre ce que tu as rajouté...

Merci beaucoup
Bonne fin de journée

A++

Lolo

Bonjour.
Pour t'avancer un peu, dans Userform_change, j'ai fixé le minimum (2) et le
maximum (dernière ligne de la colonne A) du scrollbar. J'ai également fixé
la valeur initiale du scrollbar selon la valeur obtenue par l'inputbox.
Dans le Scrollbar_Change, je remplis le formulaire.
Daniel
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
1176975062.413539.194440@d57g2000hsg.googlegroups.com...
Merci Daniel

C'est exactement ce que je voulais il va falloir que je regarde le
code afin de comprendre ce que tu as rajouté...

Merci beaucoup
Bonne fin de journée

A++

Lolo