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
Partager