If / And - plusieurs conditions

[Kernoz]

Bonjour à tous,

j'ai un soucis avec le code suivant :

Dim i As Long
For i = Range("A65535").End(xlUp).Row To 3 Step -1
If Cells(i, 5) = 1067 And Cells(i, 9) = 13 And Cells(i, 10) = 60 Then Cells(i, 12) = 98
Next i

En effet, il fonctionne lorsque je met 1 "And" mais lorsque je passe à deux conditions ca bloque : " erreur d'exécution '13' Incompatibilité de type "

D'avance merci pour votre aide ... ca doit être tout bête mais la je ne trouve pas 😡

 

[camarchepas]

Re : If / And - plusieurs conditions

Bonsoir ,

Pour moi en Xl 2010 PC pas de problème :

a tout hasard essayes avec des parenthéses :

Sub test()
Dim i As Long
 For i = Range("A65535").End(xlUp).Row To 3 Step -1
 If (Cells(i, 5) = 1067) And (Cells(i, 9) = 13) And (Cells(i, 10) = 60) Then Cells(i, 12) = 98
 Next i
End Sub

 

[Kernoz]

Re : If / And - plusieurs conditions

Bonjour et merci pour ta réponse,

Ca ne marche pas mieux avec les parentheses 🙁

Je ne comprend vraiment pas ce qui ne passe pas :s

 

[camarchepas]

Re : If / And - plusieurs conditions

Cela bug dès le début,

Quel est la valeur de I ?

que contiennent en réalité ces 3 cellules lors du bug ?

Cellules fusionnées, formule , erreur , autres ?

 

[Paf]

Re : If / And - plusieurs conditions

Bonjour à tous

Pas de soucis avec Excel 2003 pour mon jeu d'essai numérique.

A+

 

[Kernoz]

Re : If / And - plusieurs conditions

Solution trouvée ...

un probleme de format sur une cellule au milieu de milliers d'autres ... En tout cas merci pour votre implication.

@+