Calcul entre deux cellules différentes à chaque fois

Version imprimable

Bonjour,

J'ai actuellement un UserForm qui m'affiche un formulaire. Après validation du formulaire, les données des champs sont récupérées et stockées dans un classeur Excel.

Il se trouve que j'ai un champs "quantité" et "prix".
Pas de problème pour stocker les données. Je voudrais stocker dans une autre cellule d'une autre colonne le résultat de la multiplication de "quantité" et "prix" et afficher le résultat sur la même ligne du calcul à chaque calcul.

La quantité est stockée automatiquement dans la colonne P et le prix dans la colonne Q (la ligne change à chaque validation de la saisie du formulaire pour le prix et la quantité).

Voici mon code de validation de saisie:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim A, B, D, F, R ' Préselection des colonnes à incrémenter Dim wb As Workbook, sh As Worksheet Set wb = Workbooks("bdd.xls") ' On référence le classeur Set sh = wb.Worksheets(3) ' On référence la feuille sh.Range("A65536").End(xlUp).Offset(1, 0) = Controls("TextBoxFabricant") sh.Range("B65536").End(xlUp).Offset(1, 0) = Controls("TextBoxFournisseur") sh.Range("D65536").End(xlUp).Offset(1, 0) = Controls("TextBoxFacture") sh.Range("F65536").End(xlUp).Offset(1, 0) = Controls("TextBoxReference") sh.Range("P65536").End(xlUp).Offset(1, 0) = Controls("TextBoxQuantite") sh.Range("Q65536").End(xlUp).Offset(1, 0) = Controls("TextBoxPrix") sh.Range("AJ65536").End(xlUp).Offset(1, 0) = Controls("TextBoxNote") Selection.EntireRow.Insert ' On insert une nouvelle ligne
En gros l'idéale serait d'incrémenter automatiquement le calcul: =PRODUIT(P21:Q21), mais en prenant le numéro de la ligne où on incrémente le calcul.

Merci d'avance si vous avez des idées ! :)

12/08/2010, 13h53
jojo86

Je n'ai pas compris où était ton problème...

Tu as ton user form Ok ! qu'est-ce que tu n'arrive pas à faire?

bonjour,

essaye comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim A, B, D, F, R ' Préselection  des colonnes à incrémenter
        Dim wb As Workbook, sh As Worksheet
            Set wb = Workbooks("bdd.xls") ' On référence le classeur
            Set sh = wb.Worksheets(3) ' On référence la feuille
                sh.Range("A65536").End(xlUp).Offset(1, 0) = Controls("TextBoxFabricant")
                sh.Range("B65536").End(xlUp).Offset(1, 0) = Controls("TextBoxFournisseur")
                sh.Range("D65536").End(xlUp).Offset(1, 0) = Controls("TextBoxFacture")
                sh.Range("F65536").End(xlUp).Offset(1, 0) = Controls("TextBoxReference")
                sh.Range("P65536").End(xlUp).Offset(1, 0) = Controls("TextBoxQuantite")
                sh.Range("Q65536").End(xlUp).Offset(1, 0) = Controls("TextBoxPrix")
                sh.Range("R65536").End(xlUp).Offset(1, 0).formular1c1 ="=rc[-1]*rc[-2]"
                sh.Range("AJ65536").End(xlUp).Offset(1, 0) = Controls("TextBoxNote")
        Selection.EntireRow.Insert ' On insert une nouvelle ligne

12/08/2010, 15h31
thomasisajerk

Bonjour !

Il me met une erreur:

Citation:

Erreur d'exécution '438'

Propriété ou méthode non gérée par cet objet

L'erreur se produit sur la ligne que tu as modifiée, merci d'avance !
12/08/2010, 16h05
mayekeul

bizarre, cette ligne

Code:

sh.Range("R65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=RC[-2]*RC[-1]"

fonctionne parfaitement chez moi
12/08/2010, 18h43
thomasisajerk

Je viens de revoir ça, le calcul se fait, mais pas dans la bonne case.
Je souhaiterai que le résultat s'affiche là où le montre la croix violette sur le screen, une idée ?

C'est à cause du nombre au dessus, mais si je peux éviter de le déplacer(c'est le total de la colonne montant).

Merci !
13/08/2010, 08h05
mayekeul

Bonjour,
comme ça cela devrais renvoyer au bon endroit ;)

Code:

sh.Range("Q65536").End(xlUp).Offset(0, 1).FormulaR1C1 = "=RC[-2]*RC[-1]"