recherche et ne trouve pas

[Laurent]

Bonjour le Forum

Je ne trouve pas la solution
quand j'execute ce code Une seule fois

Dim c As Range 'déclare la variable c
Dim plage As Range

Set plage = Sheets('Stock').Range('A1:A' & Sheets('Stock').Range('A65536').End(xlUp).Row)
With plage
Set c = .Find(ComboArticles.Value, , xlValues, xlWhole)
If c Is Nothing Then
MsgBox 'La Référence n'existe pas dans la base'
ComboArticles.SetFocus
Stock = ''
Designation = ''
Stockmini = ''
Crit1 = ''
Exit Sub

End If 'fin condition
End With

MA reCherche avec ce code ne marche plus ( recherche infrutueuse) avec ce code:

'début de la recherche
With plage

Set r = .Find(mot, Sheets('Stock').Range(col & li), xlValues) 'définit la variable c
If r Is Nothing Then 'si recherche infructueuse
MsgBox 'Mot-clé non trouvé.' 'message
TextBox1.SetFocus 'place le curseuer dans la TextBox1
TextBox1.SelStart = 0 'début de la sélection
TextBox1.SelLength = Len(TextBox1.Value)
Exit Sub
End If
End With
'continuation de la recherche
Unload Me 'vide et ferme l'UserForm1
Module3.cherche 'lance la procédure 'cherche' du module3

Nb cette recherche fonctionne bien si je ne lance pas le code du début.

Merci de m'aider
et Bonne journée a tous

 

[Laurent]

Re:le recherche fonctionne 1 fois

remarque si j'utilise la recheche seule ca marche
?
Je bloque
@+

 

[Laurent]

Re:le recherche fonctionne 1 fois

Bonjour a tous
Je vois que mon probleme n'inspire personne.
Aidez moi
nb les problèmes font avancer...

@+ laurent