Besoin d'aide programme VBA cellules

Besoin d'aide programme VBA cellules - VB/VBA/VBS - Programmation

Marsh Posté le 08-06-2008 à 12:31:45    

Bonjour,
 
j'ai un probleme concernant cet exo :  
 
http://www.u-paris10.fr/adminsite/ [...] 8&LANGUE=0 (le dernier exercice avec le tableau excel)
 
On me demande:
 
Ecrire le programme qui calcule le montant total des facturs qui sont payées et le montant total des factures qui ne sont pas payées, puis affecte les resultats aux cellules D8 et D9.
 
Quelles formules employées ? (de la maniere la plus simple possible car je suis vrmt debutant :s)
 
Peut etre :
 
Sub cellules()
 
Cells(8, 4) = sum(Range("E3:E4,E7" ))
Cells(9, 4) = Sum(Range("E2,E5:E6" ))
 
End Sub
 
mais je suis vraiment pas sur..

Reply

Marsh Posté le 08-06-2008 à 12:31:45   

Reply

Marsh Posté le 08-06-2008 à 15:29:57    

bonjour,
 
je ne sais pas ce que tu as appris mais je verai plus un truc comme ca
 
Sub cellules()
pp = 0
p = 0
nbl = Range("b5555" ).End(xlUp).Rows
For i = 1 To nbl
If cells(i + 1, 5) = "payée" Then
pp = pp + cells(i + 1, 4)
Else
p = p + cells(i + 1, 4)
End If
Next i
cells(9, 4) = p
cells(8, 4) = pp
End Sub
 
cela me semble plus dans l'optique vu la question 2 qui sen rapproche
 
sur ce bon wikend a tous


Message édité par 86vomito33 le 08-06-2008 à 17:25:00
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed