tactic6
XLDnaute Impliqué
Bonjour le forum et tous les autres
n'ayant pas reçu de reponse pour ma question "condition" me suis dit que c'etait pas bon, alors j'ai essayé de trouver autre chose
j'ai pensé à cacher le bouton qui n'avait rien à faire sur la feuille de travail
j'ai trouvé ceci
ouais mais ça marche pas !!!
pourquoi ???
FACTURE étant le nom de la cellule G6
et Facture le nom de la feuille
@+
n'ayant pas reçu de reponse pour ma question "condition" me suis dit que c'etait pas bon, alors j'ai essayé de trouver autre chose
j'ai pensé à cacher le bouton qui n'avait rien à faire sur la feuille de travail
j'ai trouvé ceci
Code:
Private Sub Workbook_Open()
Dim FACTURE As String, FACTUREOK As Range
Autor = Application.UserName
Set FACTUREOK = Worksheets("Facture").Range("G6").Find(FACTURE)
If Not FACTUREOK Is Nothing Then
Sheets(1).CommandButton1.Visible = True
Else
Sheets(1).CommandButton1.Visible = False
End If
End Sub
ouais mais ça marche pas !!!
pourquoi ???
FACTURE étant le nom de la cellule G6
et Facture le nom de la feuille
@+