Discussion :

[com-ace]

Bonjour
Cela fait un certain temps que je ne me suis connecté sur le forum.
Et je pense que je me suis un peu rouillé pendant ce temps

J'ai une recherche sur une plage nommée qui se passe très bien quand le mot recherché est trouvé
Par contre, non trouvé, j'ai une erreur que je ne comprends pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    If InStr(1, rechercheMot, "*") Then
        ' Traitement de l'étoile
    Else
        ' Recherche du mot simple
        trouve = Range("Candidats").Find(rechercheMot)
        If trouve = "" Then
            MsgBox "Votre recherche n'a pas aboutit !"
        Else
            Range("Candidats").Find(Me.motRecherche).Activate
            Ligne = ActiveCell.Row
        End If
    End If

L'erreur 91 Variable Objet ou variable de bloc with non definie

Si vous avez une idée, cela m'aiderait. Je cherche mais n'est pas encore trouvé
Merci de votre aide

[SR.SFC]

Bonjour,

Ton mot rechercé n'est pas le même !?

If InStr(1, rechercheMot, "*") Then
' Traitement de l'étoile
Else
' Recherche du mot simple
trouve = Range("Candidats").Find(rechercheMot)
If trouve = "" Then
MsgBox "Votre recherche n'a pas aboutit !"
Else
Range("Candidats").Find(Me.motRecherche).Activate
Ligne = ActiveCell.Row
End If
End If

[com-ace]

Merci de le préciser
C'est un reste de la version antérieure que j'ai par erreur, recopié.
Cette partie est la boucle qui fonctionnait avec directement une extraction du champ de l'userform.
Mais l'erreur ne pointe pas sur ce point mais sur la ligne en rouge et qui déclenche l'erreur.
J'ai changé pour stocké le champ dans une variable mais le résultat est le même

[ARTURO83]

Bonjour,
Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        Set trouve = Range("Candidats").Find(rechercheMot)
        If trouve Is Nothing Then
            MsgBox "Votre recherche n'a pas aboutit !"
        Else
            Ligne = trouve.Row
        End If

Cdlt

[com-ace]

Merci de ton aide
Le set change tout