L
Laurent
Guest
Bonjour le Forum
Voici un casse tete.
merci de votre aide (3 semaines sans résultat)
J'ai une macro pour une recherche de désignation qui marche bien mais si je lance le code ci-dessous une seul fois la recherche ne marche plus.
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
Voici un casse tete.
merci de votre aide (3 semaines sans résultat)
J'ai une macro pour une recherche de désignation qui marche bien mais si je lance le code ci-dessous une seul fois la recherche ne marche plus.
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