XL 2010 Besoin d'aide programmation VBA pour fonction recherche

[dukoko]

Bonjour,

Je souhaiterai réaliser deux fonctions recherches différentes.

- RECHERCHE ANALYSE, malgré une première programmation qui ma été bien utile je souhaiterai l'améliorer, j'aimerai définir les critères par un ordre de priorité la date de l'analyse, ensuite le service et pour finir le nom et le prénom.

-RECHERCHE CHARGE CALCIQUE, pour celle-ci j'ai crée une feuille résultat charge calcique je souhaiterai récupérer les mesures de calcium (entouré en rouge) pour les différents temps.
Une userform 4 est associé pour la recherche, j'aimerai mettre un critère fixe qui est le type d'analyse "charge calcique" et ensuite affiner la recherche avec la date et le nom et le prénom pour ensuite transposé toutes les mesures dans le tableau de la feuille sur le même principe que l'autre recherche.

Merci et j'espère avoir été assez compréhensible.

 

[dukoko]

Merci!!!

 

[dukoko]

Je viens seulement de regarder selon les dernière indications que vous m'avez donné et maintenant le fichier et totalement bloquer????
J'ai du bidouiller un mauvais code

 

[Dranreb]

Il y a au moins deux choses qui ne vont pas.
1) — Dans la CBnRésultat_Click de UFmRechCC l'instruction LDon = TLgn(LLgn) a été supprimée au lieu d'être 'décommentérisée', c'est à dire réactivée en enlevant l'apostrophe devant qui la mettait en commentaire. De toute façon il y avait aussi une autre erreur, alors remplacez toute cette procédure par celle ci :

Private Sub CBnRésultat_Click()
Dim LDon As Long, LLgn As Long ', L As Long , TDon()
'TDon = CL.PlgTablo.Resize(, 26).Value
LDon = TLgn(1)
'For L = 20 To 24: WshRésCC.Cells(L, "C").Value = TDon(LDon, L - 18): Next L
'WshRésCC.[F20].Value = TDon(LDon, 1)
'WshRésCC.[F26].Value = TDon(LDon, 26)
CL.PlgTablo.Rows(LDon).Name = "LCou"
For LLgn = 1 To UBound(TLgn)
   LDon = TLgn(LLgn)
'   WshRésCC.Cells(LDon + 31, "C") = TDon(LDon, 8)
'   WshRésCC.Cells(LDon + 31, "D") = TDon(LDon, 18)
   CL.PlgTablo.Rows(LDon).Name = "LCCL" & LLgn
   Next LLgn
End Sub

Ou mieux, si on adopte définitivement ce système, celle ci :

Private Sub CBnRésultat_Click()
Dim LDon As Long, LLgn As Long
LDon = TLgn(1)
CL.PlgTablo.Rows(LDon).Name = "LCou"
For LLgn = 1 To UBound(TLgn)
   LDon = TLgn(LLgn)
   CL.PlgTablo.Rows(LDon).Name = "LCCL" & LLgn
   Next LLgn
End Sub

2) — dans la feuille "Tables et noms, il ne faut pas prévoir de colonne supplémentaire pour les version 2 à 6 du nom se terminant par "1", c'est fait automatiquement à partir du 1er Nom CC spécifié.

Mais je ne sais pas ce qui se passe, je n'arrive pas à le rattraper, il n'accepte plus aucun nom.
Le mieux c'est que je joigne le mien.

 

[dukoko]

Encore merci pour toute ton aide...
Vraiment...
A+

 

[dukoko]

Hello je reposte un message, car grâce au super boulot que tu as réaliser sur le fichier je viens de réaliser mes premiers code de combobox liées et je tenais te remercier.😀