Discussion :

[Avnick]

Bonjour le forum Developpez !

Je suis nouveau sur le forum et j'en viens à m'inscrire car depuis peu (quelques heures de pratique seulement), je m'intéresse au VBA. J'ai un planning employés et je souhaiterais un peu comme la pièce jointe, tf90000005.xlsx qu'il me reporte le nombre d'heures de chaque employé dans la journée suivant les cellules colorées. Je sais pas si, ce que je demande est clair. Je suis pourtant certain que c'est très loin d'être compliqué ce que je demande mais ayant très peu d'heures à mon actif de codes en VBA, je planche un peu...

Merci par avance d'avoir pris de votre temps pour me lire et pour me répondre.

[Shooter422]

Bonjour Avnick et bienvenue à toi sur le forum,

En tant que nouveau membre tu as lu et accepté les règles du forum et il est bien indiqué que les pièces jointes sont à fournir en cas d’extrême nécessité.

Prend le temps de nous faire un exemple détaillé de tes données et ce que tu veux en faire.

[sogedic]

Bonjour Avnick

Dans le menu Formules ; Gestionnaire de Noms
Tu peux voir le calcul du nombre de d'heures payées


ce qui peut se traduire par la formules matricielle (contrôle + maj + entree)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{=SOMME( (E8:E56=TRANSPOSE(CongéPoste[Poste/Vacances]))*TRANSPOSE(CongéPoste[Payé])/4 )}

soit en utilisant l'enregistreur de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Selection.FormulaArray = _
        "=SUM( (R[2]C:R[50]C=TRANSPOSE(CongéPoste[Poste/Vacances]))*TRANSPOSE(CongéPoste[Payé])/4 )"

et en modifiant pour fixer les n° de lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Selection.FormulaArray = _
        "=SUM( (R8C:R56C=TRANSPOSE(CongéPoste[Poste/Vacances]))*TRANSPOSE(CongéPoste[Payé])/4 )"

a toi de jouer