Variable dynamique pour calcul d'un sous total

Bonjour,

Après avoir regardé sur le forum, je cherche à stocker des variables pour pouvoir réaliser un sous total.

Le nombre de ces variables seraient définis en fonction d'un nombre de tranche qui varie d'un projet à un autre.

J'aimerais donc qu'en fonction de ce nombre mon sous.total soit égal à :

= sous.total(9,variable1, variable2, ... , variable x) -> x étant égal au nombre de tranche.

Je pensais utiliser une boucle For afin de réaliser ce traitement VB mais je ne sais pas comment stocker les variables dynamiques.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim variable As Integer   nbtranche = 10 Range("F6").Select   For i = 1 To nbtranche variable(i) = ActiveCell.Value ActiveCell.Offset(0, 2).Select Next i

---

Puis dans un deuxième temps comment réaliser le calcul de ma somme ?

Merci par avance pour votre aide.

Rémi

Remplacer le 1000 par le maximum possible de tranches.

Code:

---

1 2 3 4 5 6

Dim variable(1000) As Integer   nbtranche = 10 For i = 1 To nbtranche variable(i) = Cells(6,4+2*i).Value Next i

---

Quand tu veux faire ton total

Code:

---

1 2 3 4

SommeVar = 9 For i = 1 To nbtranche SommeVar = SommeVar + variable(i) Next i

---

Mais les deux peuvent se faire en même temps, dans la même boucle.

Bonjour,

Avez-vous besoin, dans la suite du code, des valeurs contenues dans votre "variable dynamique"?
S'ils ne servent qu'à calculer leur propre somme, autant faire directement la somme, comme ceci, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub t() Dim maSomme As Integer Dim Cel As Range Dim nbtranche As Integer   nbtranche = 10 Set Cel = Range("F6")   For i = 0 To nbtranche - 1 maSomme = maSomme + Cel.Offset(0, 2 * i).Value Next i MsgBox maSomme End Sub

---

Merci de vos réponses. Elles vont me permettre d'avancer.

Pensez-vous qu'il soit également possible d'utiliser ces variables dans une formule plutôt que d'avoir la valeur ?

Peut-être en stockant dans les variables Activecell.Adress au lieu d'Activecell.Value ?

Code:

---

1 2 3 4 5 6 7

For i = 1 To nbtranche variable(i) = ActiveCell.Adress ActiveCell.Offset(0, 2).Select   Next i   Range("M6").Formula = "="=SUBTOTAL(9,variable(i),variable(i),...,variable(x))"

---

Merci de votre aide.

Rémi

Citation:

---

Envoyé par remi2305

Pensez-vous qu'il soit également possible d'utiliser ces variables dans une formule plutôt que d'avoir la valeur ?

---

Je ne comprends pas vraiment ce que tu veux dire mais une variable ne peut pas contenir une formule.
Eventuellement, une variable de type String peut contenir le texte de la formule mais ça n'est pas ça qui te permettra de faire un calcul.

Il faut que tu donnes plus de précision sur ce que tu comptes faire de cette formule pour avoir une réponse plus précise.

Citation:

---

Peut-être en stockant dans les variables Activecell.Adress au lieu d' Activecell.Value ?

---

La propriété Adress te renverra juste une chaîne de caractère désignant l'adresse de la cellule.
Si tu veux conserver un pointeur vers une cellule dans une variable, le plus simple est de créer un variable de type Range et d'utiliser un Set pour y placer la référence de l'objet Cellule. Par exemple :

Code:

---

1 2	Dim MaCellule as Range Set MaCellule = ActiveCell

---

Ce que je souhaite c'est réaliser un sous.total ou une addition en fonction des variables que j'ai créé.

Mais j'aimerai ne pas l'avoir en valeur mais sous forme de formule afin que si les valeurs des cellules changent, la valeur de la somme change également.

Par exemple au lieu d'avoir en M6 = 9, (ce que j'obtiendrai avec la formule proposée par vos soins auparavant)

J'aimerai avoir M6 =M1+M3+M5 si j'ai 3 colonnes , je ne sais pas si cela est possible.

Si tu veux placer ta formule en A1 :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MaFormule As String   nbtranche = 10 MaFormule = "=9"   For i = 1 To nbtranche MaFormule = MaFormule + "+" + Cells(6,4+2*i).Adress Next i   Range("A1").Formula = MaFormule

---

Merci pour la solution, c'est ce qu'il me fallait.

Rémi