Besoin d'aide programme VBA cellules - VB/VBA/VBS - Programmation
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
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..