Discussion :

[wabo67]

Bonjour;

lorque que je cherche une désignation avec cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Base de données").Select
        Set c = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        If c = "" Then
        UserForm1.Hide

Et que je ne tappe pas la bonne ref il me le page erreur d execution ect...
J'aimerai qu'il me marque a la place " Référence NON disponible "

Es ce possible?

Merci d avance

[LeForestier]

Bonsoir,
Avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
On Error Goto Nimportequoi
'tes lignes de code
.......
Exit Sub
Nimportequoi:
    'FormAvecMessage.Show
'ou
    Msgbox " Référence NON disponible "
 
end sub

A+

[wabo67]

merci beaucoup exactement cela que je cherché