Défilement dans formulaire

Le
lolo
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++
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4442331
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"
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++
lolo
Le #4442121
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
Daniel
Le #4441731
J'ai rajouté un scrollbar sur le formulaire "ficheclient1" :
http://cjoint.com/?etamMzwlAC
Daniel
"lolo"
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
lolo
Le #4441401
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
Daniel
Le #4441371
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"
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
Publicité
Poster une réponse
Anonyme