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 🙂

@+