Discussion :

[apt]

Bonjour à tous,

Dans un tableau, qui contient N° d’articles, désignation, prix unitaire, quantité, total par article, j’aimerais intégrer le calcul du total par article = prix unitaire * quantité.

A la fin du tableau, j’aurais besoin de cumuler tout les totaux déjà calculés.

Une approche ?

Merci d’avance.

[QuestVba]

Bonjour,

Voilà un essai. Il faut placer le curseur dans le tableau et il calcule tous les sous-totaux et le total quel que soit le nombre de lignes.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub calcul()
 
Dim Lig As Byte
Dim Col As Byte
Dim PU As Long
Dim Qu As Long
Dim Stot As Long
Dim Tot As Long
 
' Nblignes et Nbcolonnes
    Lig = ActiveDocument.Tables(1).Rows.Count
    Col = ActiveDocument.Tables(1).Columns.Count
 
For i = 2 To Lig - 1
' récupération du Prix Unitaire
    PU = NetText(ActiveDocument.Tables(1).Cell(i, 3).Range.Text)
' récupération de la Quantité
    Qu = NetText(ActiveDocument.Tables(1).Cell(i, 4).Range.Text)
' Stot = sous total de la ligne
    Stot = PU * Qu
' calcul au fur et à mesure du Total
    Tot = Tot + Stot
' insertion du sous total
    ActiveDocument.Tables(1).Cell(i, 5).Range.Text = Stot
Next i
 
' insertion du Total
ActiveDocument.Tables(1).Cell(Lig, Col).Range.Text = Tot
 
 
End Sub

Code :

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

1
2
3
4
Public Function NetText(stTemp As String) As String
' voir très bon document (Débutez en VBA Word) par Olivier Lebeau
NetText = Left(stTemp, Len(stTemp) - 2)
End Function

[apt]

Bonsoir QuestVBA,

Merci de m'avoir répondu.

J'ai essayé d'appliquer le code proposé, mais rien ne se passe

En PJ l'exemple.

Merci.

[carden752]

Bonjour,

Sans passer par du vba, tu peux directement insérer un champ quifait le calcul tel que avec C qui désigne la 3èmè colonne et 2 la deuxième ligne du tableau comme dans Excel.

Code :

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

{= C2*D2}

[apt]

Bonsoir carden752,

Un exemple, parce que je l'ai utilisé sans résultat !

Merci.

[Heureux-oli]

Salut,

Les {} données par carden ne sont pas de simples crochets mais des balises de champ.
On les obtiens en utilisant la combinaison de touches Ctrl + F9
Dans ces {}, on insère l'opération souhaitée.

http://heureuxoli.developpez.com/office/word/champs/

Et pour les opérations : http://heureuxoli.developpez.com/off.../champs/#LIV-C