Intruction vba "tant que..."

[Diop]

Salut à tous

je cherche l'instruction vba "tant que" qui me permet de lui demander par exemple de me faire une somme tant que l'une des deux cellules de la plage n'est pas vide

 

[sousou]

Bojour
Quelque chose comme ça?

While m<>""
m=premièrecellule&deuxièmecellule
résultat=premièrecellule+deuxièmecellule
wend

 

[Picu]

Bonjour à toi,

Je pense que tu peux utiliser l'instruction "Tant que". Elle me semble judicieuse.

Mais de rien !
@+

 

[ThierryR]

Bonjour,

Je pense que la fonction Do While est ce que tu as besoin

Public Sub Somme()

Dim A As Long 'Ou autre type
Dim B As Long 'Ou autre type

A = Range("A1").Value
B = Range("A2").Value


Do While A > 0 And B > 0

Range("A3").Value = A + B

Loop

End Sub

En espèrant t'avoir été utile

ThierryR

 

[PhiBou]

Bonjour le fil, le forum

Un très bon site sur les boucles : tant que et jusqu'à

http://www.cathyastuce.com/vba/boucles.htm

Bonne journée

PhiBou

 

[Diop]

Salut à tous
j'ai un prob pour lui specifier la plage de calcul et donc de lui dire de me faire ce calcul à partir de la cellule "h2" ce calcul et ainsi de suite tant que le contenu de la colonne "a" ou "b" est >=0

Voici un apercu de la macro que j'ai essayé de monter
merci de votre aide


Public Sub Somme()

Dim A As Long
Dim B As Long

A = Range("d2:d65000").Value
B = Range("e2:e65000").Value

Do While A >= 0 Or B >= 0

Range("h2").Value = B - A

Loop

End Sub

 

[Lord Nelson]

Hello world !

Je la jouerais plutôt comme ceci :

'Eviter le nom Somme, chargé de sens dans Excel
Public Sub MaSomme()

Dim Total As Long
Dim CL as Range

'Pour chaque cellule de la plage...
For Each CL in Range("d2:d65000")
'Sortie de la boucle si...
If CL = 0 And CL.Offset(0, 1) = 0 Then Exit For
'Accumulation pour un total général
Total = Total + CL.Offset(0, 1) - CL
'ou bien détail du calcul en H
CL.Offset(0, 4) = CL.Offset(0, 1) - CL

Next
'Affichage du total
Range("H1") = Total

End Sub

A+
LN