Problème de formule

[Sogood]

Salut la team 🙂
Dites moi svp quel est le problème avec mon code.

If workbooks("ponctualité").sheets("cc").cells(n,"h")=2 then
workbooks("gestion de stock").sheets("menu").cells(b6) - workbooks("ponctualité").sheets("cc").cells(n,"h")*workbooks("gestion de stock").sheets("formules béton").cells(e3)

Merci d'avance
Saw

 

[Pierrot93]

Re : Problème de formule

Bonjour,

peut être ce genre de syntaxe :

cells(b6)

si B6 est une cellule, à remplacer par :

Range("b6")

sans plus de détails difficile de t'en dire plus...

bonne journée
@+

 

[Sogood]

Re : Problème de formule

Merci pour ta réponse Pierro.
Dis moi, quels détails voudrais-tu avoir?

Merci d'avance
Saw

 

[Pierrot93]

Re : Problème de formule

Re,

pas passible sans voir comment les variables sont déclarées / initialisées... enfin si variable il y a.... As tu modifié ton code en fonction de la proposition faite, et l'as tu testé ?

 

[tototiti2008]

Re : Problème de formule

Bonjour Sogood, Bonjour Pierrot 🙂

Ce que Pierrot voulait dire par

sans plus de détails difficile de t'en dire plus...

C'est que ces lignes de code sont complètement hors contexte pour nous
On a ni le bout de fichier associé, ni une explication en français du calcul attendu
Donc, oui, il manque des informations

 

[Sogood]

Re : Problème de formule

Bonsoir,

Merci tout d'abord à Pierrot93 & tototiti2008 pour m'avoir consacré du temps.
L'objectif de ce code est, une fois la ligne saisie automatiquement (ponctualité), chose que j'ai réussis à faire, si la formule correspond à "2" alors on multiplie la quantité de l'onglet ponctualité par la quantité de ciment correspondant à la formule "2" de l'onglet formules béton. Le résultat va être ensuite déduit à la quantité de ciment dans l'onglet Menu.

Merci d'avance
Cordialement
Saw

 

[Pierrot93]

Re : Problème de formule

Bonjour,

pas tout compris dans ton fichier, mais manque peut être la destination du résultat de ton calcul....

If Sheets("Ponctualité").Cells(n, "h") = 2 Then
    Sheets("NomFeuille").Range("nX").Value = Sheets("Menu").Range("B6") - Sheets("Ponctualité").Cells(n, "h") * Sheets("Formules Béton").Range("E3")
End If

bonne journée
@+

 

[Sogood]

Re : Problème de formule

Salut Pierrot
Le code ne fonctionne pas 🙁
La feuille Menu m'informe sur l'état de stock de mon ciment qui est une des matières premières.
Je souhaiterais qu'il diminue en fonction de la fabrication de béton dans l'onglet ponctualité.
À savoir qu'il y'a 15 formules de béton qui sont composées en ciment à différente quantité.


Thks
Saw

 

[Pierrot93]

Re : Problème de formule

Re,

Le code ne fonctionne pas

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ? as tu bien modifié le nom de la feuille et la référence de cellule ?

 

[Sogood]

Re : Problème de formule

J'ai comme message:
Erreur d'execution 1004
Erreur définie par l'application ou par l'objet

Je ne comprend pas trop qu'elle modification effectuer mis à part la première ligne à laquelle j'ai ajouté ".value"

Thks

 

[Pierrot93]

Re : Problème de formule

Re,

Sheets("NomFeuille").Range("nX").Value

le nom de la feuille et la référence de cellule sont des exemples à adapter à ton classeur....

 

[Sogood]

Re : Problème de formule

J'ai fait la modification et j'ai comme message :
Erreur d'exécution 9
L'indice n'appartient pas à la sélection

Mon code:
If sheets("ponctualité").range(n,"h").value=2 then
sheets("menu").range("b6")-sheets("ponctualité").range(n,"g").value*sheets("formules béton").range("e3")

 

[Pierrot93]

Re : Problème de formule

Re,

comme indiqué au post #7 tu ne donnes pas la cellule de destination du résultat... et codé ainsi, il manque un "end if"....

 

[Sogood]

Re : Problème de formule

Mon new code est le suivant:

If sheets("ponctualité").range(n,"h").value=2 then
Sheets("menu").range("b6")=sheets("menu").range("b6")-sheets("ponctualité").range(n,"g").value*sheets("f ormules béton").range("e3")
End if

Toujours le même message 🙁
Erreur d'exécution 9
L'indice n'appartient pas à la sélection

 

[Pierrot93]

Re : Problème de formule

Re,

ceci n'est pas valide...

range(n,"g").