XL 2013 somme de plusieurs lignes d'une même colonne VBA pour AJOUTER/VALIDER

[Hauliege]

Bonjour le forum,

Dans mon fichier je me rend compte que le TOTAL HT est Montant HT de la dernière reference saisie dans ma facture.
Je souhaite obtenir TOTAL HT en faisant la somme des montants HT de chaque ligne d'une même colonne.
Je précise que ma facture part de la ligne 19 à 45.
Je me trompe certainement mais je pense à une boucle du genre For i= 19 to 45
Ne maîtrisant pas le sujet mes procédures AJOUTER et VALIDER sont peut êtreoivent être mal élaborées.
Merci de votre aide et votre disponibilité.

Hauliege

 

[_Thierry]

Bonsoir @Hauliege , le Forum

Je suis en version US d'Excel, j'ai des difficultés à faire fonctionner ton UserForl déjà sur les calcul TVA, il me plante systématiquement... Difficile d'avancer.

Chez toi ça se passe bien ?

Bonne soirée
@+Thierry

 

[Hauliege]

Bonsoir @Hauliege , le Forum

Je suis en version US d'Excel, j'ai des difficultés à faire fonctionner ton UserForl déjà sur les calcul TVA, il me plante systématiquement... Difficile d'avancer.

Regarde la pièce jointe 1073731

Chez toi ça se passe bien ?

Bonne soirée
@+Thierry

Bonsoir Thierry
Oui ca se passe bien avec mon Excel

 

[_Thierry]

Re
Ah tant mieux alors,
Je vais essayer de faire un version international ..
Parceque là je ne peux pas avancer pour ensuite reporter des Totaux ou Montants sur la facture...

@+Thierry

 

[ChTi160]

Bonsoir
mais ça me dit quelque Chose ce Userform !!!!!!
y'a peut être des TextBox en Plus Lol
et le code n'est pas , je pense , celui que j'avais codé Lol
jean marie

 

[Hauliege]

Re
Ah tant mieux alors,
Je vais essayer de faire un version international ..
Parceque là je ne peux pas avancer pour ensuite reporter des Totaux ou Montants sur la facture...

@+Thierry

D'accord et merci

 

[Hauliege]

Bonsoir
mais ça me dit quelque Chose ce Userform !!!!!!
jean marie

Bonsoir JM
Et ouiiiiii c'est celui que tu m'as aidé à monter je t'ai pas tagué pour rien mon ami (enfin je pense l'avoir fait) c'est ton 'bébé'
Hauliege

 

[ChTi160]

Re
Mon fichier fonctionnait (et répondait à la demande de l'époque Lol) mais je n'ai pas regardé la demande de près !
Bonne Soirée
jean marie
PS : Effectivement ! y'a pas grand chose qui fonctionne Lol
le Fil à l'origine Lol

 

[ChTi160]

Re
le Fichier sur lequel j'ai travaillé (Perfectible je pense !)
Tu devrais y trouver ton bonheur Lol
jean marie

 

[Hauliege]

Re
le Fichier sur lequel j'ai travaillé (Perfectible je pense !)
Tu devrais y trouver ton bonheur Lol
jean marie

Oui c'etait bien celui là
Hauliege

 

[_Thierry]

Re bonsoir @Hauliege , re @ChTi160

Bon voici une v00 qui devrait passer sur n'importe quelle machine, puisque je passe tout en Variables Double, et Private niveau UserForm.
Plus besoin de ces "Val" et ces "*1" de partout ! qui en plus plantait chez moi.

Le but du jeu pour toi maintenant :

• Tester et vérifier si j'ai bien les mêmes calculs que toi sur les action Quantité, TVA, Remise, AIRSI...
• M'expliquer un peu mieux ce que tu attends et où exactement car j'avoue que je n'ai pas compris. Sur la Facture ou sur le UserForm, il y a plein d'endroit non remplis ni calculés...

Bonne soirée
@+Thierry

 

[Hauliege]

Re bonsoir @Hauliege , re @ChTi160

Bon voici une v00 qui devrait passer sur n'importe quelle machine, puisque je passe tout en Variables Double, et Private niveau UserForm.
Plus besoin de ces "Val" et ces "*1" de partout ! qui en plus plantait chez moi.

Le but du jeu pour toi maintenant :

• Tester et vérifier si j'ai bien les mêmes calculs que toi sur les action Quantité, TVA, Remise, AIRSI...
• M'expliquer un peu mieux ce que tu attends et où exactement car j'avoue que je n'ai pas compris. Sur la Facture ou sur le UserForm, il y a plein d'endroit non remplis ni calculés...

Bonne soirée
@+Thierry

Merci Thierry avec tes modif le Test est bon et j'avoue que le bouton AJOUTER me semble inutile alors je les balancer...juste besoin de QUITTER et VALIDER.
Je souhaite faire les calculs suivants

Total remise=montant remise Ref A + montant remise Ref B
Total HT = montant HT Ref A + montant HT Ref B
Total TVA = montant TVA Ref A + montant TVA Ref B
etc....
Le problème mon Total HT ne calcul pas la somme des montants HT, il ne conserve que le montantHT de la RefB, pareil pour la tva, Airsi ....voir image ci joint

 

[ChTi160]

Bonjour Hauliege
Bonjour le Fil ,le Forum
Arff !
je viens de comprendre de quoi y retourne , pas évident (même avec , ou surtout avec ton schéma ,img) Lol
ne peux tu mettre un fichier où tu aurais (deux exemples significatifs) de feuille FAvoir ;
essaye de mettre dans tes exemples FAvoir des intitulés différents de catégories (pour les exemples , cela pour une meilleurs compréhension)
Ex: Montant HT , Montant Déductions (remise ,TVA ,AIRSI)
je regarde ce que je peux faire Lol
Bonne journée
jean marie

 

[ChTi160]

Re
Peux tu me dire :
Si Famille et Type sont la même chose ?
Quels Type de Mode de paiement
Quelles Devises ?
Merci
jean marie

 

[_Thierry]

Bonjour L'équipe,

J'ai aussi du mal à suivre malgré son dessin... LoL

Voici ce que j'ai fait :

Je ne me suis préoccupé QUE de ceci, le reste, je te/vous laisse finir.
Mais donc c'est la meilleure approche que j'ai trouvée pour stocker temporairement les valeur des articles dans une ListBox additionnelle pour pouvoir déverser le tout dans la Feuille à la Validation.

Je ne m'occupe pas de la Devise, ou des Famille/Type et tout le Tagada Tsoin Tsoin, Mode de Paiemnt etc, à ce stade ce n'est pas la priorité !

Bonne découverte
@+Thierry

PS1 Pour les Cumuls en bas de colonne G, comme je n'ai rien compris, j'ai développé pour faire en sorte que ce soit facile à adapter/corriger :

With WsFAvoir
.Range("G46") = GrossHT
.Range("G47") = GrossHT - GrossREM
.Range("G48") = GrossHT - GrossREM + GrossTVA
.Range("G49") = GrossHT - GrossREM + GrossTVA - GrossAIRSI

EDIT 10:55 pour PS2 En cas de différence de Taux entre la même selection d'articles :

J'ai fait en sorte de montrer dans la Facture comme suit :

Car ça aussi c'est "coton" !!!