Incompatibilité de type

[Moulinois]

Bonjour,

J'ai ce code qui me sert à fragmenter un fichier en petits :

    Numeros = UserForm1.Text_Num.Value
    
    Indiv = Split(Numeros, ",")

For i = LBound(Indiv) To UBound(Indiv)
    k = 0
    N = 0

        For Each Cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
            [COLOR="Red"]If Cel = CDbl(Indiv(i)) Then[/COLOR] 'Teste la valeur de l'OF en colonne A
                N = Cel.Row 'Donne la dernière ligne correspondant à ce que l'on cherche
                k = k + 1 'Servira pour calculer la première ligne correspondant
            End If
        Next

La ligne en rouge fonctionne quand Numeros est un numéro mais pas quand c'est une chaîne de caractères


Merci pour votre aide.

 

[tototiti2008]

Re : Incompatibilité de type

C'est logique Moulinois, CDbl convertit en Double (nombre décimal) et s'il n'y arrive pas, il génère une erreur...

 

[Moulinois]

Re : Incompatibilité de type

Re,

C'est logique Moulinois, CDbl convertit en Double (nombre décimal) et s'il n'y arrive pas, il génère une erreur...

Je suis bête
..............mais du coup, ça ne marche plus si j'ai un nombre

 

[mromain]

Re : Incompatibilité de type

bonjour Moulinois,

Ce que tu peux faire, c'est tester si c'est un nombre

If IsNumeric(<valeur de la cellule>) Then
[INDENT]'c'est un nombre[/INDENT]
Else
[INDENT]'ce n'est pas un nombre[/INDENT]
Endif

A+

 

[Moulinois]

Re : Incompatibilité de type

Re,

Ca marche et ça me va

@+