Incompatibilité de type

Moulinois · 9 Juin 2008

Bonjour,

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

Code:

    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 · 9 Juin 2008

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 · 9 Juin 2008

Re : Incompatibilité de type

Re,

tototiti2008 à dit:
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 · 9 Juin 2008

Re : Incompatibilité de type

bonjour Moulinois,

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

Code:

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 · 9 Juin 2008

Re : Incompatibilité de type

Re,

Ca marche et ça me va

@+

Incompatibilité de type

Moulinois

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Moulinois

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

Moulinois

XLDnaute Occasionnel

Discussions similaires