Formule en VBA

[tactic6]

Bonjour tout le monde

J'essaie d'écrire cette formule

=SI(I18<>"";H18*((100-J18)/100)*I18;"")

qui se trouve dans mon tableau dans un code VBA
j'ai donc écrit

FormulaLocal = "=SI(I" & u & "<>"""";H" & u & "*((100-J" & u & ")/100*I" & u & ";"""")"

mais ça ne marche pas
quelqu'un pourrait corriger ma formule SVP
En vous remerciant je vous souhaite à tous un bon Week End

Edit voici le bout de code complet

For u = 15 To 50
      If IsEmpty(CellS(u, 11)) Then
      CellS(u, 11).FormulaLocal = "=SI(I" & u & "<>"""";H" & u & "*((100-J" & u & ")/100*I" & u & ";"""")"
      End If
    Next

Le but recherché est de calculer un montant en "K" en fonction d'un Nombre en "I" et d'une remise en "J"

 

[Guest]

Re : Formule en VBA

Bonjour,

Manquait une parenthèse.
"=IF(I" & u & "<>"""",H" & u & "*((100-J" & u & ")/100)*I" & u & ","""")"

A+

 

[tactic6]

Re : Formule en VBA

Exactement
Je t'en remercie

 

[tactic6]

Re : Formule en VBA

Et ceci comment l'écrireriez vous ??

=SI(SOMME(O54>0);SOMME(N53-J55);"")

 

[Guest]

Re : Formule en VBA

Bonjour,

Et toi comment l'écrirais-tu? C'est ça l'important. On est sur un forum d'entraide pas de production de 'tout cuit"!

Place ta formule dans une cellule et garde ta cellule sélectionnée.
Dans l'editeur de Macro fait CTRL+G
Dans la fenêtre excecution tu tapes: ?activecell.formula et tu valide par ENTREE
Tu verras ta formule écrite,
A toi d'adapter l'écriture avec tes variables.
Vu ce que tu as fait précédement tu devrait t'en sortir.
A+

 

[tactic6]

Re : Formule en VBA

Encore merci j'en apprend une autre

 

[tactic6]

Re : Formule en VBA

Re
Voici donc ce que je sorts de la marmite

CellS(6, 53).FormulaLocal = "=SI(SUM(O" & 54 & ">0),SUM(N" & 53 & ")-(J " & 55 & ")),"""")"

Mais ç'est pas à point
Je cherche à écrire la formule en "F53" d'où le "CellS(6, 53)"

 

[Guest]

Re : Formule en VBA

Re,

Là tu mélanges FormulaLocal et Formula.
FormulaLocal: 'SI'
Formula= 'IF';
FormulaLocal: 'SOMME'
Formula: 'SUM'
FormulaLocal: ';'
Formula: ','

A+

 

[tactic6]

Re : Formule en VBA

Pfiou j'aurais jamais trouvé un truc comme ça
je teste
encore merci

 

[tactic6]

Re : Formule en VBA

Voici donc la formule corrigée

CellS(6, 53).FormulaLocal = "=SI(SOMME(O" & 54 & ">0);SOMME(N" & 53 & "-J " & 55 & ");"""")"

Mais c'est pas bon
Une piste ?

 

[Guest]

Re : Formule en VBA

Re,

Décomposée dans une cellule ta fonction donnes ceci:
=SI(SOMME(O54 >0);SOMME(N53-J55);"")

Somme(N53-J55) n'a pas beaucoup de sens!

A+

 

[Guest]

Re : Formule en VBA

RE,

Un truc:

Sub truc()
    Dim formule As String
    formule = "=SI(SOMME(O? >0);SOMME(N#-J!);"""")"
    formule = Replace(Replace(Replace(formule, "?", "54"), "#", "53"), "!", "55")
    Debug.Print formule
End Sub

A+

 

[tactic6]

Re : Formule en VBA

Oui en effet
si en O54 je suis >0
alors F53 devient la soustraction de N53 à J55
Avec ma formule j'ai une erreur 1014

OUPS pas rafraichit
je regarde un peu ton code mais je ne le comprends pas trop
je vais essayer
merci et bon app

 

[Guest]

Re : Formule en VBA

Bonjour,

Le Truc Détaillé et commenté:

Sub truc()
 
Dim formule As String
Dim i As Long
 
'La formule telle quelle apparaît dans une cellule en remplaçant
'les numéros de ligne par des caractères distinctifs
 
formule = "=SI(O?>0;N#-J!;"""")"
 
'En partant de 1 à 10
For i = 1 To 10
 
'Remplacer les caractères distinctifs de la formule par leur équivalent ligne (53+i), 52+1,54+1
formule = Replace(Replace(Replace(formule, "?", 53 + i), "#", 52 + i), "!", 54 + i)
 
'Affiche la formule dans la fenêtre execution pour contrôle
'a supprimer quand tout est ok
Debug.Print formule
 
'Mettre la formule dans les cellules idoines
Cells(i, 1).FormulaLocal = formule
 
Next
End Sub

La ligne de remplacement des caractères par l'incrémentation de la variable i est un raccourci équivalent à :

formule = Replace(formule, "?", 53 + i) 'Remplacer ? par 53+i
formule = Replace(formule, "#", 52 + i) 'Remplacer # par 52+i
formule = Replace(formule, "!", 54 + i) 'Remplacer ! par 54+i

A+

 

[tactic6]

Re : Formule en VBA

Bonjour
Merci pour tes explications, en attendant j'ai réussi à créer la formule qui va bien avec l'enregistreur comme tu me l'avais conseillé précédemment
Bonne soirée