Problème avec l'aperçu avant impression

[Cydor007]

Bonjour à tous,

J'ai un souci avec une fonction dans excel. J'aimerais empêcher un utilisateur d'utiliser la fonction d’aperçu avant impression. La situation est que j'obtiens une erreur d'exécution 50290, erreur définie par l'application ou par l'objet.

Dans ma feuille, nommée Fiche d'injection, j'ai un bouton, nommé OK_ANTI_LEVÉ, sur lequel l'utilisateur doit peser. par la suite, quand il clique sur l’aperçu avant impression, l'erreur 50290 s'affiche.

Voici le code dans ma feuille:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
'TextBox1.Enabled = True
'Note_Anti_levée.Visible = True
'Call créer_zone_texte_Anti_levée
OK_ANTI_LEVÉ.Visible = True (L'ERREUR 50290 EST LIÉE À CETTE LIGNE)
OK_ANTI_LEVÉ.Enabled = True
OK_ANTI_LEVÉ.Value = False
Sheets("Fiche injection").Range("N75").Value = "vrai"
Sheets("Fiche injection").Range("M75").Value = "VRAI"
Sheets("Fiche injection").Range("o75").Value = 1
Else
'Note_Anti_levée.Visible = False
'TextBox1.Visible = False
'TextBox1.Enabled = False
Sheets("Fiche injection").Range("N75").Value = "faux"
Sheets("Fiche injection").Range("o75").Value = 1
OK_ANTI_LEVÉ.Enabled = False
Call Effacer_note
'OK_ANTI_LEVÉ.Visible = False
End If
End Sub

Private Sub OK_ANTI_LEVÉ_Click()
If OK_ANTI_LEVÉ Then
Sheets("Fiche injection").Range("N75").Value = "FAUX"
Sheets("Fiche injection").Range("M75").Value = "FAUX"
Sheets("Fiche injection").Range("O75").Value = 0
OK_ANTI_LEVÉ.Enabled = False
End If
End Sub

L'erreur est que quand je clique sur le bouton OK_ANTI_LEVÉ, je le désactive et c'est cela qui cause une erreur. Est-ce qu'il y a un moyen d'empêcher cette erreur? J'ai pensé à bloquer l'accès à la fonction aperçu pour contourner le problème, mais je n'y arrive pas.

Quelqu'un à une idée de génie?

Merci

Cydor007

 

[Roland_M]

Bonsoir,

tu ne peux accéder au bouton sur une feuille ainsi, ce n'est pas comme sur un userform !
du côté vb ce sera un shape !
ensuite Enabled n'est pas dans les propriétés d'un Shape

comme ceci oui !
Sheets("Fiche injection").Shapes("OK_ANTI_LEVÉ").Visible = True 'False