A
albert
Guest
bonsoir à tous et à toutes, forumiens, forumiennes,
avec cette formule excel,
'=SI(AZ782<>"";SI(AZ782-DECALER(AQ782;P782;-38);SI(P782<R782;AZ782-DECALER(AQ782;P782;-38);""));"")
je tente de traduire en vba.
Dans la pièce jointe, il y a une tentative d'écriture de code;
Dans ce code vba, après Then, je dois mettre une valeur dans une cellule. Je suppose qu’il s’agit de Cells(782, 43) = 0, puisque à la fin des conditions dans la formule excel, il y a ;"")
ce qui donne :
If Cells(782, 48) <> 0 Then
Cells(782, 43) = 0
ElseIf Cells(782, 48) - Cells(782, 43).Offset(Cells(782, 16), -38) Then
Cells(782, 43) = 0
ElseIf Cells(782, 16) < Cells(782, 18) Then
Cells(782, 43) = 0
ElseIf Cells(782, 48) - Cells(782, 43).Offset(Cells(782, 16), -38) Then
Cells(782, 43) = 0
End If
---
En AQ782, j’obtiens 0.00, alors que je devrais avoir –3, comme en BA782
----
mille mercis d'avance à qui saura me sortir de là (pour trouver -3 en AQ782)
...sans vouloir abuser...
(encore un drôle de challenge)
albert
avec cette formule excel,
'=SI(AZ782<>"";SI(AZ782-DECALER(AQ782;P782;-38);SI(P782<R782;AZ782-DECALER(AQ782;P782;-38);""));"")
je tente de traduire en vba.
Dans la pièce jointe, il y a une tentative d'écriture de code;
Dans ce code vba, après Then, je dois mettre une valeur dans une cellule. Je suppose qu’il s’agit de Cells(782, 43) = 0, puisque à la fin des conditions dans la formule excel, il y a ;"")
ce qui donne :
If Cells(782, 48) <> 0 Then
Cells(782, 43) = 0
ElseIf Cells(782, 48) - Cells(782, 43).Offset(Cells(782, 16), -38) Then
Cells(782, 43) = 0
ElseIf Cells(782, 16) < Cells(782, 18) Then
Cells(782, 43) = 0
ElseIf Cells(782, 48) - Cells(782, 43).Offset(Cells(782, 16), -38) Then
Cells(782, 43) = 0
End If
---
En AQ782, j’obtiens 0.00, alors que je devrais avoir –3, comme en BA782
----
mille mercis d'avance à qui saura me sortir de là (pour trouver -3 en AQ782)
...sans vouloir abuser...
(encore un drôle de challenge)
albert