Fonction Cells.find mais quand il ne trouve rien?

Fonction Cells.find mais quand il ne trouve rien? - VB/VBA/VBS - Programmation

Marsh Posté le 06-03-2006 à 15:41:10    

Bonjour à tous,
 
J'ai un petit soucis en VB sous Excel, j'utilise la fonction cells.find pour faire une recherche dans une colonne mais mon soucis est lorsqu'il ne trouve pas, il me plante ma macro.
 
J'aimerais donc qu'il me retourne "0" lorsqu'il ne trouve pas ou qu'il passe à l'étape suivante.
Voici mon code utilisé:
 
Cells.Find(What:="xadne", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
nomprelv = ActiveCell.Value  
 
Merci de votre aide,
Olivier

Reply

Marsh Posté le 06-03-2006 à 15:41:10   

Reply

Marsh Posté le 12-07-2011 à 11:20:09    

Salut! j'avais le meme probleme et en cherchant un peu j'ai trouve sur un autre forum, je sais que c'est 5 ans apres mais mieux vaux tard que jamais...
 
Sub recherche()
    Dim VariableAdresse As Range    
    Set VariableAdresse = Range("la ou tu cherche" ).Find(what:="ce que tu cherche" )
   If VariableAdresse Is Nothing Then
        MsgBox "Pas trouvé"
    Else
        MsgBox VariableAdresse.Address
    End If
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed