IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comment passer d'un enregistrement au suivant (ou précédent) sur un formulaire [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    142
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 142
    Par défaut Comment passer d'un enregistrement au suivant (ou précédent) sur un formulaire
    Bonjour,
    Je bloque actuellement sur le point suivant, peut être pourriez-vous m'orienter vers la bon code ?
    A partir de critères, j'alimente une ListBox.
    En doublecliquant sur une ligne de cette ListBox, j'affiche un formulaire avec des infos.
    Comment puis je passer à l'enregistrement suivant ou précédent (selon les critères choisis)?
    J'ai essayé de me caler sur ListIndex mais à chaque fois que je clic sur le bouton suivant (ou précédent) tout repart de la ligne selectionnée dans la ListBox. Faut il utiliser une boucle , une variable qui garde en mémoire la dernière infos ...
    Merci pour votre aide
    MichaSarah

  2. #2
    Membre chevronné
    Profil pro
    Inscrit en
    Décembre 2008
    Messages
    389
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2008
    Messages : 389
    Par défaut
    Bonjour,

    Pour une ListBox nommée choixNom, un bouton suivant, un bouton précédent

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub btnSuivant_Click()
    If Me.choixNom.ListIndex = Me.choixNom.ListCount - 1 Then Exit Sub
     Me.choixNom.ListIndex = Me.choixNom.ListIndex + 1
    End Sub
     
    Private Sub btnPrecedent_Click()
    If Me.choixNom.ListCount = 0 Then Exit Sub
    If Me.choixNom.ListIndex = 0 Then Exit Sub
     Me.choixNom.ListIndex = Me.choixNom.ListIndex - 1
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    142
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 142
    Par défaut
    Bonjour JPierreM,
    Merci pour ta solution qui fonctionne impeccable.

    MichaSarah

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 03/07/2013, 21h42
  2. Comment passer des valeurs à la page suivante ?
    Par CinePhil dans le forum Seam
    Réponses: 1
    Dernier message: 10/11/2010, 15h26
  3. Réponses: 2
    Dernier message: 15/06/2010, 16h12
  4. Comment passer le focus au champ suivant par Entrée ?
    Par Bruyneel dans le forum API, COM et SDKs
    Réponses: 4
    Dernier message: 15/01/2008, 10h07
  5. comment passer de XP a Knoppix debian en restant sur XP?
    Par azale66 dans le forum Windows XP
    Réponses: 7
    Dernier message: 26/07/2006, 21h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo