cellule de recherche

[pancaspremium]

bjr
j'essaie en vain de crééer une macro qui simule les fonctions suivantes

dans une cellule on tappe un chiffre ou un nom, ensuite copier coller
ctrl + a
ctrl + f
ctrl + v
rechercher

le but est d'accéler la recherche de données dans un onglet excel avec beaucoup de lignes
on utilisant la création automatique avec les étapes décrites, cela ne marche pas
la recherche n'est pas démarrée.
quelqu'un peut m'aider ?
merci

 

[dionys0s]

Re : cellule de recherche

Bonjour pancaspremium,
bonjour le forum,

utilise l'enregistreur de macro pour faire juste un Ctrl+F, et lis le code associé après enregistrement. Tu ne devrais pas avoir beaucoup de mal à le modifier et l'adapter. Pour ce que tu veux faire, pas besoin de simuler de Ctrl+A et Ctrl+F je pense.

 

[VDAVID]

Re : cellule de recherche

Bonjour pancaspremium, dionys0s,

A tester dans le projet de la feuille concernée, en admettant que la cellule "recherche" soit en "A1":

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim c As Range, FirstAddress As String
    
    'Cellule "recherche": ici Range("A1")
    If Target.Address = Range("A1").Address Then
        
        If Target.Value = "" Then Exit Sub
        Set c = Cells.Find(Target.Value, , xlValues, xlWhole)
        
        If Not c Is Nothing Then
        
        FirstAddress = c.Address
        Do
            
            If c.Address <> Target.Address Then
                
                c.Select
                If MsgBox("Passez à la cellule suivante?", vbYesNo, "Information") = vbNo Then Exit Sub

            End If
            
            Set c = Cells.FindNext(c)
            
        Loop While Not c Is Nothing And c.Address <> FirstAddress
        
        End If
        MsgBox "Terminé"
    
    End If
    
End Sub

Alt+F11 ==> Double clique sur la feuille concernée
Bonne journée

 

[pancaspremium]

Re : cellule de recherche

hello
merci pour votre aide, mais je dois être nul de nul
car ni la première ni la deuxième solution marchent
j'annexe un fichier bidon, la zone de recherche est : E2

pouvez vous svp me dépanner
merci à tous

 

[VDAVID]

Re : cellule de recherche

Re pancaspremium,

Pour ma part, le code doit être dans le projet de ta feuille et non pas dans un module ! ^^
Voir la pièce jointe

 

[pancaspremium]

Re : cellule de recherche

hello
Merci VDAVID

ça marche mais si jeux que l'on trouve 'anz' qui se trouve dans i12 cela ne marche pas,

il faut que même s'il n'y à que une partie du mot qui est trouve ou chiffre la ligne soit trouvée avec le contenu.


possible ?

 

[VDAVID]

Re : cellule de recherche

Re,

Oui, sur la ligne de code:

Set c = Cells.Find(Target.Value, , xlValues, xlWhole)

Il faut remplacer xlWhole par xlPart
Comme ceci:

Set c = Cells.Find(Target.Value, , xlValues, xlPart)

 

[pancaspremium]

Re : cellule de recherche

hello
Merci VDAVID
c'est TOP