Discussion :

[fr.lamy]

Bonjour tout le monde,

je souhaite écrire dans une case excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(D13=1;0;MIN(E13;TRUNC(F13/($B$7*$B$6))))

comme mon excel est en anglais je code en VB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 7).Formula = "=IF(D" & i & "=1,0,MIN(E" & i & ",TRUNC(F" & i & "(/($B$7*$B$6)))))"

avec des virgules au lieu des points virgules

cette ligne bug... et je n'arrive pas à comprendre pourquoi

de plus dans le meme code, les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 6).Formula = "=ROUND(C" & i & "+10*B4*C" & i & "/B2*MAX(0,B7-B3)*B6,2)"

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 8).Formula = "=IF(D" & i & "=1,F" & i & ",F" & i & "-G" & i & "*$B$7*$B$6)"

fonctionnent à merveille...

Merci de votre aide

[David2304]

Bonjour,
Essaye en supprimant la parenthèse avant ta division + une autre à la fin

[Godzestla]

Salut

quand j'ai ce genre de question, je fais l'ane et je procède come suit, et généralement cela fonctionne.

Tu tapes dans ta cellule ton fameux code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=IF(D13=1;0;MIN(E13;TRUNC(F13/($B$7*$B$6))))

Ce qui devrait marcher.

Ensuite, tu démarreg l'enregistreur de macro, tu prends ta cellule en modif par F2, tu confirme le contenu, tu arretes l'enreg de macro et hop dans ModuleX tu as la solution en clair.

Ca marche ?

[casavba]

C'est juste une question de paranthèses.
t'as une parenthèse de plus.