Salut à tous et à toutes !!!

J'  ai besoin d'aide pour formuler une idée qui reste lamentablement sur le papier

Voilà à partir d'une cellsje compare à une cells deux lignes en dessous suivant le résultat j'affecte une valeur ou non à la cells à côté ....
Si cells(i,"j") = 1 ou 3 ou  5 ou 6 et cells(i+2,"j")=2 ou 4 alors
cells(i+1,"k")= valeur
sinon  cells(i+1,"k")= ""

Autrement voilà mon code

If Cells(i, "j").Value = 1 Or Cells(i, "j").Value = 3 Or Cells(i, "j").Value = 5 Or Cells(i, "j").Value = 6 And Cells(i + 2, "j").Value = 2 Or Cells(i + 2, "j").Value = 4 Then
Cells(i + 1, "k").Value = ""
Else:  Cells(i + 1, "k").Value = sheets("1").Cells(12, "h").Value
End If

If Cells(i, "j").Value = 2 Or Cells(i, "j").Value = 4 And Cells(i + 2, "j").Value = 1 Or Cells(i + 2, "j").Value = 3 Or Cells(i + 2, "j").Value = 5 Or Cells(i + 2, "j").Value = 6 Then
Cells(i + 1, "k").Value = ""
Else: Cells(i + 1, "k").Value = sheets("1").Cells(12, "h").Value

End If


Merci d'avance

salut,
umm.... "somme en croix incrémentée" ?
sacrée question ^^

Salut,

Il faut que tu remplaces tes "j" par 10, tes "k" par 11, ...

Si tu mets un nombre comme premier paramètre de Cells, le deuxième doit en être un aussi.

Il faut de plus placer des parenthèses :


If (Cells(i, 10).Value = 1 Or Cells(i, 10).Value = 3 Or Cells(i, 10).Value = 5 Or Cells(i, 10).Value = 6) And (Cells(i + 2, 10).Value = 2 Or Cells(i + 2, 10).Value = 4) Then
Cells(i + 1, 11).Value = ""
Else
Cells(i + 1, 11).Value = sheets(1).Cells(12, 8).Value
End If


Au niveau des parenthèses, il s'agit bien d'une série de condition ET d'une autre série.

(condition1 OU condition2) AND (condition3 OU condition4)




Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le

Il y a toujours des problèmes les conditions sont peut etre éronnées
il y a des cas qui ne sont pas réalisées
C'est la magie de la prog ou quoi !!!