Deplacement formulaie (precedent-suivant)

Bonsoir,

Ton lien ne semble pas fonctionner.

Exemple:
http://boisgontierj.free.fr/fichiers/Formulaire/Form_ConsultPhoto.zip

Cordialement JB

On 14 fév, 20:18, "lolo" <lolo_b...@yahoo.fr> wrote:

Bonsoir

Voila j'ai un formulaire sous excel et je voudrais pouvoir me deplacer
c'est à dire aller à la fiche précedente ou à la fiche suivante
Est ce que cela est possible ?
Je voudrais ajouter un bouton precedent et un bouton suivant
Voila ci joint le fichier que j'utilise :http://cjoint.com/?
cour6uPLhz

Merci beaucoup de votre aide

A++
Lolo

Salut JB

Merci beaucoup pour ton exemple mais comme ça je galère...ma
problèmatique est plus simple je pense (enfin je crois)

Voici le lien de mon fichier http://cjoint.com/?covCNulRdb

Merci de ton aide
A++

Lolo

Bonjour,

compte tenu de ce que je peux voir et comprendre de ton fichier, tu
pourrais ajouter sur ta fiche client, un bouton Précédent et un bouton
Suivant.

Un exemple de ce que pourrait être le code de ton bouton précédent,
sachant que le code du bouton "Suivant" peut s'en déduire assez facilement

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

End Sub

A+

Salut JB

Merci beaucoup pour ton exemple mais comme ça je galère...ma
problèmatique est plus simple je pense (enfin je crois)

Voici le lien de mon fichier http://cjoint.com/?covCNulRdb

Merci de ton aide
A++

Lolo

Salut AnonymousA

Merci pour le coup de main je test sur mon autre formulaire

A++

Lolo