Macro de recherche

[ixelo]

Bonjour à tous.
C'est mon premier message , alors soyez indulgents si ce n'est pas ou peu compréhensible.

Voila le sujet.
Je fais une recherche de la valeur toto (rentrée dans une cellule)dans une feuille xls (portef) avec la macro suivante.( VBA excel 2003)

Dim toto As String
toto = Trim(Worksheets('base').Range('toto').Value)
Sheets('Portef').Select
Cells.Find(What:=toto, After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Select
Selection.Copy ......puis collage ailleurs

Tant qu' il y a une réponse à ma recherche dans le fichier , cela marche bien , parcontre lorsqu'il n'y a pas de réponse à ma recherche j'obtiens le message suivant:

Erreur d'éxécution 91
Variable d'objet ou variable de bloc With non définie.

Et je n'arrive pas à m'en sortir.

Cela inspire t'il quelqu'un ???

Merci d'avance.

 

[Bernard_XLD]

bonjour ixelo

une gestion d'erreur devrait régler ton problème

A+

Sub Toto_Rech()
Dim Toto As String
Toto = Trim(Worksheets('base').Range('toto').Value)
On Error GoTo Fin
Sheets('Portef').Cells.Find(What:=Toto, After:=Sheets('Portef').Range('A1'), SearchOrder:=xlByRows).Copy
On Error GoTo 0
'code à exécuter
Exit Sub
Fin:
MsgBox 'Valeur non trouvée', vbOKOnly + vbInformation
End Sub

Message édité par: yeahou, à: 16/01/2006 23:03

 

[Jacques87]

Bonsoir

Je suis persuadé que c'est du au fait que tu utilises la fonction Trim qui a pour but de supprimer les espaces devant et derrière ta valeur, et quand dans la cellule il n'y a rien, je crains que la procédure foire
A vérifier

Bonne soirée

 

[ixelo]

re bonjour à tous.

Merci Yeahou , j'ai adopté et adapté ta solution
Une vrai merveille.

Merci beaucoup.