PB sur recherchev

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:

---

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

---

merci d'avance.

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:

---

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.

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:

---

For Each sh In Worksheets

---

par

Code:

---

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.

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:

---

= 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.

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.

Bonsoir Gestionnaire_rh,

Comme tu es déconnectée, et en attendant demain peut-être, je te livre une modifiaction de la fonction adaptée à ton cas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function calcul(mat As String) As Integer   Dim nbheures As Integer   nbheures = 0   For i = 1 To 31   num = Format(i, "0#") nbheures = nbheures + WorksheetFunction.VLookup(mat, Sheets(num).Range("A1:B30"), 2)   Next i   calcul = nbheures   End Function

---

- J'ai pris en compte la nomenclature de tes feuilles, à savoir 01, 02, ...31

- Il te faut adapter la plage de recherche

Code:

---

Range("A1:B30")

---

- dans la feuille de synthèse, tu pourras écrire = calcul(A1), si A1 est la cellule contenant un matricule

- ensuite, tu n'auras plus qu'à copier cette formule, y compris dans les autres feuilles hormis 01 à 31.

Reviens éventuellement en joignant ton classeur enregistré Excel 2000 - 2003
(.xls). Je reste à ta disposition.

Bonjour Marcel

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

Cordialement gestionnaire_rh.

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

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.

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

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:

---

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:

---

=nbsup(A8;50)

---

Si tu veux le cumul des 100 %

Code:

---

=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.

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,

Pour compléter, voici un code que tu purras éventuellement affecter à un bouton .

Objet :
- formulation des jours de présence pour 1 à 31
- formulation des cumuls heures

Ici, Les valeurs sont collées sur la formule par la méthode (classique)

Code:

---

.Value = .Value

---

Voici le code à adapter pour la boucle des jours 1 To 31:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Sub Macro2()   Dim derlign As Integer Dim colorig As Range   With Sheets("P010")   derlign = .Cells(.Rows.Count, 1).End(xlUp).Row   Set colorig = .Range("E7:E" & derlign)   For i = 1 To 1   With colorig.Offset(0, i) .FormulaR1C1 = "=VLOOKUP(RC[-5],'" & Format(i, "0#") & "'!R[-2]C[-5]:R[6]C[5],7)" .Value = .Value End With   Next i   With colorig.Offset(0, 33) .FormulaR1C1 = "=nbsup(RC[-37],50)" .Value = .Value End With   With colorig.Offset(0, 34) .FormulaR1C1 = "=nbsup(RC[-38],100)" .Value = .Value End With       End With   Set colorig = Nothing   End Sub

---

A ta disposition pour des précisions.

Bon Dimanche à tous.

Bonjour MarcelG,

je pense que le problème sur la formulation des jours de présence se résume soit sur le

Code:

---

.FormulaR1C1 = "=VLOOKUP(RC[-5],'" & Format(i, "0#") & "'!R[-2]C[-5]:R[6]C[5],7)"

---

là ou il faut fixé la valeur_cherchée ou sur le

Code:

---

For i = 1 To 1

---

car je pense qu'il fait référence juste à la feuille (01) je l'ai remplacer par

Code:

---

For i = 1 To 31

---

mais toujours pas. à titre d'information la première journée est bien renseigné c'est a compter de la deuxième que le résultat est #N/A, j'ai essayé de modifié mais sans résultat, j'ai hâte dez voir la correction.

Merci d'avance

Gestionnaire_rh

Bonjour,

j'ai enlevé le

Code:

---

.value=.value

---

j'ai vu sur les formules que j'ai un décalage ( en se déplaçant sur les colonnes la valeur_cherchée et la table matrice se décalent aussi alors il me faut une instruction pour fixé la colonne A pour la valeur_cherchée et la table matrice)

je ne sais pas comment faire pour régler ce problème, en excel pour fixer en utilise la touche F4, mais en vba ????

Bonjour Gestionnaire_rh,


Tout d’abord, par la variable colorig, il faut comprendre colonne d’origine.
Je n’évoque nullement la couleur (propriété ColorIndex)

Tu verras que dans mon code, figure la méthode .offset(0,i), ce qui signifie que je pars de la colonne E pour modifier les formules en fonction de la colonne où elles se trouvent.

D’autre part, je te suggère de remplacer dans le code proposé.

Code:

---

1 2 3 4

With colorig.Offset(0, i) .FormulaR1C1 = "=VLOOKUP(RC[-5],'" & Format(i, "0#") & "'!R[-2]C[-5]:R[6]C[5],7)" .Value = .Value End With

---

Par

Code:

---

1 2 3 4

With colorig.Offset(0, i) .Formula = "=VLOOKUP($A7,'" & Format(i, "0#") & "'!$A$5:$K$13,7)" .Value = .Value End With

---

La base de cette formulation est que dans les colonnes 01 à 31 de ta feuille de synthèse P010 , figure la présence du collaborateur. Cette donnée figure dans la colonne G « Présence » des feuilles 01 à 31.

J'espère que le résultat obtenu sera celui escompté, sinon reviens.

Je reste à ta dispostion.

Bonjour Marcel,

je vous remercie pour la réponse, ça marche très bien mais j'aimerai bien conditionner le résultat de cette recherchev car ça me permis d’alléger le fichier, au premier lieu j'avais plusieurs feuilles de cumul chacune est pour un chantier, maintenant je veux modifié le code comme ceci pour avoir juste une seul à utiliser pour tous les chantiers, un modèle qui est renseigner pour les salariés qui travaillent sur un chantier dont son identifiant est mentionner dans la cellule "AT3"(AT3 peut contenir P010, P008, P007:

Code:

---

1 2 3 4

dim x as variant x=range("at3") IF .Formula = "=VLOOKUP($A7,'" & Format(num, "0#") & "'!$A$5:$K$1000,6,0))" = x then .Formula = "=VLOOKUP($A7,'" & Format(num, "0#") & "'!$A$5:$K$1000,7,0))"

---

la formule dans la cellule est la suivante:

Code:

---

=SI(RECHERCHEV(A7;INDIRECT(($F$6)&"!$A$5:$k$500");6;0)=AT3;RECHERCHEV(A7;INDIRECT(($F$6)&"!$A$5:$k$500");7;0);"")

---

encore merci Marcel

Cordialement
Gestionnaire_rh

Bonjour Aderhammane, Bonjour le Forum,

Je ne comprends pas tout.

Pourquoi cette condition : si 6 alors 7
:koi:

Afin d'éviter de multiples échanges infructueux, peux-tu joindre un nouveau fichier simplifié en précisant bien
- quelle formule tu souhaites obtenir
- dans quelle feuille
- pour quel résultat
Utilise des couleurs et donne un exemple de résultat

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

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:

---

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:

---

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.

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:

---

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