Bonjour,
Je osuhaite récupérer les valeurs de champs dont les nom sont stockés dans une table vba (les champs étant dans un formulaire. Le code suivant va expliciter les choses :
Les champs dont les noms sont dans la table sont des booléens.
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 Function Verif_Ambiance(champ As Variant) 'champ appelant la fonction Dim cptr As Integer 'compteur Dim tab1(20) As String 'tableau Dim maxval As Integer ' nbre max de valeurs Dim inter As Integer ' cptr intermédiaire Dim i As Integer ' boucle tab1(0) = "ambiance_lasse" tab1(1) = ..... maxval = 5 inter = 0 For i = 0 To 19 If Forms![Form_Saisie].tab1(i).Value = True Then inter = inter + 1 End If Next i End Function
Bien évidemment j'ai une erreur sur la ligne If...Then
Je crois qu'il n'aime pas le .tab1(i)...
Quelqu'un peut-il m'aider svp ?
Merci à tous
JP
Partager