Discussion :

[Julien42]

Bonjour,

voila, ma question est dans le titre, je m'explique :

je souhaite utiliser la fonction if sur tous les champs d'un formulaire. Je sais utiliser cette fonction sur un champs afin de produire une action particulière, mais là je souhaites l'appliquer à tous les champs d'un formulaire, car celui ci en contient plus de 60 et je pense qu'il existe une solution plus simple que de saisir tous les champs en vba. J'imagine quelque chose de ce genre mais je bloque sur la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if (Tous les champs du form) = "A TEMPS" then
'produire une action1
 
Else
'Produire une action2

Comment ecrire "(Tous les champs)" en vba svp ?
Attention, si1 seul champ, ou 2 champs, ou 3 champs, etc..., 60 champs, contiennent la mention "A TEMPS", je souhaites que l'action1 ce réalise

Merci de votre aide

[f-leb]

bonsoir Julien42,

je pense en effet qu'il faut parcourir les contrôles du formulaire dans une boucle:


Comment énumérer les contrôles d'un formulaire dans une boucle ?
Comment changer la valeur de plusieurs contrôles en même temps ?

[Julien42]

merci beaucoup,

effectivement j'avais vu ce lien mais je ne vois pas comment l'integrer avec le if

[f-leb]

un truc de ce genre là:

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
Dim ctrl as control
Dim Pas_Atemps as boolean
 
Pas_Atemps= False
 
For Each ctrl In Me.controls
    If ctrl.value <> "A TEMPS" Then
        Pas_Atemps= True
        Exit For   
    End If
Next
 
if Pas_Atemps then
' action 2
else
' action 1
end if

[Julien42]

merci

2-3 modifs apportées et ça fonctionne