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

[apt]

Bonjour Heureux-oli,

Merci pour les liens.

Il me manquait juste, comment mettre à jour les champs : ALT+F9.

Reste que, j'aurais besoin de faire marcher la macro de QuestVBA, si j'ai un long tableau.

J'ai fait ce qu'il m'a dit :

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.

Mais rien ne se passe

Merci.

[78chris]

Bonjour

ALT F9 c'est pour afficher les codes de champs. La mise à jour c'est F9 et il vaut mieux faire CTRL A, pour tout sélectionner, avant

[apt]

Bonsoir 78chris,

Merci pour cette mise à jour

En attendant que quelqu'un pourra fonctionner la macro de QuestVBA.

[QuestVba]

Bonjour,

Effectivement, j'ai une erreur!

J'étais parti du principe que toutes les lignes étaient complétées. Je dois donc ajouter un code pour éviter les lignes où PU et Qu sont vides en même temps. Voici la modification complète.

Code :

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

<s>Option Explicit</s>

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
32
33
34
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
    Dim i 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
        ' vérification si PU et Qu sont vides en même temps
        If PU = 0 And Qu = 0 Then GoTo line1:
        ' insertion du sous total
        ActiveDocument.Tables(1).Cell(i, 5).Range.Text = Stot
line1:
    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
5
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)
    If NetText = "" Then NetText = 0
End Function

J'ai mis le fichier Test. En espérant que c'est ok!

[apt]

Bonsoir QuestVBA,

Merci pour le fichier.

Mais reste comment déclencher la macro (calcul).

Parce que j'ai cliqué dans toutes les cellules du tableau mais rien ne se passe

[carden752]

Bonjour,

En ayant jeté un oeil à la macro, c'est une procédure donc il faut la lancer par le menu developpeur puis cliquer sur Macros et sélectionner la macro calcul.

[Heureux-oli]

Salut,

Parce que j'ai cliqué dans toutes les cellules du tableau mais rien ne se passe

Word ne réagit pas aux clics.

[QuestVba]

Bonjour,

J'ai ajouté le bouton. Est-ce OK ?

[apt]

Bonjour,

Dans un document, ce n'est présentable d'avoir un bouton au milieu.

Alors, n'y a-t-il pas un moyen de le remplacer par un doubleClick ou autre chose ?

Merci.

[QuestVba]

Hello,

Allez, un pour la route .

Je joins le fichier avec un raccourci clavier.

1. dble clic sur document
2. activer macro
3. touches: ctrl + l

[apt]

Salut,

Merci pour l'exemple

Ca marche maintenant.

[Heureux-oli]

Salut,

Word ne réagit pas aux clics, ni aux doubles clics.
Imagine si un évènement se produit chaque fois que tu utilises la souris

[apt]

Bonsoir Heureux-oli,

Imagine si un évènement se produit chaque fois que tu utilises la souris

Meric pour ces informations

[carden752]

Salut,

Word ne réagit pas aux clics, ni aux doubles clics.
Imagine si un évènement se produit chaque fois que tu utilises la souris

Bonjour,

Es-tu sûr que Word ne réagit pas aux double clic?
Il me semble que tu peux intercepter cet évènement comme celui du clic droit.

Code :

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

Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)