Bonjour à tous,

Je travaille sous Excel 2003, pour la création d'un carnet de contact, je ne comprends pas la raison pour laquelle ces formules me bloque (marqué en rouge).
Je vous serai reconnaissant de bien vouloir me corriger en dessous des lignes qui posent problème, afin que je puisse comprendre, car je débute seulement en Vba.
Je suis bien entendu à votre entière disposition pour tout renseignements complémentaires.

Sub Cmd_Recherche_Change()
Dim recherche As String
Dim zoneRecherche, cellulesTrouvees As Range
lastRow As Long = activesheet.range("A & Rows.Count).End(xlUp).Row

recherche = txtRecherche.Text
Set recherche = ActiveSheet.Range("A2:a" & lastRow)
Set celulestrouvees = rechercher(recherche, zoneRecherche)

If cellulesTrouvees Is Nothing Then
MsgBox "Aucun résultat trouvé !", vbInformation, "Résultat de la recherche"
Else
cellulesTrouvees.Select
End If

End Sub

Sub Nouvelle_Recherche()
Usf_Recherche.Show
End Sub

Fonction rechercher (recherche As sting, zoneRecherche As variant) As Range 'ligne en rouge

Dim cellulesTrouvée As Range
Set cellulesTrouvées=zonerecherche.Find(What:=recherche, After:=ActiveCell, LookIn:=xlValue,SearchOrder:xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If cellulesTrouvées Is Nothing Then
Set rechercher = Nothing
Else
Set rechercher = cellulesTrouvées
End If

End Function

Mon carnet en cours de réalisation :

http://www.cjoint.com/c/FJqtAEmdWmQ

Edit : Le lien donné par Morgane ne fonctionne plus

En images : Comment héberger un fichier sur Cjoint

Bonjour,

DIM lastRow As Long il manque un Dim mais il ne faut alors pas de = ... derrière ou alors c'est Lastrow = ..... sans le as long

Dim cellulesTrouvée As Range or à la ligne suivante pas de s à trouvée

Set cellulesTrouvées ik y a s à trouvées et pas dans la déclaration d'où l'Erreur

Bonjour rj390111,

Je vous remercie de m'avoir répondu en indiquant ou était l'erreur (j'avais vu le s manquant).

Je me lance en espérant arriver au bout.

Merci encore à vous.