Rechercher rapide

salut à tous

la macro présente sur cette feuille (dl sur votre site) permet une recherche rapide très sympa.

Peut on modifier le code de façon a avoir une recherche non plus sur la colonne A mais entre A6 et V800.

merci d'avance

Bonjour anaxagore,

Une petite adaptation. Change la macro TextBox1_Change par celle-ci :

Private Sub TextBox1_Change()
'Source : http://www.blog-excel.com/creer-un-champ-de-recherche-vba
'adaptation par vba-new

    Dim plage As Range
    Dim nbLign As Long, nbCol As Long

    Application.ScreenUpdating = False

    Set plage = Range("A6:V800")
    With plage
        nbLign = .Rows.Count    'nombre de ligne de la plage
        nbCol = .Columns.Count    'nombre de colonne de la plage
        .Interior.ColorIndex = 2

        ListBox1.Clear

        If TextBox1 <> "" Then
            'on boucle sur toutes les lignes et les colonnes de la plage
            For ligne = .Row To .Row + nbLign - 1
                For col = .Column To .Column + nbCol - 1
                    If Cells(ligne, col) Like "*" & TextBox1 & "*" Then
                        Cells(ligne, col).Interior.ColorIndex = 43
                        ListBox1.AddItem Cells(ligne, 1)
                    End If
                Next col
            Next
        End If
    End With

End Sub

Tu peux entrer la plage que tu veux.

Attention, si trop de cellules, il y aura des petits soucis de performance.

Bonjour

un essai

Tu change ton code par

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("A6:V800").Interior.ColorIndex = 2
    ListBox1.Clear

    If TextBox1 <> "" Then
        For ligne = 6 To 800
        For colonne = 1 To 22
            If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
                Cells(ligne, colonne).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
            End If
        Next
        Next
    End If

End Sub

Leakim

EDIT: Salut VBA-new, je suis confus de me retrouver avec une de tes propositions... J'ai pas le niveau

Bonjour leakim !

Un sage a dit un jour :

Leakim a écrit :

On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire...

Ton code est tout à fait juste

J'en ai fait un un peu plus "dynamique" c'est tout

bonsoir

merci à vous pour vos réponses

je vous envoie un fichier vraiment adapté. désolé de l'erreur

la recherche se fait entre A6 et V800 .

bien entendu la macro ne passe pas avec mon exemple de fichiers .

merci à vous.

Bonsoir,

Merci Vba-new pour ta sollicitude... cela m'encourage

Donc je continu, petitement à adapter le code pour ton fichier.

Le hic dans ton copier coller c'est que tu as omis de déclarer l'"option compare text" ... bref moi aussi j'apprend d’ailleurs c'est bien cela ?

J'ai remis, car c'est nécessaire avec ce code, une listbox qu'il faut conserver.

Ton fichier en retour

Leakim

Bonjour,

leakim a écrit :

Le hic dans ton copier coller c'est que tu as omis de déclarer l'"option compare text"

Bon peut-être que ce n'était pas assez clair...

Normalement même sans la déclaration de cette "Option", ça devrait marcher. L'Option Compare Text permet de ne pas distinguer les minuscules des majuscules lors de comparaison de chaîne de texte.

Ex : une recherche sur le mot "VBA" va te retourner toutes les cellules contenant "vba" ou "VBA"

En désactivant cette Option, une recherche sur le mot "VBA" te retournera seulement les cellules contenant exactement "VBA"

leakim a écrit :

bref moi aussi j'apprend d’ailleurs c'est bien cela ?

a+

Slt à tous

merci à vous pour les réponses et ça marche très bien

merci @plus et désolé pour la réponse un peu tardive mais examens médicaux obligent.

oups !! j'ai répondu un peu vite

est il possible d'avoir la macro en module de façon à éviter les copier coller sur les feuilles ainsi que les erreurs .

merci