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