Discussion :

[MCarole]

Bonjour,

j'ai créer moi même cette fonction:

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
32
33
34
35
Sub prjArchive(TAUX_CHANCE)
 
  Select Case Me.Column(1)
   Case 100
        Me.ARCHIVE = -1
        Me.Étiquette111.Visible = True
        Me.ARCHIVE.Visible = True
        Me.Étiquette109.Visible = True
        Me.Étiquette110.Visible = False
        Me.CONCURRENT.Visible = False
        Me.NO_CDE_MGE.Visible = True
        MsgBox "Merci de remplir le numero de commande"
 
   Case 0
        Me.ARCHIVE = -1
        Me.Étiquette111.Visible = True
        Me.Étiquette109.Visible = False
        Me.ARCHIVE.Visible = True
        Me.Étiquette110.Visible = True
        Me.CONCURRENT.Visible = True
        Me.NO_CDE_MGE.Visible = False
        MsgBox "Merci de remplir le nom du concurrent"
 
   Case Else
        Me.ARCHIVE = 0
        Me.ARCHIVE.Enabled = True
        Me.ARCHIVE.Locked = True
        Me.Étiquette111.Visible = False
        Me.ARCHIVE.Visible = False
        Me.Étiquette110.Visible = False
        Me.CONCURRENT.Visible = False
 
    End Select
 
End Sub

et ensuite je dois l'appeler ici:

Code :

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

1
2
3
Private Sub CA_CHANCE_AfterUpdate()    
   prjArchive
End Sub

le souci c'est que sa me met une erreur de compilation (sur la ligne rouge) qui me dit : Argument non facultatif.

Est ce que quelqu'un aurait une idée d'où cela peut venir ??

Merci d'avance.

[julio02200]

C quoi ton Ca_Chance ?

[Lou Pitchoun]

Salut,
L'erreur est simple, ta fonction demande un argument TAUX_CHANCE (dont tu devrais définir le type exemple :

Code :

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

Sub prjArchive(TAUX_CHANCE As Variant)

Et quand tu appelles ta fonction tu n'y mets pas d'argument.

Code :

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

prjArchive(Argument)

[MCarole]

CA_CHANCE est une liste deroulante qui contient mes taux de chance (0,5,10 ...)
La liste deroulante est sur une requête et contient donc, mon CA_CHANCE, TAUX_CHANCE, DESCRIPTION. mais dans ma liste deroulante je ne fais apparaitre que TAUX_CHANCE.

[FreeAccess]

Bonjour,
Sauf erreur de ma part, mais comment tu passe ton argument TAUX_CHANCE.

Code :

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

1
2
3
Private Sub CA_CHANCE_AfterUpdate()    
   prjArchive(....)
End Sub

[guigui5931]

ça me parait logique, ta fonction prend un paramètre (TAUX_CHANCE) et quand tu l'appelle tu ne lui donne pas le paramètre (ou argument) qui est non facultatif comme te le rapelle l'erreur

[Lou Pitchoun]

Déclaration fonction

Code :

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

Sub prjArchive(TAUX_CHANCE As integer)

Appel de fonction

Code :

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

prjArchive(Me.Maliste(N°Colonne))

Regarde le numéro de colonne correspondant à la valeur Taux de chance

[MCarole]

Merci beaucoup

Seulement maintenant en suivant les consignes de Kikof,
j'ai l'erreur incompatible de type sur la même que la premiére erreur.

[Lou Pitchoun]

Quel est le type de Taux de chance ??

[MCarole]

c'est du numerique

[keita]

Bonjour
petite remarque:

Code :

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

1
2
3
Sub prjArchive(TAUX_CHANCE)
 
  Select Case Me.Column(1)

ne faudrait il pas ecrire:

Code :

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

Select Case Me.MaZoneDeListeDeroulante.Column(1)

Et puis attention à la colonne visée; ça pourrait etre à l'origine de ton erreur sur le type. la 1ere colonne est column(0), la 2è column(1) ainsi de suite; vise donc la bonne colonne.
A+