XL 2010 Besoin d'aide programmation VBA pour fonction recherche

D

dukoko

XLDnaute Nouveau
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.
 

Pièces jointes

  • GAZO ESSAI .xlsm
    149 KB · Affichages: 48
Trier par date Trier par votes
D

dukoko

XLDnaute Nouveau
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
 

Pièces jointes

  • CBxLiéesDukoko mer.xlsm
    229.9 KB · Affichages: 35
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
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 :
VB: 
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 :
VB: 
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.
 

Pièces jointes

  • CBxLiéesDukoko.xlsm
    238 KB · Affichages: 50
Vote positif 0 Vote négatif

Discussions similaires

P
  • Question
XL pour MAC Recherche dans une liste de dates
Réponses
3
Affichages
175
pilou010
P
M
  • Résolu(e)
XL 2016 Recherche de date et de valeurs en fonction des dates
2 3
Réponses
36
Affichages
715
M@xu3L
M
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
268
Dudu2
Dudu2
Cédric06400
  • Question
Microsoft 365 Besoin d'aide "sendkeys"
Réponses
1
Affichages
96
sylvanu
sylvanu
A
  • Question
Autres EXCEL 2024-Formule complexe - demande d'aide - solution
Réponses
1
Affichages
163
Dranreb
Dranreb
S
  • Résolu(e)
Microsoft 365 Recherche de date en VBA
Réponses
6
Affichages
215
sylvanu
sylvanu
L
  • Question
Microsoft 365 Aide pour code protection cellules non vides à la fermeture
2
Réponses
22
Affichages
315
crocrocro
C
E
  • Question
XL 2016 Rechercher une valeur d'un tableau dans un autre tableau
Réponses
3
Affichages
158
JHA
J
M
  • Question
Autres Générer une étiquette pour imprimante thermique
Réponses
3
Affichages
186
fanch55
fanch55
H
  • Résolu(e)
XL 2021 Fiche de non conformité et tableau de suivi
2
Réponses
15
Affichages
837
Phil69970
Phil69970

Membres actuellement en ligne

9 membres et 162 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 103
Messages
2 085 312
Membres
102 860
dernier inscrit
fredo67