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 :
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
Les champs dont les noms sont dans la table sont des booléens.
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