[XL-2007] Appli VBA + Formulaire de base donnée

[astroflo]

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 :

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 :

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

[fama78]

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)

[astroflo]

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é

[bbil]

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 :

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