Soucis avec na

[deeper]

Bonjour à tous,

J'ai un soucis lorsque je teste le contenu d'une cellule par macro :

If (Cells(i, 8).Value > 0 And Cells(i, 8).Value < 7) Or IsError(Cells(i, 8).Value) Then

Et quand j'ai #n/a (ce qui correspond à mon iserror()) j'ai un message d'erreur qui me dit incompatibilité de type...

Merci d'avance si vous voyez ...

 

[porcinet82]

salut deeper,

Joint un petit fichier avec ta macro entière et un petit exemple ca sera plus simple

@+

 

[deeper]

Sub TestValeurCellule
For i = 1 to 10
If (Cells(i, 1).Value > 0 And Cells(i, 1).Value < 7) Or IsError(Cells(i, 1).Value) Then
Select Case Cells(i, 8).Value
Case 1
Rubrique = 'rub1'
Case 2
Rubrique = 'rub2'
Case 3
Rubrique = 'rub3'
Case 4
Rubrique = 'rub4'
Case 5
Rubrique = 'rub5'
Case 6
Rubrique = 'rub6'
End Select
End If
End sub