Boucle While Wend d'un produit

[lamix]

Bonjour tout le monde,

J'ai deux colonnes, A et B, je cherche à créer une routine avec la boucle while wend qui me calculera le produit des nombres de la colonne B en fonction de A ( Si par exemple, je selectionne A2 et A5 la boucle me calculera B2*B3*B4*B5).
Pour ma part même si faux :

Set zone = Range("A3").CurrentRegion
n = zone.Rows.Count

p = 1
While i 1

p = p * zone.Cells(i, 2)

Wend

Merci d'avance

 

[JNP]

Re : Boucle While Wend d'un produit

Bonjour Lamix et bienvenue 🙂,
Pourquoi une boucle 😕 ?

MsgBox Application.WorksheetFunction.Product(Selection.Offset(0, 1))

La sélection de A2 et A5 en discontinu te donnera B2*B5, et la plage A2:A5 te donnera B2*B3*B4*B5 😛...
Bonne suite 😎

 

[job75]

Re : Boucle While Wend d'un produit

Bonjour lamix, salut Jean-Noël 🙂

Si l'on préfère ne pas sélectionner :

MsgBox Application.Product([A3].CurrentRegion.Columns(2))

A+

 

[job75]

Re : Boucle While Wend d'un produit

Re,

Si l'on veut le produit de tous les nombres en colonne B :

MsgBox Application.Product([B:B])

Les cellules vides, les valeurs de texte ou les valeurs logiques ne sont pas prises en compte.

Mais bug s'il y a des valeurs d'erreur.

A+

 

[lamix]

Re : Boucle While Wend d'un produit

salut tout le monde et merci pour vos réponse,

En fait j'ai besoin d'une boucle parce qu'on connaît pas les deux cellules de la colonne A choisit. à chaque fois je serai amené à choisir des différentes. Le choix de A2 et A5 c'était juste un exemple..

Merci à tous.

 

[JNP]

Re : Boucle While Wend d'un produit

Re 🙂,

En fait j'ai besoin d'une boucle parce qu'on connaît pas les deux cellules de la colonne A choisit. à chaque fois je serai amené à choisir des différentes. Le choix de A2 et A5 c'était juste un exemple..

Tu n'as pas dû tester mon code... Si c'est B8:B14 que tu sélectionnes, il te ramènera C8*C9*C10*C11*C12*C13*C14...
Il me semblait que c'était celà que tu voulais 🙄...
Bonne suite 😎

 

[JNP]

Re : Boucle While Wend d'un produit

Re 🙂,
Sinon, pour sélectionner par exemple uniquement C10 et C20 avec Ctrl

Sub test()
Dim PremLigne As Integer, DerLigne As Integer, Colonne As Integer, Tableau
Tableau = Split(Selection.Address, "$")
PremLigne = Selection.Row
DerLigne = Tableau(UBound(Tableau))
Colonne = Selection.Column
MsgBox Application.WorksheetFunction.Product(Range(Cells(PremLigne, Colonne + 1), Cells(DerLigne, Colonne + 1)))
End Sub

te renverras le produit de D10 à D20 (toujours sans boucle 😛) 😀...
Bon courage 😎

 

[lamix]

Re : Boucle While Wend d'un produit

Re 🙂,
Sinon, pour sélectionner par exemple uniquement C10 et C20 avec Ctrl

Sub test()
Dim PremLigne As Integer, DerLigne As Integer, Colonne As Integer, Tableau
Tableau = Split(Selection.Address, "$")
PremLigne = Selection.Row
DerLigne = Tableau(UBound(Tableau))
Colonne = Selection.Column
MsgBox Application.WorksheetFunction.Product(Range(Cells(PremLigne, Colonne + 1), Cells(DerLigne, Colonne + 1)))
End Sub

te renverras le produit de D10 à D20 (toujours sans boucle 😛) 😀...
Bon courage 😎

C'est fait, ça marche pour moi.
Merci encore JNP.