demande pour une recherche

[fgottibe]

Voilà, j'aimerais faire une recherche dans une colonne précise et faire une recherche qui éditerait dans une autre colonne le nombre de fois que le mot recherché s'y trouve.

 

[porcinet82]

Re : demande pour une recherche

Salut,

Comme tu es nouveau, une simple mise en garde concernant la politesse sur ce forum. Un petit bonjour et un petit merci à te demande ont des chances d'accélerer cette dernière...

Sinon, tu veux une macro ou une formule ?

@+

 

[fgottibe]

Re : demande pour une recherche

Salut,

Comme tu es nouveau, une simple mise en garde concernant la politesse sur ce forum. Un petit bonjour et un petit merci à te demande ont des chances d'accélerer cette dernière...

Sinon, tu veux une macro ou une formule ?

@+

oui pardon, une formule serait sympa mais une macro encore mieux.

Merci bcp

 

[porcinet82]

Re : demande pour une recherche

re,

Alors, te voici une fonction (a placer dans un module standard) :

Function Cherch_val(plage As Range, val As Variant) As Variant
Dim cpt&, cell As Range
For Each cell In plage
    If cell.Value = val Then cpt = cpt + 1
Next cell
Cherch_val = cpt
End Function

Ou une macro classique :

Sub test()
Dim i%, cpt&, term_recherche As Variant
term_recherche = "a"
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Value = term_recherche Then cpt = cpt + 1
Next i
Range("B1").Value = cpt
End Sub

@+