rechercher une saisie dans un classeur excel par une macroRésolu

Question

Bonjour &#224; tous ,

quelqu'un pourrais t-il m'aider &#224; cr&#233;er une macro sur excel 

je voudrais rechercher via une boite de dialogue

par une inputbox ou je saisis la donn&#233;e recherch&#233;e, je voudrais parcourir le classeur complet et afficher la cellule ou se trouve la donn&#233;e demand&#233;e

merci &#224; tous pour votre aide

jpleroisse · Accepted Answer

Bonsoir,

Ce code te permet de rechercher une valeur dans la feuille active.



Sub Recherche()

Dim vValeur As Single

Dim vCellule As Range

Dim vSelection As String



vValeur = InputBox("Valeur &#224; rechercher")

Selection.Worksheet.UsedRange.Select

For Each vCellule In Selection

    If vCellule.Value = vValeur Then

        vSelection = vSelection & vCellule.Address & ","

    End If

Next

    If Len(vSelection) > 0 Then

        Range(Left(vSelection, Len(vSelection) - 1)).Select

        Selection.Interior.ColorIndex = 6

    End If

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

tibss · Answer

Salut, je viens de lire le sujet avec attention; malgré tout je me rends compte que ce programme ne marche que pour un petit classeur; 
pour un classeur de plus de 1500 lignes (et une dixaine de colonnes), cela ne marche pas et celà affiche cette erreur : "La méthode 'Range' de l'objet _Global a échoué" :o(
Au lieu de définir vValeur en tant que Single je l'ai déclaré en tant que string du fait du type de ma recherche.
Quelqu'un saurait-il me dire comment résorber ce problème?
merci d'avance :)

Rechercher une saisie dans un classeur excel par une macro

2 réponses

Discussions similaires