Aide sur Find en VBA

[Didier972]

Bonjour

Voilà, je ne sais pas comment dire a la Méthode Find, que si il ne trouve pas la recherche = Then, il n'accepte pas
Je vous envoie mon code pour voir si vous voyez mon erreur.
Merci d'avance.

'MsgBox Oui + Non
Select Case MsgBox("A t'il réglé sa carte ?", vbYesNo, "Règlement de la Carte Boisson.")
Case vbYes
ActiveCell.Offset(0, 1) = "X" 'procédure si click sur Oui
Case vbNo
'Rempli la feuil Dette s'il répond Non au règlement
Nom = LB_reglement
Worksheets("Dette").Activate
If Columns(1).Find(Nom, , , , , Previous) = "" Then ' C'est ici que ca bloque
Else
Range("A6").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell = LB_reglement
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1).Value + 10
End If
End Select

 

[Didier972]

Re : Aide sur Find en VBA

Merci, tout le monde pour ce coup de Main, tout fonctionne, je vous souhaite une bonne journée.

Didier