J
Jean Philippe
Guest
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
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