je vous expose mon probleme, je dois effectuer une action a la seule condition que la valeur d une cellule soit comprise entre 00 et 99 mais je bloque sur la condition qui a mon avis est toute bete
If Sheets("récupération listes").Cells(i, 12).Value ????? Then
j ai tenté pas mal de trucs a la place des mes ????? mais rien n y fait ca plante a chaque foi meme avec une double condition
voila une partie du fichier, la feuille récupération liste est actualisée régulierement via un fichier texte et le but est de ne recopier les lignes du style
je pensais pour cela tester la valeur de la colone 7 qui sera toujours comprise entre 00 et 99
l autre petit probleme qui se pose a moi c'est que apparament, les fichiers importer ne se terminent pas tous par une double fleche comme je l avais prévu du coup je rajoute pour le moment une fin de fichier manuellement
est ce que vous auriez une alternative a ce petit incionvénient ?
je te remerci pour cette réponse rapide néanmoin, je ne sais pas pourquoi, j ai testé ca hier soir et ca ne marchais pas, je l ai retesté avant que tu poste et ca passais nikel,
Petite routine pour déterminer si un nombre est entier ou pas, on doit pouvoir faire mieux par l'utilisation d'une fonction mais je n'ai pas trouvé !!!
Si ca peut servir.
Code:
Sub test()
Dim MonNbre1 As Double, MonNbre2 As Long
MonNbre1 = Range("A1").Value
MonNbre2 = Round(MonNbre1, 0)
If MonNbre1 = MonNbre2 Then
MsgBox "OK nombre entier"
Else
MsgBox "Nombre avec décimale"
End If
End Sub