High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Codes VBA excel des boutons precédent et suiv

Dernière réponse le 31 oct 2007 à 15:27:36 baguidi, le 31 oct 2007 à 09:43:21 
 Signaler ce message aux modérateurs

Bonjour,

je voudrais s'il vous plais avoir des codes en VBA excel des boutons précedent et suivant qui me permettrons de passer d'un enregistrement à un autre dans un formulaire(fiche)

Configuration: Windows XP
Firefox 2.0.0.8

Posez votre question Répondre

1

eriiic, le 31 oct 2007 à 09:51:15

Bonjour,

Ta question est trop vague, tu y mets le code qui fait ce que tu désires et ça on ne peut pas le deviner.
Si c'est juste pour consulter tu as le menu 'données / formulaires' avec les boutons qui permettent de consulter les enregistrements sélectionnés avec 'précédent' et 'suivant' tout pret mais l'interet est limité...
eric

   
Répondre à eriiic

2

baguidi, le 31 oct 2007 à 10:10:35

Bonjour,
Merci de me répondre rapidement mon cher ami. Ce que je dis cé que j'ai réalisé un USERFORM sous excel et je voudrais créer 2 boutons PRECEDENT et SUIVANT qui me permettrons de passer d'un enrégistrement à un autre à travers le userform.

   
Répondre à baguidi

3

eriiic, le 31 oct 2007 à 10:38:00

Je persiste, trop peu d'élément pour te répondre précisément.
Que te dire à part que pour chaque contrôle de ton formulaire il faut que tu changes sa propriété value en mettant la valeur précédente/suivante en gérant les limites maxi/mini de tes enregistrements mais ça tu t'en doutais je pense...
Le mieux est que tu déposes ton fichier sur www.cijoint.fr et que tu colles le lien ici, on pourra être dans le concret.
eric

   
Répondre à eriiic

4

baguidi, le 31 oct 2007 à 11:24:58

Bonjour,

merci encore une fois de me répondre rapidement. je vous joint ici le lien qui vous permettra d'avoir accès à mon fichier. Merci mon brave

http://www.cijoint.fr/cij91003492230300.xls. Tu verra mon formulaire et les bouton que je désir

merci

   
Répondre à baguidi

5

baguidi, le 31 oct 2007 à 11:43:27

Bonjour,
je crois que ce lien est encore mieux pour toi

http://www.cijoint.fr/cij15912390430328.xls

   
Répondre à baguidi

6

Polux31, le 31 oct 2007 à 12:21:48

Il serait utile de savoir ce que tu veux faire exactement ??? a quoi sert ton formulaire ??

   
Répondre à Polux31

7

baguidi, le 31 oct 2007 à 12:32:14

Bonjour,
je désir permettre à l'utilisateur de passer d'un enregistrement à un autre afin de pouvoir se positionner sur celui de son choix pour peut être le supprimer ou le modifier. Je sais que cela sera fastidieux si ma base est volumineuse. Ou bien je peux faire une recherche pour trouver l'enregistrement juste mais moi je veux aussi connaitre les codes de Précedent et Suivant.

merci

   
Répondre à baguidi

8

Polux31, le 31 oct 2007 à 12:39:10

Il suffit de gérer un compteur : suivant = + 1, précédent = - 1. Il faut initialiser le compteur a 1 et gérer pour le cas où compteur = 0 (premier de la liste). Il faut aussi gérer pour la fin de la liste (cellule vide). Ensuite tu fais une procédure qui gère l'affichage dans ta Userform en récupérant la valeur du compteur.

;o)

   
Répondre à Polux31

9

eriiic, le 31 oct 2007 à 13:05:11
  • +1

Voici un exemple de ce que tu peux faire: 

Dim ligneEnCours As Long
Private Sub Cmd_Préd_Click()
' je désir avoir les codes qui me permettrons de passer d'un enrégistrement à un autre
    If ligneEnCours > 2 Then
        ligneEnCours = ligneEnCours - 1
    Else
        ligneEnCours = 2
    End If
    TextBox1.Text = Cells(ligneEnCours , 1)
    TextBox2.Text = Cells(ligneEnCours , 2)
 End Sub

Private Sub Cmd_Suiv_Click()
' je désir avoir les codes qui me permettrons de passer d'un enrégistrement à un autre
    If Cells(ligneEnCours + 1, 1) <> "" Then
            ligneEnCours = ligneEnCours + 1
    End If
    TextBox1.Text = Cells(ligneEnCours , 1)
    TextBox2.Text = Cells(ligneEnCours , 2)
End Sub


eric

   
Répondre à eriiic

10

baguidi, le 31 oct 2007 à 14:55:19

Bonjour,

si je pouvais t'embrasser je le ferais. Vous êtes super. Dite je voudrais être aussi réfléchi comme vous merci cela marche comme je veux

bravo à vous et bonne soirée mon pote

   
Répondre à baguidi

11

baguidi, le 31 oct 2007 à 15:00:32

Bonjour,

Merci j'ai pu trouver la réponse a ma question bravo a vous et bonne soirée.

vous super.

   
Répondre à baguidi

12

 eriiic, le 31 oct 2007 à 15:27:36

De rien,
Bons progrès sur excel et amuse-toi bien avec :-)
eric

   
Répondre à eriiic
Posez votre question Répondre
Ils ont besoin de votre aide