Problème sur boucles

[Jean Philippe]

Dans VBA Excel,
Je tourne en rond sans trouver de solution à un problème simple :
Dans une application de gestion de congés,
J'ai un tableau avec un nombre de lignes inconnu au départ,
La colonne E recense le type de congé, la colonne H le nombre de jours.
J'explore une colonne qui contient le type de congés (5 libellés différents),
Et je veux connaître le nombre total de journées posées par type de congés.

Avec le code suivant,
je trouve le nombre de jours pour le premier type de congés trouvé dans la colonne E,
mais je n'ai pas la solution pour les autres types de congés :


Sub CalculCongesPoses()

dim v_NbJours as string
dim v_CodeConges as integer

Sheets("Feuil1").Select
Range("E2").Select
v_CodeConges = ActiveCell.Value
v_NbJours = 0

While ActiveCell.Value <> ""
v_NbJours = v_NbJours + ActiveCell.Offset(0, 3).Value
ActiveCell.Offset(1, 0).Activate
Wend

End Sub


Si quelqu'un peut me répondre,
Merci d'avance
JPh

 

[LeJacky]

bonjour,

Un code sans garantie d'avoir compris le pb

---
dim v_NbJours as string
dim v_CodeConges as integer
Dim i%
'La cellule active contient le code cherche (je crois...)
V_CodeCongés=ActiveCell.Value
V_NbJours=0
i=1
With Range("E" & i)
while .Value <> ""
if .Value = V_CodeCongés then
V_NbJours = V_NbJours+Range("H" & i).Value
i = i + 1
End If
Wend
End With
---
C'est pas tester mais je ferai bien un truc comme ca... Passer par la variable i peut etre evite mais je maitrise pas trop


@+

 

[LeJacky]

slt,
J'y ai repenser et je me suis dit que c'etait faux...

---
dim v_NbJours as string
dim v_CodeConges as integer
Dim i%
'La cellule active contient le code cherche (je crois...)
V_CodeCongés=ActiveCell.Value
V_NbJours=0
i=1
while Range("E" & i).Value <> ""
With Range("E" & i)
if .Value = V_CodeCongés then V_NbJours = V_NbJours+Range("H" & i).Value
End With
i = i + 1
Wend
---

La ca doit etre un peut moin faux...
sorry
@+