Discussion :

[didiermarquant]

Bonjour, j'ai un code Open Office qui m"affiche automatiquement la tranche d'age par rapport à une datefield remplie
Ce code fonctionne parfaitement sur Open Office mais pas sur libre office.

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
REM  *****  BASIC  *****
Sub SelectTranche(oEvent)
Dim AnneeN As Long
Dim Tranche As Long
Dim i As Integer
Dim lbxTranche As Object
 
	AnneeN = left(oEvent.Source.Date,4)
	Tranche = Year(Now) - AnneeN
	Select case Tranche
		case is < 10 
			i = 0
		case is < 13
			i = 1
		case is < 16
			i = 2
		case is < 18
			i = 3
		case else
			i = 4
	End Select
	lbxTranche = theControls(7)
	lbxTranche.SelectItemPos(i,true)
 
End Sub

[Mobydick_62]

Bonjour,
Il faut changer ton code :

Code :

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

AnneeN = left(oEvent.Source.Date,4)

par

Code :

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

AnneeN = oEvent.Source.Date.Year

Cordialement

[didiermarquant]

Voici le code que j'ai refais qui fonctionne à merveille

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
Sub SelectTranche(oEvent)
Dim AnneeN As Long
Dim Tranche As Long
Dim i As Integer
Dim lbxTranche As Object
   If isNumeric(oEvent.Source.Date) Then
      AnneeN = left(oEvent.Source.Date,4)
   Else
      AnneeN = oEvent.Source.Date.Year
   End If   
   Tranche = Year(Now) - AnneeN
   Select case Tranche
      case is < 10
         i = 0
      case is < 13
         i = 1
      case is < 16
         i = 2
      case is < 18
         i = 3
      case else
         i = 4
   End Select
   lbxTranche = theControls(10)
   lbxTranche.SelectItemPos(i,true)
End Sub