Discussion :

[Novagsk]

Bonjour,

J ai une feuille excel avec 200 ligne. Pour chaque ligne j ai une checkbox.
Je souhaite, via VBA, afficher sur un frm la valeur d'une cellule de la ligne si la checkbox a été cochée.

Pour ça, j'ai crée un frm avec 10 textbox
Sur ma feuille excel j ai liée les checkbox a des cellules

et avec le code ci-dessous je pensais pouvoir réussir a afficher les infos dans mes textbox

Voila le code que j'ai fais.

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
 
Dim x As String
Dim Tablo(0 To 10) As String
x = lblImmat.Caption
 
For i = 16 To 200
        If Sheets(x).Cells(i, 13) = True Then
            For c = 1 To 10
                Tablo(c) = Sheets(x).Cells(i, 2)
            Next
            txtA1.Text = Tablo(0)
            txtA2.Text = Tablo(1)
            txtA3.Text = Tablo(2)
            txtA4.Text = Tablo(3)
            txtA5.Text = Tablo(4)
            txtA6.Text = Tablo(5)
            txtA7.Text = Tablo(6)
            txtA8.Text = Tablo(7)
            txtA9.Text = Tablo(8)
            txtA10.Text = Tablo(9)
        End If
    Next

Le problème ce que cela ne m affiche que la dernière valeur du tableau et dans toutes les txtbox
Je ne comprend pas pourquoi

Merci de votre aide.

[pijaku]

Bonjour,
Essaie juste ceci :

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
 
Dim x As String
Dim Tablo(0 To 10) As String
x = lblImmat.Caption
 
For i = 16 To 200
        If Sheets(x).Cells(i, 13) = True Then
            For c = 1 To 10
                Tablo(c) = Sheets(x).Cells(i, 2)
MsgBox i 'observer i te permet de modifier to code
            Next
            txtA1.Text = Tablo(0)
            txtA2.Text = Tablo(1)
            txtA3.Text = Tablo(2)
            txtA4.Text = Tablo(3)
            txtA5.Text = Tablo(4)
            txtA6.Text = Tablo(5)
            txtA7.Text = Tablo(6)
            txtA8.Text = Tablo(7)
            txtA9.Text = Tablo(8)
            txtA10.Text = Tablo(9)
        End If
    Next

[Novagsk]

Bonjour Pijaku,

Ok mais hélas cela ne m'aide pas bcp plus.

Le résultat avec la message box sur i :

J'ai donc 10 messagebox m'indiquant le nombre 16 et 10 autres m'indiquant le nombre 18.

le 16 et le 18 correspond aux lignes de mon tableau excel ou il y a la valeur TRUE.

Mais pourquoi 10 fois 16 et 10 fois 18 ?

Merci d'avance.

[Novagsk]

Re tous,

Bon j'ai résolu mon pb.

Le problème était que je faisais une boucle sur c.

voici le code

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
c = 0
    For i = 16 To 200
            If Sheets(x).Cells(i, 13) = True Then
                Tablo(c) = Sheets(x).Cells(i, 2)
                c = c + 1
            End If
    Next i
        txtA1.Text = Tablo(0)
        txtA2.Text = Tablo(1)
        txtA3.Text = Tablo(2)
        txtA4.Text = Tablo(3)
        txtA5.Text = Tablo(4)
        txtA6.Text = Tablo(5)
        txtA7.Text = Tablo(6)
        txtA8.Text = Tablo(7)
        txtA9.Text = Tablo(8)
        txtA10.Text = Tablo(9)

Merci et bonne journée et bon week end