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 :

Appli VBA + Formulaire de base donnée


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
    Novembre 2008
    Messages
    58
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Novembre 2008
    Messages : 58
    Par défaut Appli VBA + Formulaire de base donnée
    bonjour,

    je suis en train de réalisé une petite base de donnée avec excel, et j'ai développer un Formulaire pour remplire la base de donnée.

    Cependant je suis bloqué sur un point particulier.

    j'ai ajouté un bouton dans mon formulaire qui permet de parcourir les entrée de la base de donnée.

    je n'arrive pas à passé apres l'initialisation, a la ligne suivante je pense que cela viens de mon code à l'initialisation, mais je n'arrive pas à résoudre le probleme est ce que quelqu'un pourrais m'aidée
    je joint la partie du code incriminé et ma fonction d'initialisation qui marche
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Private Sub Suivant_Click()
     
        Sheets("base_citoyenne").Select
     
       ' à chaque clique du bouton suivant le formulaire affiche l'entrée suivante de la base de donnée
       '
       '
        dim i as integer ' i la ligne
        dim j as integer ' j la collone
        dim n as integer ' nombre d'entrée de la base de donnée
     
        i = 3 ' le tableau dans la sheet commence à la 3eme lignes
        j = 2 ' ainsi qu'a la deuxieme collones
     
     
            For i = 3 To 10000 Step 1
        If Not (Cells(i, 2).Value = "") Then
               n = n + 1
            End If
        Next
        For i = 3 To n Step 1
            Txtnom.Value = Cells(i, j + 1).Value
            Txtind.Caption = Cells(i, j).Value
            Txtprenom.Value = Cells(i, j + 2).Value
            Txt_mail.Text = Cells(i, j + 3).Value
            TextAdrs.Text = Cells(i, j + 6).Value
            ' list_ville.Value = Cells(i, j + 4).Value
        Next
     
    End Sub


    je réussit à lire la premier entrée mais pas les suivantes.
    je me dis que cela viendrais que sub userform_Initialize serait en mode private mais je ne suis pas sur.

    Vue que c'est mon premier code que je fait avec VBA.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
     
    Private Sub UserForm_Initialize()
     
       ' Initialisation du formulaire
       ' Liste
     
        i = 3
        j = 2
     
        '   n As Integer
     
        Txtind.Caption = Cells(i, j).Value
        Txtnom.Value = Cells(i, j + 1).Value
        Txtprenom.Value = Cells(i, j + 2).Value
        Txt_mail.Value = Cells(i, j + 3).Value
     
        Sheets("base_citoyenne").Select
     
        For i = 3 To 10000 Step 1
        If Not (Cells(i, 2).Value = "") Then
               n = n + 1
            End If
        Next
     
        n_valeur.Caption = n
     
     
     
    End Sub
    Merci d'avance pour votre aide

    Astroflo

  2. #2
    Membre averti
    Femme Profil pro
    Développeur décisionnel
    Inscrit en
    Décembre 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Femme

    Informations professionnelles :
    Activité : Développeur décisionnel

    Informations forums :
    Inscription : Décembre 2011
    Messages : 15
    Par défaut
    Bonjour,

    Quel est ton message d'erreur?

    Lorsque je regarde ton code, je vous que tes variables ne dont pas déclarées (en commentaire)

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    58
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Novembre 2008
    Messages : 58
    Par défaut
    je n'ai pas de message d'erreur,

    en fait quand je clique sur le bouton suivant associé à la commande suivant_click mon compteur ne marche pas
    et je n'arrive pas à lire la base

    si mes variable sont déclarer le commentaire est après la déclaration donc pas de problème de plus

    vue que VBA est mal fait il n'est pas nécessaire de déclarer les variable, mais mon habitude de programmeur est de déclarer et initialisé

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    bonjour...

    évite d'utiliser les "Select" et quand tu utilise Cells, Range, ... pense à préciser la feuille concernée.., vérifie la valeur trouvée pour n en rajoutant un point d'arrêt grâce à l'instruction stop par exemple..
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    ....
     If Not (Sheets("base_citoyenne").Cells(i, 2).Value = "") Then
               n = n + 1
            End If
        Next
    Debug.print n ' Voir valeur de n dans fenêtre exécution CTRL+G
    Stop
    ....
    Une petite révision pour le débogage en VB :
    Le débogage sous Visual Basic 6

Discussions similaires

  1. [XL-2007] Mise à jour d'une base données via recherche avancée et formulaire en excel VBA
    Par nazz4 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 21/02/2011, 00h11
  2. [Conception] Creation d'une appli pour consulter une base de données
    Par nico.elgringo dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 13/07/2006, 11h58
  3. [VBA-A] transfert de données entre formulaire
    Par snaxisnake dans le forum VBA Access
    Réponses: 10
    Dernier message: 20/04/2006, 16h48
  4. Réponses: 13
    Dernier message: 20/04/2006, 15h37
  5. [Conception] Formulaire et base de donnée ?
    Par heldev dans le forum PHP & Base de données
    Réponses: 3
    Dernier message: 10/03/2006, 17h09

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