VBA : multiplication plage variable Quantité * CU

Bonjour,

Je cherche à faire une macro qui fait une multiplication sur une plage variable.
J'ai 3 tableaux :
1 : en ligne différents services, en colonne différents produits, et à l'intérieur les quantités
2 : en ligne différents services, en colonne différents produits, et à l'intérieur les coûts unitaires
3 : en ligne différents services, en colonne différents produits, et à l'intérieur je souhaiterais une macro pour la multiplication Qté * CU

Hors dans le fichier joint, j'ai mis 4 services hors il peut y en avoir plus et 3 produits hors il peut y en avoir plus.

Je souhaiterais un bouton pour que la multiplication se fasse toute seule tout en sachant que les différents services seraient à l'identique dans les 3 tableaux.

N'hésitez pas si vous n'avez pas compris.

Merci

Jérôme

Bonjour,
Conformément aux règles du forum, n'envoie de fichier joints, mais explique nous ton problème. Ecris-nous ton code, dis-nous où se situe ton problème. Joins éventuellement des captures d'écrans si nécessaire.
Néanmoins une idée :
Est-ce que ton but est de trouver la dernière ligne non vide de ta feuille de calcul? Ou la dernière colonne non vide de ta feuille de calcul?

Code:

---

1 2 3 4

Dim derLig As Long Dim derCol As Long derLig = Sheets("maFeuille").Cells(Rows.Count, 1).End(xlUp).Row derCol = Sheets("maFeuille").Cells(1, Columns.Count).End(xlLeft).Column

---

Bonjour,
Dsl je ne mettrais plus de fichier joint.
Je cherche à avoir la dernière ligne et colonne non vide des tableaux et non de la feuille.

J'ai trouvé la macro ci-dessous :

Code:

---

1 2 3 4 5 6 7

Dim t1 As Range, t2 As Range, t3 As Range, nc As Long, nl As Long Set t1 = Range("A:A").Find("Tableau 1") Set t2 = Range("A:A").Find("Tableau 2") Set t3 = Range("A:A").Find("Tableau 3") nc = Cells(t1.Row + 1, Columns.Count).End(xlToLeft).Column - 1 'nombre de colonnes nl = t2.Row - t1.Row - 3 'nombre de lignes t3.Offset(2, 1).Resize(nl, nc).Formula = "=B" & t1.Row + 2 & "*B" & t2.Row + 2

---

Mais la formule ne s'arrête pas au dernier libellé de service. Ya til moyen de faire une modif et si oui laquelle ?

Merci.

Pourrais-tu joindre une copie d'écran de ta feuille avec les tableaux afin que nous voyions comment sont organisés tes tableaux, stp?

Pièce jointe 270838

Bonjour,
Sais-tu qu'il est possible de le faire tout simplement avec la formule SOMMEPROD ou
avec INDEX EQUIV ??
Donc pas besoin de vba et il est toujours possible de les appliquer via vba si nécessaire

Edit : minime changement de texte

Ok, c'est un peu plus clair maintenant ;)

En fait, la question que tu dois te poser c'est : comment je repère mes différents tableaux?
Si on regarde ta copie d'écran, chacun de tes tabeaux est précédé de son nom sous la forme Tableau n. Et tu sais que la première valeur à considérer (premier service-premier produit) se trouve 2 lignes en dessous et un colonne à droite.

Code:

---

1 2	Dim tabl1 As Long tabl1 = Application.Match("Tableau 1", Range("A:A"), 0)

---

Ceci te permet de connaître la ligne où est écrit "Tableau 1"

Code:

---

1 2	Dim premCel1 As Range premCel1 = Range("A" & tabl1).Offset(2, 1)

---

Ceci te donne la cellule avec la première valeur dans le tableau 1. Offset permet de travailler sur une cellule dont on connait la position relative par rapport à une autre cellule, ici on se décale de 2 lignes et d'1 colonne par rapport à la cellule Atabl1.

J'imagine qu'il y a le même nombre de produits et de services dans les tableau1 et 2. On va donc compter le nombre de produits et de services :

Code:

---

1 2 3 4

Dim prod As Long Dim service As Long prod = premCel1.End(xlRight).Column - premCel1.Column + 1 'on cherche la cellule juste avant la première cellule vide à droite service = premCel1.End(xlDown).Row - premCel1.Row + 1 'on cherche la cellule juste avant la première cellule vide en bas

---

Ca y est, on a repéré les tableaux. Il faut faire les multiplications.

Code:

---

1 2 3 4 5 6 7 8

Dim i As Long Dim j As Long For i = 0 To prod - 1 'boucle sur les colonnes contenant un produit For j = 0 To service - 1 'boucle sur les lignes des services premCel3.Offset(j, i).Value = premCel1.Offset(j, i).Value * premCel2.Offset(j, i).Value 'on se décale par rapport à la première cellule à prendre en 'compte dans le tabelau Next j Next i

---

Est-ce que tu comprends mon raisonnement?

J'ajoute en plus des formules,
Si tu as de vrai tableaux c'est encore plus simple à appliquer