vba : contraire de nothing

miguelangelo · 8 Janvier 2011

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 · 8 Janvier 2011

Re : vba : contraire de nothing

Bonsoir,

Code:

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 · 8 Janvier 2011

Re : vba : contraire de nothing

merci bcp kjin

vba : contraire de nothing

miguelangelo

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

miguelangelo

XLDnaute Occasionnel

Discussions similaires