Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Sitting Hoax
Bonjour, je pense que On error Goto fin par exemple soit suffisant
Sub recherche() On Error GoTo fin ChDir ThisWorkbook.Path Workbooks.Open Filename:=[feuil1!a2] Cells.Find(What:=InputBox("votre numéro?"), After:¬tiveCell, _ LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:= _ xlNext, MatchCase:úlse).Activate fin: MsgBox "le numéro ne figure pas dans ce classeur", _ vbInformation, "erreur !" End Sub
Amicalement Siesting Hoax
"Bidou" a écrit dans le message de news: 476e3c3a$0$878$
Bonjour,
Je souhaiterais intégrer dans ma macro un message " le numéro ne figure pas dans ce classeur" en cas de recherches vaines mais je n'y arrive pas
Bonjour,
je pense que On error Goto fin par exemple soit suffisant
Sub recherche()
On Error GoTo fin
ChDir ThisWorkbook.Path
Workbooks.Open Filename:=[feuil1!a2]
Cells.Find(What:=InputBox("votre numéro?"), After:¬tiveCell, _
LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:= _
xlNext, MatchCase:úlse).Activate
fin:
MsgBox "le numéro ne figure pas dans ce classeur", _
vbInformation, "erreur !"
End Sub
Amicalement
Siesting Hoax
"Bidou" <fa@wanadoo.fr> a écrit dans le message de news:
476e3c3a$0$878$ba4acef3@news.orange.fr...
Bonjour,
Je souhaiterais intégrer dans ma macro un message " le numéro ne figure
pas dans ce classeur" en cas de recherches vaines mais je n'y arrive pas
Bonjour, je pense que On error Goto fin par exemple soit suffisant
Sub recherche() On Error GoTo fin ChDir ThisWorkbook.Path Workbooks.Open Filename:=[feuil1!a2] Cells.Find(What:=InputBox("votre numéro?"), After:¬tiveCell, _ LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:= _ xlNext, MatchCase:úlse).Activate fin: MsgBox "le numéro ne figure pas dans ce classeur", _ vbInformation, "erreur !" End Sub
Amicalement Siesting Hoax
"Bidou" a écrit dans le message de news: 476e3c3a$0$878$
Bonjour,
Je souhaiterais intégrer dans ma macro un message " le numéro ne figure pas dans ce classeur" en cas de recherches vaines mais je n'y arrive pas
bonjour et merci Siesting hoax Je vais appliquer ce que tu m'as indiqué et je te tiens informé
"Sitting Hoax" a écrit dans le message de news: %
Bonjour, je pense que On error Goto fin par exemple soit suffisant
Sub recherche() On Error GoTo fin ChDir ThisWorkbook.Path Workbooks.Open Filename:=[feuil1!a2] Cells.Find(What:=InputBox("votre numéro?"), After:¬tiveCell, _ LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:= _ xlNext, MatchCase:úlse).Activate fin: MsgBox "le numéro ne figure pas dans ce classeur", _ vbInformation, "erreur !" End Sub
Amicalement Siesting Hoax
"Bidou" a écrit dans le message de news: 476e3c3a$0$878$
Bonjour,
Je souhaiterais intégrer dans ma macro un message " le numéro ne figure pas dans ce classeur" en cas de recherches vaines mais je n'y arrive pas
bonjour et merci Siesting hoax
Je vais appliquer ce que tu m'as indiqué et je te tiens informé
"Sitting Hoax" <l_a_u_r_e_n_t_._d_a_u_r_e_s_sansles_@orange.fr> a écrit dans
le message de news: %23VBpFgVRIHA.2208@TK2MSFTNGP06.phx.gbl...
Bonjour,
je pense que On error Goto fin par exemple soit suffisant
Sub recherche()
On Error GoTo fin
ChDir ThisWorkbook.Path
Workbooks.Open Filename:=[feuil1!a2]
Cells.Find(What:=InputBox("votre numéro?"), After:¬tiveCell, _
LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:= _
xlNext, MatchCase:úlse).Activate
fin:
MsgBox "le numéro ne figure pas dans ce classeur", _
vbInformation, "erreur !"
End Sub
Amicalement
Siesting Hoax
"Bidou" <fa@wanadoo.fr> a écrit dans le message de news:
476e3c3a$0$878$ba4acef3@news.orange.fr...
Bonjour,
Je souhaiterais intégrer dans ma macro un message " le numéro ne figure
pas dans ce classeur" en cas de recherches vaines mais je n'y arrive pas
bonjour et merci Siesting hoax Je vais appliquer ce que tu m'as indiqué et je te tiens informé
"Sitting Hoax" a écrit dans le message de news: %
Bonjour, je pense que On error Goto fin par exemple soit suffisant
Sub recherche() On Error GoTo fin ChDir ThisWorkbook.Path Workbooks.Open Filename:=[feuil1!a2] Cells.Find(What:=InputBox("votre numéro?"), After:¬tiveCell, _ LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:= _ xlNext, MatchCase:úlse).Activate fin: MsgBox "le numéro ne figure pas dans ce classeur", _ vbInformation, "erreur !" End Sub
Amicalement Siesting Hoax
"Bidou" a écrit dans le message de news: 476e3c3a$0$878$
Bonjour,
Je souhaiterais intégrer dans ma macro un message " le numéro ne figure pas dans ce classeur" en cas de recherches vaines mais je n'y arrive pas