Recherche dans un deuxième Userform en fonction d'une date et heure

[Geely]

Bonjour bonjour le Forum



Après la recherche dans la feuille "identité" j'affiche le résultat dans la Listbox1. Je souhaite ensuite afficher un autre Userform lorsque l'on clic sur une des lignes des résultats de la recherche.
cette deuxième fenêtre doit s'ouvrir avec les 10 identités de la feuilles "contrôles" entourant la date et heure (au plus près) du résultat sélectionné. (en rouge dans l'exemple)
Pas simple a expliquer clairement, donc voici un petit fichier joint avec une première ébauche


Geely

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Geely le forum
voilà ton fichier en retour avec la variable ligne trouvée!!
tu n'as plus qu'a remplir l'userform2 avec ce que tu veux
a+
Papou

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Re Geely le forum
bon allé j'ai fait aussi le remplisage sans savoir si c'est bon car les explications sont inexistantes dans le fichier il faut deviner ce que Monsieur Geely a dans la tête !!!!
si c'est pas cela il faudra simplement expliquer comme il faut dans le fichier en on modifiera
a+
Papou

 

[laetitia90]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

bonjour Geely ,l'ami Papou

suite a l'autre post essai avec ce new code pour la vitesse de remplissage
comme dit papou manque d'explication les dates se suive ect...
+ une approche sur ta qst...pour remplir la recherche j'ai mis sur meme user pour simplifier
apres replus la jusqu'a demain soir

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Ptites Couettes (elles me manquent) le forum
j'avais pas vu que tu étais sur le sujet Laetitia si c'est le cas excuses moi
bisous
pour copier Laetitia voilà la version 3
a+
Papou

 

[Geely]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Laetitia90 & Paritec et le Forum
Un grand merci a vous deux, merci d'avoir jeté un œil sur mon problème et d'y trouver une réponse.
Il est vrai que mes explications n’étaient pas claires et surtout insuffisantes. je n'aurai jamais pu aboutir à ce résultat.

Cela dit, vous avez bien deviné comment remplir l'userform2, le seul petit problème est qu'il ne faut pas afficher le résultat si la cellule est vide, (exemple afficher si "AT = 2" rien si "AT = " comme dans Userform1).

Une autre question: Comment modifier le code pour faire les recherches sur le nom de la feuille (identité ou Contrôle) plutôt que Feuilx.


Le but de ce fichier, est de faire une recherche d'identité, d'afficher les résultats (biologique) et d'avoir un lien pour afficher les contrôles réalises sur le robot d'analyse juste avant et après les résultats de l'identité précédemment recherchée.

Bonne idée, Laetitia d'afficher tout dans un seul userform.

@+
Geely

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Geely le forum
voilà si cette fois ci j'ai compris mais là encore pas sur
a+
papou

 

[Geely]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Paritec/papou

Super c'est bien ça. je me suis battu hier soir jusqu’à pas d'heure, et toi au beau matin tôt d'un jour férié, tu m'offres la solution.
Je regarde cela de près pour comprendre.
Geely

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Geely le forum
oui je n'ai vu ta réponse que ce matin !!
par contre si tu avais été moins avares d'explications tu aurais eu la réponse complète la première fois
bon week-end
Papou

 

[Geely]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Ok
J'y serai attentif
Merci encore.
bon week-end également
Geely

 

[Geely]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

RE
Une petite question comment modifier le code pour nommer les feuilles par le nom et non par le numéro.

par exemple ici

 If ligne <> 0 Then
        With Feuil4
            cc = .Range("I1:BB1")
            cc = Application.Transpose(cc)

là

 If ligne <> 0 Then
        With Feuil4

ici je souhaite nommer la feuille "Contrôles" et non feuil4 car le numéro des feuilles n'est pas toujours le même.



Pour là j'ai mis "sheets("identité").Select ce qui ne doit pas être la meilleur solution

Private Sub CommandButton1_click()    'bouton Lancer la recherche
    Dim t$, lig&, i&, j As Byte, col As Byte
    Sheets("identité").Select
    ListBox1.List = Range("a7:bb7").Value
    With ListBox1
        .Clear
        t = "*" & LCase(TextBox1) & "*"
        For lig = 2 To Cells(Rows.Count, 5).End(xlUp).Row
            If LCase(Cells(lig, 5)) Like t Then
                .AddItem
                .List(i, 0) = Cells(lig, 6)    'date
                .List(i, 1) = Cells(lig, 5)    'identité
                j = 2

Geely

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Bonjour Geely le forum,
bon alors pour tes demandes

 If ligne <> 0 Then
        With sheets("Contrôles")
            cc = .Range("I1:BB1")
            cc = Application.Transpose(cc)

Pour là j'ai mis "sheets("identité").Select ce qui ne doit pas être la meilleur solution

pour ton sheets("Identité") c'est ok mais le select ne sert à rien
si tu écris with sheets("Identité") tu n'as plus à activer ta feuille ou à la sélectionner pour charger ton userform
par contre tu dois après mettre un point devant tes ranges

a+
papou

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Re Bonjour Geely le forum
bon j'ai modifié ta macro car tu as avec ta méthode de remplissage un gros défaut tu ne peux pas avoir plus de 10 colonnes dans ta listbox alors si tu as des chr ect plus que 8 ta macro immanquablement va bugger
Bref j'ai refais la macro là maintenant tu peux en mettre jusqu'a la colonne BB si tu en as besoin
a+
papou

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Re Geely le forum
bon voilà une autre version pour moi plus simple à utiliser et surtout sans limite dans les colonnes, et avec un chargement de la listbox plus rapide, si tu veux vérifier et me redire
a+
papou

 

[Paritec]

Re : Recherche dans un deuxième Userform en fonction d'une date et heure

Re Geely le forum
j'ai modifié car il y avait un petit bug en cas de récupération d'une seule ligne en Listbox1 voilà a toi de tester
a+
papou