[RÉSOLU] Adapter une recherche par userform

Paritec

XLDnaute Barbatruc

• 22 Août 2013

• #16

Re : Adapter une recherche par userform

Bonjour Aubelix, le forum
Bon tu as la tête dur mais c'est pas grave, tous mes fichiers fonctionnent, c’est que tu ne sais pas les adapter à ton fichier.
Par contre je te fais des messages que tu ne lis même pas, là c'est moins bien et je pose des questions et là aussi aucune réponses.
bref la version 2 modifiée, puisque tu n'es pas capable d'adapter les autres qui sont pourtant bien mieux!!
a+
Papou🙂

 

Pièces jointes

• Aubelix V6.xlsm

  113.2 KB · Affichages: 53

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 22 Août 2013

• #17

Re : Adapter une recherche par userform

Bonsoir Paritec et tous les Amis du Forum.
Merci Paritec pour ton travail.
En effet TOUS tes fichiers fonctionnent très bien sur le fichier test.
Mais malheureusement j'ai un message d'erreur excepté la V2.
Je ne m'explique pas le message d'erreur sur les autres versions.
Je tenais une fois à te remercier pour ton aide et le temps que tu
m'as consacré.
Cordialement.

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 23 Août 2013

• #18

Re : Adapter une recherche par userform

Bonjour tous les Amis du Forum et en particulier à Paritec.
Si je reviens une fois de plus, c'est pour te remercier de nouveau pour ton aide et ton travail.
Tu ne peux pas t'imaginer à quel point tu m'as facilité la vie.
C'est un vrai bonheur de faire des recherches avec ta macro.
Dommage que je ne comprenne pas tout le code.
Mille mercis une fois de plus.
j'en profite pour remercier tous les bénévoles qui œuvrent sur ce Forum. 🙂
Le mot Solidarité n'est pas un vain mot...
Cordialement.

 

Dernière édition: 23 Août 2013

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 23 Août 2013

• #19

Re : Adapter une recherche par userform

Bonsoir Aubélix le forum
C'était le but recherché que tu sois content et que cela te serve.
Qu'est ce que tu ne comprends pas, si tu veux on peut essayer de commenter la macro et le pourquoi des commandes?
a+
papou🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 24 Août 2013

• #20

Re : Adapter une recherche par userform

Bonjour Aublelix le forum
voilà je t'ai fait une petite modification et je t'ai commenté le code
a+
Papou🙂

 

Pièces jointes

• Aubelix V8.xlsm

  116.5 KB · Affichages: 60

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 25 Août 2013

• #21

Re : Adapter une recherche par userform

Bonjour Paritec et tous les amis du Forum.
Désolé de revenir si tard.
Les mots sont vains comparés au travail que tu as fourni
et surtout au temps passé...
Aussi un seul Mot : Merci. 🙂
Les commentaires du code m'ont été précieux pour comprendre ton code.
Cordialement.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 25 Août 2013

• #22

Re : Adapter une recherche par userform

Re Aubelix le forum
si tu as compris ce que j'ai écris tout va bien, en fait tu sais c'est assez simple, c'est une suite de petites choses logiques
a+
Papou🙂

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 17 Septembre 2013

• #23

Re : Adapter une recherche par userform (REOUVERTURE)

Bonsoir à tous les Amis du Forum.

Après utilisation de la recherche "ultra rapide" développée par Paritec.
Plusieurs cas particuliers se sont présentés qui m'oblige à passer par le contenu
de la colonne désignation. Est-il possible d'ajouter une recherche sur la colonne
désignation tout en gardant la recherche sur les références.

Par avance, Merci pour votre aide.
Cordialement.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 17 Septembre 2013

• #24

Re : Adapter une recherche par userform

Re aubelix le forum
oui pas de soucis passe le fichier car moi je ne l'ai plus, je te ferai cela demain matin
a+
Papou😱

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 17 Septembre 2013

• #25

Re : Adapter une recherche par userform

Re Aubelix le forum
j'ai retrouvé la macro dans un fichier sur le forum
Voilà tu recopies cela à la place de l'autre
a+
Papou😱

VB:

 Private Sub CommandButton1_click()
    Dim i&, aa, bb, a&, y&, x&
    ListBox1.Clear: Label2 = ""
    With Sheets("Base")
        aa = .Range("B10:Q" & .Range("B" & Rows.Count).End(xlUp).Row)
        y = 1
        For i = 1 To UBound(aa)
            aa(i, 15) = i + 9
        Next i
        For i = 1 To UBound(aa)
            If aa(i, 1) Like "*" & TextBox1 & "*" Or aa(i, 2) Like "*" & TextBox1 & "*" Then aa(i, 16) = "oui": y = y + 1
        Next i
        If y = 1 Then Exit Sub
        ReDim bb(y - 1, 10): x = 1: y = 1
        For i = 1 To UBound(aa)
            If aa(i, 16) = "oui" Then
                For a = 1 To UBound(bb, 2)
                    If a = 8 Then x = 10
                    If a = 9 Then x = 14
                    bb(y, a) = aa(i, x): x = x + 1
                Next a
                y = y + 1: x = 1
            End If
        Next i
        With ListBox1
            .ColumnCount = 9
            .Clear
            .List = bb
        End With
    End With
    If UBound(bb) = 1 Then Label2 = "Ta recherche a trouvée " & UBound(bb) & " ligne"
    If UBound(bb) > 1 Then Label2 = "Ta recherche a trouvée " & UBound(bb) & " lignes"
End Sub

 

Dernière édition: 17 Septembre 2013

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 17 Septembre 2013

• #26

Re : Adapter une recherche par userform

Re Aubelix le forum
si tu veux je peux faire la recherche sur toutes les colonnes ?
tu me le rediras
a+
Papou😱

 

Pièces jointes

• Aubelix V9.xlsm

  113.1 KB · Affichages: 29

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 18 Septembre 2013

• #27

Re : Adapter une recherche par userform

Bonjour à tous les amis du Forum et en particulier à Paritec.
Mille mercis pour ton travail, qui une fois de plus est + que parfait.
Ta macro fonctionne très bien. J'ai réussi à l'adapter.
Quant à ta proposition pour recherches sur toutes les colonnes
si cela ne te pose pas trop de travail, je suis preneur.
Comme je te l'ai déjà dis, tu me fais gagner un temps fou acec tes macros.
Merci encore pour ton aide.
Cordialement.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Septembre 2013

• #28

Re : Adapter une recherche par userform

Re Bonjour Aubelix le forum
ta version toutes les colonnes
a+
Papou😱

 

Pièces jointes

• Aubelix V10.xlsm

  109.7 KB · Affichages: 45

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 18 Septembre 2013

• #29

Re : Adapter une recherche par userform

Re Bonjour.
Je l'ai téléchargée, adaptée, testée et tout fonctionne à merveille.
Très bon travail.
Une fois de plus Mille Mercis pour ton aide Paritec.
Cordialement.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Septembre 2013

• #30

Re : Adapter une recherche par userform

Re aubelix le forum
alors c'est parfait
a+
Papou😱

 

Vote positif 0 Vote négatif