Discussion :

[Gestionnaire_rh]

Bonjour le forum

Mon problème se résume dans la formule de recherchev dans 31 feuilles qui représentent les jours du mois, car je veux sommer les heures supplémentaires effectués durant mois par les salariés dans une feuille de cumul.
chaque salarié à un ID unique, j'ai essaie avec cette formule mais ca ne marche pas:

Code :

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

=RECHERCHEV(A7;INDIRECT((F6:AJ6)&"!$A$5:$k$500");8;0)

merci d'avance.

[MarcelG]

Bonsoir gestionnaire_rh, Bonsoir le Forum,

Créer une formule à Référence 3D comportant la fonction RechercheV me semble, à moi Marcel (...), compliqué.

Au demeurant, je peux te proposer une fonction VBA, à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function calcul(mat As String) As Integer
 
Dim nbheures As Integer
 
nbheures = 0
 
For Each sh In Worksheets
 
        With sh
                If .Name <> "Cumul" Then _
                        nbheures = nbheures + WorksheetFunction.VLookup(mat, .Range("A1:B5"), 2)
        End With
 
Next sh
 
calcul = nbheures
 
End Function

Reviens si nécessaire.

[Gestionnaire_rh]

Bonjour Marcel

je vous remercie pour votre réponse, mais vu que je n'ai pas beaucoup de lotion en vba, j'ai encore besoin d'information, bon j'ai insérer un module et copier la macro mais comment peut t'on donner le résultat ds une cellule et puis la faire glisser pour l'ensemble des salariés et comment exécuter ta macro.
j'ai remplacer

Code :

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

For Each sh In Worksheets

par

Code :

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

For sh = 1 To 31

, j'ai d'autre feuilles et je crois que je n'ai pas fait d'erreur.

encore merci pour ton aide.

[MarcelG]

Gestionnaire_rh,

Attention, ici la variable sh est affectée à une feuille, il ne s'agit donc pas d'un compteur (i)

Je voudrais savoir
- si toutes les autres feuilles, hormis celle de synthèse, sont concernées
- le nom de ta feuille de synthèse
- si les zones de recherches sont homogènes dans toutes les feuilles.

En dernier ressort, tu peux joindre un classeur simplifié comportant 2 feuilles au lieu de 31, et surtout sans données confidentielles.

Pour répondre à ta question, la fonction personnalisée s'utiise dans une feuille de calcul comme une fonction normale

Code :

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

= calcul(A1)

D'ailleurs, elle figure dans la liste proposée lorsque tu actives le menu Insertion \ Fonction.

Je reste à ta disposition toute la soirée s'il le faut.

A plus.

[Gestionnaire_rh]

Bonjour

je t'envoi le fichier en pièce et j'espere que tu vas arriver a trouver la solution, les feuilles concernés sont nommés 01,02,03,,,,,,,31 et j'ai d'autre feuilles qui ne sont pas concernés, pour les plages ils sont tous identiques.

merci encore.

[Gestionnaire_rh]

Bonjour Marcel

j'ai essaie mais toujours pas de bon résultat, voila le fichier sans l'extension .rar

Cordialement gestionnaire_rh.

[Daranc]

as tu essayé l'outil excel de consolidation ? ( données-consolidation)

[Gestionnaire_rh]

Bonjour DARANC

je te remercie pour l'astuce mais sans résultat, en plus j'ai 31 feuilles avec un nombre de lignes variables pour les 31, mais ça me fait penser a une solution= un copier coller des 31 feuilles des unes au dessus des autres dans une plage vide a droite de mon tableau de cumul mensuel puis peut être faire sommeprod selon le critere de identifiant.
pouvez vous m'aider sur le code de copier coller les plages de la feuille 01 a 31.

Merci d'avance.

[Daranc]

la consolidation tien compte des nombre de ligne différent il suffit de prendre la plus grange plage pour la consolidation de départ les nom qui ne sont pas sur toutes les feuilles sont ajoutés et il n'y a qu'un nom pour les cumul

[MarcelG]

Bonjour Gestionnaire_rh, Darnc, et le Forum,

Daranc,

Dans le cas du classeur de notre amie, des colonnes sont intercalées.
Mias j'addmettrai volontiers ta solution si ele peut s'appliquer ici. Don't Act.

Au cas où, Gestionnire_rh,

Si le cumul des heures supplémentaires désigne les colonnes 50, 100 % de ton classeur, alors je te propose une fonction à 2 arguments.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function nbsup(mat As Variant, nat As Integer) As Integer
 
