Discussion :

[Gebudi.]

Bonjour, j'ai écrit un code qui permet d'ajouter des valeurs dans une liste contenant comme valeur une colonne d'une table. Je veux en fait ajouter des valeurs pour éviter les "trous", que dans ma liste il n'y ait que des valeurs qui se suivent.
Le problème c'est que j'ai une incompatibilité de type sur min et max et que les valeurs dans ma liste sont bien des entiers, j'ai essayé avec des double mais ça fait pareil:

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
 
Sub AjoutVal(Valeur As Integer, Liste As Object)
Dim min As Integer
Dim max As Integer
Form_Frm_Anes.Sfrm_Donnees_Anes.SetFocus
Dim i As Integer
min = Liste.ItemData(i)
max = Liste.ItemData(i)
For i = 1 To Liste.ListCount
    If Liste.ItemData(i) < min Then
        min = Liste.ItemData(i)
    ElseIf Liste.ItemData(i) > max Then
        max = Liste.ItemData(i)
    End If
Next i
If Valeur < min Then
    While min - Valeur >= 1
        DoCmd.GoToRecord , , acNewRec
        Liste.Value = min - 1
        min = min - 1
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        Liste.Requery
    Wend
ElseIf Valeur > max Then
    While Valeur - max >= 1
        DoCmd.GoToRecord , , acNewRec
        Liste.Value = max + 1
        max = max + 1
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        Liste.Requery
    Wend
End If
End Sub

[cafeine]

j'aurais plutôt tenté avec le type Long ...

[Gebudi.]

J'ai essayé aussi... mais idem...

[Gebudi.]

Personne n'a d'idée sur le type d'un élément itemdata?

[hocine]

Salut,
je crois que e problème vien de l'initialisation de min et max

Code :

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

1
2
3
 
min = Liste.ItemData(1) 
max = Liste.ItemData(1)

Bonne chance.
Merci.

[Gebudi.]

Non ça vient pas de là, j'ai rajouté i=0 avec ces deux lignes, c'est vraiment un problème d'incompatibilité de type.

[hocine]

Salut,
de quel type est votre champ dans la table?
Bonne chance.
Merci