Bonjour, après de long mois d'abscence je vois que ce forum est toujours aussi actif!
Voici mon problème, j'essayes de convertir un formule en code VBA de façon à l'intégrer dans un module.
La premiere fontionne, voici celle qui me pose problème
=SI(OU(J5<=0;J5="");"";J5-P5)
et voici le module que j'ai écrit
D'avance merci a qui m'aidera
Gilbert
Voici mon problème, j'essayes de convertir un formule en code VBA de façon à l'intégrer dans un module.
La premiere fontionne, voici celle qui me pose problème
=SI(OU(J5<=0;J5="");"";J5-P5)
et voici le module que j'ai écrit
D'avance merci a qui m'aidera
Gilbert
Code:
Dim I As Integer, Déb As Integer, Fin As Integer
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
With Sheets("Ventes")
Déb = 5
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
For I = Déb To Fin
.Cells(Déb, 16).FormulaR1C1 = "=r" & Déb & "c15 * 1.196"
.Cells(Déb, 17).FormulaR1C1 = "=if(or(r" & Déb & "c10 <=0;" & "r" & Déb & "c10 =""""" & ");"""";" & "r" & Déb & "c16-" & "r" & Déb & "c10)"
Déb = Déb + 1
Next
End With