Discussion :

[Renardo]

bonjour
voila j'ai un petit souci avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub selec()
Dim i As Integer, strlargeur As Variant
Dim strCritere As Variant
 For i = 0 To Me.Liste2.ListCount - 1
    strlargeur = Me.Liste2.Column(0, i)
    strCritere = "[larg]=" & strlargeur
    If IsNull(DLookup("[larg]", "table2", strCritere)) 'ligne surligner
       Me.Liste2.Selected(i) = False
    Else
       Me.Liste2.Selected(i) = True
    End If
Next
End Sub

ce code fonctionne tres bien tant que j'ai des largeurs fixe mais si j'ai une largeur avec une virgule exemple 137,5
j'ai droit a ce message d'erreur (voir piece jointe)
merci d'avance pour votre aide

[Invité]

Bonjour

Essayes un point au lieu de la virgule, tu es dans une syntaxe AngloSaxonne, et c'est le point le séparateur décimal.

Un petit Replace devrait faire l'affaire.

Philippe

[Renardo]

merci Philippe j'ai suivi ton conseil et ça fonctionne