Incompatibilité de type avec "INSTR()"

Version imprimable

bonjour,

j'ai une erreur icompatibilité de type sur cette ligne :

Code:

sst = (InStr(sss, x, 0))

Voici le code qui pose problème sachant que le contenu des variables est bon.

Code:

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
    Dim Nbfiltre As Integer
 
    Dim LesColonnes As Variant
        LesColonnes = Array("A", "C", "D")
 
    Dim ValFiltre As Variant
        ValFiltre = Array("TxtFiltreDesignation", "TxtFiltreMarque", "TxtFiltreReference")
 
    Const StartLine = 0     'Ligne de démarrage du tableau
 
    'Const vbTextCompare = 1            
 
    Dim sss As String
    Dim sst As Integer
    Dim x As String
 
 
    '---
    For NbLigne = 1 To Plage.Rows.Count
        '--- Cherche si la ligne peut être utilisée
        For FiltreID = 0 To UBound(ValFiltre)
 
            sss = Range(LesColonnes(FiltreID) & (NbLigne + StartLine)).Value
            Debug.Print sss; " ("; Controls(ValFiltre(FiltreID)).Value; ")",
 
            x = (Controls(ValFiltre(FiltreID)).Value)
            sst = (InStr(sss, x, 0))   '<<<<<<<<<<<<<<<<<<<<<<
 
        Next FiltreID
 
    Next NbLigne

Fonctionne sans la comparaison de type. Mais dès que je le demande, il y a erreur.

Merci de vos lumières.

ESVBA

24/11/2010, 14h57
mercatog

Code:

sst = InStr(1,sss, x, 0)
24/11/2010, 18h59
ESVBA

bonsoir Mercatoq, le forum

Bingo :ccool:

une heure de perdue...

ça m'apprendra à ne pas voir faire comme d'habitude avec un "UCASE()". et à ne pas lire complétement l'aide : "Start" est facultatif mais

Citation:

start Facultatif. Expression numérique qui définit la position de départ de chaque recherche. Si cet argument est omis, la recherche commence au premier caractère. Si l'argument start contient une valeur de type Null, une erreur se produit. L'argument start est obligatoire si l'argument compare est indiqué.

Merci.

ESVBA