pb de calcul (somme)

Bonjour,

je cherche à afficher le résultat d'un calcul mais il m'affiche des résultats incohérents...la syntaxe ne doit pas être la bonne.
Je voudrais :
si la cellule Cr de la feuille B a le même contenu que la cellule Fq de la feuille A
alors on ajoute la valeur de la cellule Jq de la feuille A divisée par 1000 à la valeur actuelle de la cellule Lr de la feuille B

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For q = 6 To p For r = 22 To 107   If Worksheets("A").Range("F" & q) = Worksheets("B").Range("C" & r) Then Worksheets("B").Range("L" & r) = Worksheets("B").Range("L" & r) + Worksheets("A").Range("J" & q) / 1000   End If   Next r Next q

---

J'ai aussi essayé :

Code:

---

Worksheets("B").Range("L" & r).FormulaR1C1 = "=SUM(RC,product(Worksheets(""A"").Range(""J"" & q), 1/1000))"

---

mais ça ne fonctionne pas non plus.

Merci pour votre aide.

Qu est ce qui ne marche pas ? que te dis il ?

pour le premier, essaye ce code

Code:

---

1 2 3 4 5 6 7 8 9 10

For q = 6 To p For r = 22 To 107   If Worksheets("A").Range("F" & q) = Worksheets("B").Range("C" & r) Then Worksheets("B").Range("L" & r) = Worksheets("B").Range("L" & r)+Worksheets("A").Range("J" & q) / 1000   End If   Next r Next q

---

pour le deuxieme tu utilise des variables dans une formules excel qui va s'inscrire dans une cellule. Ca ne peux pas marcher comme ca, essaye l'enregistreur de macro

Envoi le message d'erreur ca serait utile

Citation:

---

je cherche à afficher le résultat d'un calcul mais il m'affiche des résultats incohérents...la syntaxe ne doit pas être la bonne.
Je voudrais :
si la cellule Cr de la feuille B a le même contenu que la cellule Fq de la feuille A
alors on ajoute la valeur de la cellule Jq de la feuille A divisée par 1000 à la valeur actuelle de la cellule Lr de la feuille B

---

Tente avec

Code:

---

1 2 3 4 5

... if sheets("A").Cells(F, q) = sheets("B").Cells(c,r) then Sheets("B").Cells(l,r) = (Sheets("B").Cells(l,r) + Sheets("A");Cells(j,q))/1000 end if

---

En fait, il fait un calcul mais pas le bon...
Par exemple, il m'affiche 60,2 au lieu de 200.

Je pensais à une erreur de syntaxe mais c'est peut-être tout simplement dû à d'autres manips que je fais sur la feuille A avant.

J'ai déjà essayé ce que tu me proposes mais ça donnait la même chose.

Merci en tout cas de m'aider.

finalement ça a l'air de fonctionner maintenant...mais je ne comprends pas pourquoi. Bref...

maintenant c'est le "elseif" qui suit qui ne fonctionne pas :

Code:

---

1 2 3

ElseIf Worksheets("A").Range("F" & q) = "truc" Then Worksheets("B").Range("L54") = Worksheets("B").Range("L54") + (Worksheets("A").Range("J" & q) / 1000)

---

Pourrais tu mettre toute ta condition ca pourrait aider?

Quand tu dit que le else if ne fonctionne pas, c'est qu'il te sort un message d'erreur ou que le resultat n'est pas celui attendu?

Voilà la boucle complète.
(Désolée...je débute sur les forums informatiques...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

For q = 6 To p   For r = 22 To 107   If Worksheets("B").Range("F" & q) = Worksheets("B").Range("C" & r) Then Worksheets("B").Range("L" & r) = Worksheets("B").Range("L" & r) + (Worksheets("A").Range("J" & q) / 1000)   ElseIf Worksheets("A").Range("F" & q) = "truc1" Then Worksheets("B").Range("L54") = Worksheets("B").Range("L54") + (Worksheets("A").Range("J" & q) / 1000)   ElseIf Worksheets("A").Range("F" & q) = "truc2" Then Worksheets("B").Range("L98") = Worksheets("B").Range("L98") + (Worksheets("A").Range("J" & q) / 1000)   ElseIf Worksheets("A").Range("F" & q) = "truc3" Then Worksheets("B").Range("L23") = Worksheets("B").Range("L23") + (Worksheets("A").Range("J" & q) / 1000)   End If     Next r Next q

---

Comme tout à l'heure, il me fait un calcul mais pas le bon.
Peut-être faut-il que je sorte les "elseif" de la 2eme boucle "for" ???

Le probleme peut venir d'un peu partout !

Essaie dans un premier temps de ne pas mettre de boucle For, en fixant les valeurs.
Par exemple tu mets q = 10 etc ... pour voir ce qu'il te met.

Sinon as-tu essayé de faire un pas à pas détaillé, tu met un point d'arret dans le code VBA et tu fait F8 pour passer à l'instruction suivante.
Cela te permettra de controler les valeurs de tes variables

Merci pour ton aide ! (le q=10 m'a bien servi).
J'ai réussi !
Il fallait bien sortir les elseif de la 2eme boucle for.

code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

For q = 6 To p   If Worksheets("A").Range("F" & q) = "truc1" Then Worksheets("B").Range("L54") = Worksheets("B").Range("L54") + (Worksheets("A").Range("J" & q) / 1000)   ElseIf Worksheets("A").Range("F" & q) = "truc2" Then Worksheets("B").Range("L98") = Worksheets("B").Range("L98") + (Worksheets("A").Range("J" & q) / 1000)   ElseIf Worksheets("A").Range("F" & q) = "truc3" Then Worksheets("B").Range("L23") = Worksheets("B").Range("L23") + (Worksheets("A").Range("J" & q) / 1000)   Else   For r = 22 To 107 If Worksheets("B").Range("F" & q) = Worksheets("B").Range("C" & r) Then Worksheets("B").Range("L" & r) = Worksheets("B").Range("L" & r) + (Worksheets("A").Range("J" & q) / 1000) End If Next r   End if Next q

---

Avec plaisir !:ccool: