Discussion :

[othmane.badri]

et que sera le contenu de cette macro ? par ce que j'ai essayé avec Actualiser, mais ça pas marché.

[james68]

remets la dernière version de ta source... et si j'ai le temps je jette un coup d'oeil demain matin.
Car là on ne va pas y arriver
a +

[othmane.badri]

Bonjour,
j'ai avancer un peu sur mon fichier, j'ai plus le problème de mise a jour automatique. Mais j'aimerais bien utiliser que VBA (plus de macro), comme vous dites, c'est plus propre.
je vous met la dernière version de mon fichier en pièce jointe.


Merci beaucoup de m'avoir aider et guider.

[james68]

FYI : toutes les macros que tu as rédigé peuvent etre convertie en code.
il te suffit de faire enregister sous "module" et tu auras le code VBA de ta macro.
++
bon courage

[james68]

le code de ta macro Mises_à_jours_Formulaire_Recherche

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
 
Option Compare Database
 
'------------------------------------------------------------
' Mises_à_jours_Formulaire_Recherche_MiseAJour
'
'------------------------------------------------------------
Function Mises_à_jours_Formulaire_Recherche_MiseAJour()
On Error GoTo Mises_à_jours_Formulaire_Recherche_MiseAJour_Err
 
    DoCmd.Requery "LstFournisseurs"
    DoCmd.Requery "LstNuances"
    DoCmd.Requery "LstFormes"
    DoCmd.Requery "LstEtats"
    DoCmd.Requery "LstDelais"
    DoCmd.Requery "Sous_Formulaire_Recherche"
 
 
Mises_à_jours_Formulaire_Recherche_MiseAJour_Exit:
    Exit Function
 
Mises_à_jours_Formulaire_Recherche_MiseAJour_Err:
    MsgBox Error$
    Resume Mises_à_jours_Formulaire_Recherche_MiseAJour_Exit
 
End Function

et le code de ta macro Initialisation

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
31
 
Option Compare Database
 
'------------------------------------------------------------
' Initialisation_Initialisation
'
'------------------------------------------------------------
Function Initialisation_Initialisation()
On Error GoTo Initialisation_Initialisation_Err
 
    Forms![Formulaire Recherche]!LstNuances = "0"
    Forms![Formulaire Recherche]!LstFormes = "0"
    Forms![Formulaire Recherche]!LstEtats = "0"
    Forms![Formulaire Recherche]!LstDelais = "0"
    Forms![Formulaire Recherche]!lstFournisseurs = "0"
    DoCmd.Requery "Sous_Formulaire_Recherche"
    DoCmd.Requery "LstFournisseurs"
    DoCmd.Requery "LstNuances"
    DoCmd.Requery "LstFormes"
    DoCmd.Requery "LstEtats"
    DoCmd.Requery "LstDelais"
 
 
Initialisation_Initialisation_Exit:
    Exit Function
 
Initialisation_Initialisation_Err:
    MsgBox Error$
    Resume Initialisation_Initialisation_Exit
 
End Function

[othmane.badri]

Bonjour,

C'est parfait, tout marche nickel (avec quelques modification).

Vraiment Merci James68

[othmane.badri]

Re-Bonjour James68

Comment je fais si je veux que mon sous formulaire me montre directement que les champs remplis.

Merci d'avance

[james68]

Quand tu ouvres ton form, la liste deroulante est calée par defaut sur "0".
tu reprends le code du Case "0" et tu le colles sur l'ouverture du from.
From en mode creation, propriété, evenement "sur ouverture"... generateur de code ...etc
comme ca:

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
 
Private Sub Form_Open(Cancel As Integer)
' mise en forme pour la valeur "0" du LstFormes
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Diametre Int Min].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Diametre Int Max].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Diametre Ext Max].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Diametre Ext Min].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Hauteur Min].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Hauteur max].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Largeur Min].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Largeur Max].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Epaisseur Min].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Epaisseur Max].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Diametre Min].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Diametre max].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Fournisseurs].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Nuances].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Formes].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Etats].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Delais].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Compte FR].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Contact].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Telephone].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Adresse].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Pays].ColumnHidden = False
        Forms![Formulaire Recherche]![Sous_Formulaire_Recherche].Form![Observations].ColumnHidden = False
End Sub

[othmane.badri]

Parfait Parfait Parfait et MERCIIII.

Bonnes FÊTES