Message d'erreur si...

Bonsoir

Dimensionne une cellule qui récupérera le résultat de la recherche. Si cette
cellule est "nothing", c'est que le compte n'existe pas

Dim Cellule as Range
Set Cellule = cells.find(...)
if cellule is nothing then
msgbox "Ce compte n'existe pas"
else
...
end if

Cela convient-il?


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:3ec901c49f44$ad3d1330$a401280a@phx.gbl...


Bonjour à tous,

Dans le code qui suit, j'aimerais insérer un message
indiquant que le compte n'existe pas si Excel ne le trouve
pas. Je ne parviens pas à trouver.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
nom = Format(TextBox1.Text, "000000")
Sheet2.Visible = xlSheetVisible
Sheets("Database").Select
Cells.Find(What:=nom, After:=Range("B2"), _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Unload UserForm1
Update.Show
End Sub

Merci pour votre aide..

Denys

Bonjour Denys,


Private Sub CommandButton1_Click()

Dim Rg as range
Application.ScreenUpdating = False
nom = Format(TextBox1.Text, "000000")
Sheet2.Visible = xlSheetVisible
Sheets("Database").Select
Set Rg = Cells.Find(What:=nom, After:=Range("B2"), _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:úlse)
If rg is nothing then
Msgbox "Le compte n'existe pas."
Else
Rg.select 'or activate
'Select : la cellule va être visible à l'écran et sélectionnée
'la fenêtre va se déplacer au besoin !
'activate : c'est la cellule active mais pas nécessairement visible à l'écran
end if

Unload UserForm1
Update.Show
Set Rg=Nothing
End Sub


Salutations!





"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de news:3ec901c49f44$ad3d1330$a401280a@phx.gbl...


Bonjour à tous,

Dans le code qui suit, j'aimerais insérer un message
indiquant que le compte n'existe pas si Excel ne le trouve
pas. Je ne parviens pas à trouver.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
nom = Format(TextBox1.Text, "000000")
Sheet2.Visible = xlSheetVisible
Sheets("Database").Select
Cells.Find(What:=nom, After:=Range("B2"), _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:úlse).Activate
Unload UserForm1
Update.Show
End Sub

Merci pour votre aide..

Denys

Bonsoir Pierre et Denis,

Merci beaucoup d'avoir pris le temps de me répondre...
Denis, je retiens ta solution. Pierre, je retiens ton
idée, car elle me servira pour une autre application. Je
crois que cela y répondra parfaitement...

Merci encore à vous deux...

Denys

-----Message d'origine-----


Bonjour à tous,

Dans le code qui suit, j'aimerais insérer un message
indiquant que le compte n'existe pas si Excel ne le
trouve

pas. Je ne parviens pas à trouver.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
nom = Format(TextBox1.Text, "000000")
Sheet2.Visible = xlSheetVisible
Sheets("Database").Select
Cells.Find(What:=nom, After:=Range("B2"), _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext,
MatchCase:=False).Activate

Unload UserForm1
Update.Show
End Sub

Merci pour votre aide..

Denys
.