Fonction Cells.find mais quand il ne trouve rien? - VB/VBA/VBS - Programmation
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
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