Bonjour,
J'ai ce code qui me sert à fragmenter un fichier en petits :
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.
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
Merci pour votre aide.