Discussion :

[Aladin_23]

Bonjour le forum
j' ai une fonction de decompte jours et je bute sur une mauvaise saisi de code
voici la 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
Function DécompteJONF(DatDeb, datFin) As Integer
Dim jMin As Variant
Dim jMax As Variant
Dim jx As Variant
Dim jo As Variant
Dim jRes As Variant
 
jMin = DatDeb + 1
jMax = datFin = -1
For jx = jMin To jMax
If Not lsDim(jx) Then
 jo = jo + 1
End If
Next
 jRes = jo(Me.ListeJoursFER.ItemsSelected.Count)
If lsVen(DatDeb) Then
jRes = jRes + 1
End If
DécompteJONF = jRes
 
End Function

Mon pb vien de la lige suivante, j' ai une mauvaise interpretaion de Me.

Code :

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

 jRes = jo(Me.ListeJoursFER.ItemsSelected.Count)

Merci d' avance pour toute aide
Aladin

[LE VIEUX]

bonjour,
je ne vois pas trop le but de ton code bien sur mais la syntaxe pour avoir le nombre d'items sélectionné dans ta ZDL ListeJoursFER c'est plutôt :

Code :

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

Nbre = Me.ListeJoursFER.ItemsSelected.Count

[Aladin_23]

Bonjour LEVIEUX et le forum
rMerci d' avoir repondu, J' ai resolu mon pb en faisant

Code :

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

jRes = jo - Me.ListeJoursFER.ItemsSelected.Count

Aladin