Discussion :

[fabien59420]

Bonjour, voila j'ai un tableau et je voudrais figer la ligne de prix donc j'ai fait comme code la quantité * prix unitaire mais en faite ce qu'il me fait quand j'exécute la macro pour la première ligne ça fonctionne il prend bien la quantité * prix unitaire mais pour la deuxième ligne il fait la quantité de la deuxième ligne * quantité de la première ligne or je voudrais qu'il fasse la quantité de la deuxième ligne * prix unitaire

comment faire?

[J.Michel]

Juste une question: Pöurquoi utiliser une macro ? des formules toutes simple feraient l'affaire dans ce cas

[fabien59420]

oui mais je suis en stage et ils veulent tout automatisé

[J.Michel]

Ok.
Tu peux nous montrer ton code pour analyser un peu d'où vient l'erreur.

[fabien59420]

Code :

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

Feuil2.Cells(nb_ligne + 3, 19) = Feuil2.Cells(nb_ligne + 3, 8) * Feuil2.Cells(nb_ligne + 2, 8) + Feuil2.Cells(nb_ligne + 3, 9) * Feuil2.Cells(nb_ligne + 2, 9) + Feuil2.Cells(nb_ligne + 3, 10) * Feuil2.Cells(nb_ligne + 2, 10) + Feuil2.Cells(nb_ligne + 3, 11) * Feuil2.Cells(nb_ligne + 2, 11) + Feuil2.Cells(nb_ligne + 3, 12) * Feuil2.Cells(nb_ligne + 2, 12) + Feuil2.Cells(nb_ligne + 3, 13) * Feuil2.Cells(nb_ligne + 2, 13) + Feuil2.Cells(nb_ligne + 3, 14) * Feuil2.Cells(nb_ligne + 2, 14) + Feuil2.Cells(nb_ligne + 3, 15) * Feuil2.Cells(nb_ligne + 2, 15) + Feuil2.Cells(nb_ligne + 3, 16) * Feuil2.Cells(nb_ligne + 2, 16) + Feuil2.Cells(nb_ligne + 3, 17) * Feuil2.Cells(nb_ligne + 2, 17) + Feuil2.Cells(nb_ligne + 3, 18) * Feuil2.Cells(nb_ligne + 2, 18)

[fabien59420]

c'est les ligne 2 que je voudrais figer

[J.Michel]

A quoi correspond Nb_Ligne ?
Si je comprend bien tu as une ligne qui contient les prix unitaires et une ligne qui contient les quantités
Tu travailles sur les colonnes H à R et tu met ton résultat global en colonne S

est-ce bien ça ?

[fabien59420]

oui c ça et je voudrais figer la ligne 2 des colonnes H à R pour qu'il prenne toujours le prix qui se trouve sur la ligne 2

[J.Michel]

Voilà une procédure qui semble fonctionner.
Il faut donner la valeur de Nb_Ligne
et réinitialiser la valeur de Feuil2.Cells(L_Qte, 19)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub CalcPrix()
    Dim Nb_Ligne            '???
    Dim L_Prix As Integer   'Ligne des prix
    Dim L_Qte As Integer    'Ligne des quantités
    Dim I As Integer        'Index de boucle For
 
 
    'On fixe les valeur de lignes
    L_Prix = Nb_Ligne + 2
    L_Qte = Nb_Ligne + 3
 
    'On calcule sur les colonnes 8 à 18
    For I = 8 To 18
        Feuil2.Cells(L_Qte, 19) = Feuil2.Cells(L_Qte, 19) + _
                                 (Feuil2.Cells(L_Prix, I) * Feuil2.Cells(L_Qte, I))
    Next I
End Sub

[fabien59420]

ça fonctionne pas ça me fait toujours la même chose

ça me met cela :

0,65 prix total
DECATHLON 10 6,5

DECATHLON 13 130

0,65 c mon prix unitaire

et donc le 130 il me fait 13*10 or je voudrais qu'il me faite 13*0,65

[J.Michel]

Le prix unitaire est-il toujours fixé dans la même et unique cellule ?
Si c'est le cas il faut une variable unique pour le prix unitaire et faire tous les calculs avec cette unique variable.

Tu peux mettre ton fichier en pièce jointe pour mieux comprendre le problème.

[fabien59420]

non il est jamais le même mais bon pas grave avec juste la formule excel ça leur convient

merci

[J.Michel]

Si tout est ok alors pense à cliquer sur

[wilfried_42]

Bonjour à tous

Voici une macro avec ce que j'ai compris (merci à j.michel d'avoir bien debrousaillé)

Code :

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

1
2
3
4
5
6
7
8
9
sub calcul()
      dim i as integer, j as integer ' i=ligne, j = colonne
      for i = 3 to feuil2.range("A65536").end(xlup).row
           feuil2.cells(i,19) = 0
           for j = 8 to 18
               feuil2.cells(i,19) = feuil2.cells(i,19) + (feuil2.cells(i,j) * feuil2.cells(2,j))
           next j
      next i
end sub

[fabien59420]

ça fonctionne mais il m'efface automatiquement la valeur du dessus

[wilfried_42]

re:

Bizarre ca, tu n'as pas d'autre macro ? peux tu envoyer ton classeur ?

@ te lire

[fabien59420]

ben j'arrive pas à l'envoyer

mais bon c'est pas grave, avec la formule excel, ça leur convient

[wilfried_42]

re:

et quelle formule as tu mis ?

Code :

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

=SOMMEPROD($E3:$S3;$E$2:$S$2)

tirer la formule vres le bas

[fabien59420]

ben avec la formule excel çà fonctionne mais je voulais voir si on pouvez le faire en exécutant la macro mais avec la formule çà marche donc c'est le principal