Dim nbheures As Integer
 
nbheures = 0
 
If nat <> 50 And nat <> 100 Then
    MsgBox "Le 2ème argument de la fonction doit être 50 ou 100"
    nbsup = 999
    Exit Function
End If
 
For i = 1 To 1
 
        num = Format(i, "0#")
        equiv = WorksheetFunction.Match(mat, Sheets(num).Range("A5:A13"), 0)
        nbheures = nbheures + WorksheetFunction.Index(Sheets(num).Range("A5:K13"), equiv, 10 + IIf(nat = 50, 0, 1))
 
Next i
 
nbsup = nbheures
 
End Function

Pour entrer la formule dans ta feuille de synthèse

Si tu veux le cumul des 50 %

Code :

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

=nbsup(A8;50)

Si tu veux le cumul des 100 %

Code :

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

=nbsup(A8;100)

Si tu rentres une autre valeur que 50 ou 100 en 2ème argument, alors un pop up d'erreur apparaîtra, et la valeur retournée sera 999

A titre d'exemple, je te joins ton classeur avec cette fonction intégrée.
Voir les formules pour l'identifiant 184.

[Gestionnaire_rh]

Bonjour Marcel

voila ce que j'attendais, ça marche très bien et je te remercie de m'avoir sauver.

Cordialement Gestionnaire_rh

[Gestionnaire_rh]

Bonjour Marcel,

je t'envoi le fichier et j’espère que tu pourra juste rajoute une instruction a ton code parce qu'il marche très bien.

Cordialement

Gestionnaire_rh

[MarcelG]

Bonjour Gestionnaire_rh, Bonjour le Forum,

La principale difficulté pour coder une telle formulation réside en la gestion des doubles cotes ".
La meilleure façon de procéder à mon avis est de coder pas à pas chaque partie de la formule jusqu'à son intégralité, en s'aidant de la fenêtre Exécution.

En cours de code

Code :

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

Debug.Print laformulepartielle

Pour afficher la fenêtre Exécution CTRL + G

Enfin, il faut bien noter que dans le code les points-virgule qui séparent les arguments de la formule sont remplacés par des virgules.

Donc ici, il te faut remplacer dans ton code le premier groupe de formules par

Code :

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

1
2
3
4
5
With colorig.Offset(0, i)
        réf = """" & Format(Range("E6").Offset(0, i).Value, "0#") & """"
        .Formula = "=IF(VLOOKUP($A7,INDIRECT((" & réf & ")&""!$A$5:$k$500""" & "),6)=$AT$3,VLOOKUP($A7,INDIRECT((" & réf & ")&""!$A$5:$k$500""" & "),7),0)"
        .Value = .Value
 End With

Un conseil enfin, ta feuille de synthèse devrait porter un nom différent des arguments de ta cellule de réfénce AT3, autrement dit un nom différent d'un chantier (ici P010)
De plus, ta cellule AT3 devrait être validée par une liste (celle des chantiers)
Menu Données / Validation.

[Gestionnaire_rh]

Bonjour Marcel

Je vous remercie pour votre aide, c'est vraiment ce que je chercher et ça marche très bien.
juste si vous pouvez me donner l'explication ou l’intérêt du complément que vous avez rajouter:

Code :

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

Debug.Print laformulepartielle

moi je l'ai inséré juste après la formule de recherchev (6 et 7), je crois que je ne me suis pas tremper.
encore une fois merci beaucoup.

Cordialement.

Gestionnaire_rh

[MarcelG]

Bonjour Gestionnaire_rh, Bonjour le Forum,

Comme la formule est assez compliquée à coder, je suggère d'en vérifier le code pas à pas dans la fenêtre Exécution.

Exemple

Code :

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

Debug.Print VLOOKUP($A7,INDIRECT((" & réf & ")&""!$A$5:$k$500""" & "),6)

Bien entendu, une fois que le résultat est acquis, cette ligne de code disparaît.

Si c'est le cas, n'oublie pas de positionner ton post en "Résolu".

Bon Dimanche à tous.

[Gestionnaire_rh]

Bonjour Marcel,

je vous remercie pour ton explication, enfin je pense que j'ai compris cette définition et je vais m'appliquer sur le vba car c'est vraiment très intéressant comme langage, encore merci beaucoup Marcel pour votre assistance et bonne journée

Cordialement

Gestionnaire_rh