Arreter une macro recherche si valeur pas présente [Résolu]
BBdebutant - - Dernière réponse : BBdebutant - 6 juin 2016 à 21:01
A voir également:
- Xldialogformulafind
- 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
- Activation macro si changement VALEUR cellule ✓ - Forum - Visual Basic 6
- Recherche de valeur dans un fichier Excel vers un fichier txt VBA ✓ - Forum - VB.NET
3 réponses
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
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.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
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.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.