Discussion :

[thomasisajerk]

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 :

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

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 !

[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?

[mayekeul]

bonjour,

essaye comme ça

Code :

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

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

[thomasisajerk]

Bonjour !

Il me met une erreur:

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 !

[mayekeul]

bizarre, cette ligne

Code :

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

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

fonctionne parfaitement chez moi

[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 !

[mayekeul]

Bonjour,
comme ça cela devrais renvoyer au bon endroit

Code :

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

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