Arreter une macro recherche si valeur pas présente [Résolu]
A voir également:
- Access macro recherche enregistrement
- Application.dialogs(xldialogformulafind).show - Meilleures réponses
- Macro copier coller valeur dans une autre feuille ✓ - Forum - Visual Basic
- Recherche d'enregistrement sur un formulaire Accéss - Forum - Visual Basic
- Recherche deux valeur texte box ✓ - Forum - C# / .NET
- Delphi - Oracle, comment rechercher une valeur dans un champ ? ✓ - Forum - Delphi / Pascal
- Recherche selon valeur du ComboBox ✓ - Forum - Visual Basic 6
3 réponses
ucfoutu
- Messages postés
- 18038
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Bonjour,
Je ne comprends pas.
Il a bien fallu que tu lances la recherche en cliquant sur "Find Next", non ?
Tu peux l'arrêter à tout moment en cliquant sur "Close".
EDIT : mais par "arrêter", tu veux peut-être dire autre chose, comme être informé de l'erreur sans provoquer de bug ?
Il suffit alors d'une simple gestion d'erreur, comme dans cet exemple :
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Je ne comprends pas.
Il a bien fallu que tu lances la recherche en cliquant sur "Find Next", non ?
Tu peux l'arrêter à tout moment en cliquant sur "Close".
EDIT : mais par "arrêter", tu veux peut-être dire autre chose, comme être informé de l'erreur sans provoquer de bug ?
Il suffit alors d'une simple gestion d'erreur, comme dans cet exemple :
On Error Resume Next
Application.Dialogs(xlDialogFormulaFind).Show , 547
If Err.Number = 1004 Then MsgBox "valeur inexistante"
On Error GoTo 0
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
ucfoutu
- Messages postés
- 18038
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Tu peux d'ailleurs également utiliser les paramètres de la boîte de dialogue, ainsi (exemple) :
et Excel t'informera si inexistence, sans tout "casser".
Ton erreur, dans ton premier code) est en fait ta première virgule, qui n'a aucune raison d'être là !
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Application.Dialogs(xlDialogFormulaFind).Show 547, , , , xlNext, True
et Excel t'informera si inexistence, sans tout "casser".
Ton erreur, dans ton premier code) est en fait ta première virgule, qui n'a aucune raison d'être là !
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.