vba : contraire de nothing

[miguelangelo]

bonjour a tous !!

pouvez vous m aider sur ces qq lignes ?

l objet est qu'a la recherche, s'il trouve la valeur correrspondant a n_facture, la commandbutton "supprimer" s'affiche...


a priori le "is not nothing" excel n'en veut pas
le parametre visible ou pas je peux pâs savoir tant que la 1ere correction n'est pas faite

Private Sub n_facture_Change()
Sheets("donnees").Select
Range("b1").Select
If Cells.Find(What:=n_facture.Value) Is Not Nothing Then regul.supprimer.Visible = True
End Sub


merci a vous

 

[kjin]

Re : vba : contraire de nothing

Bonsoir,

Private Sub n_facture_Change()
With Sheets("donnees")
set c = .Cells.Find(n_facture.Value)
If Not c Is Nothing Then regul.supprimer.Visible = True
End With
End Sub

A+
kjin

 

[miguelangelo]

Re : vba : contraire de nothing

merci bcp kjin