empecher l'exécution d'un controle

Version imprimable

bonjour forum.
j'ai un petit soucis avec ce code.je galère depuis là

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
With Sheets("fiche")
    If T1 = "" Or T2 = "" Then
        MsgBox " Autorisation réfusée car aucun élément séléctionné", vbExclamation, "ERROR MESSAGE"
        T_fitre.SetFocus
        Cancel = True
    Exit Sub
End If
 
.Range("b11") = T6
.Range("b12") = P8
.Range("b17") = T11
.Range("b18") = T1
.Range("b19") = P7
.Range("b20") = T2
.Range("b21") = T3
.Range("b22") = T6
.Range("b27") = S1
.Range("b28") = S3
.Range("b29") = S5
.T_case_photo.Text = Me.T_photo3.Caption
 
'imprimer une feuille
   Application.ScreenUpdating = False
      Me.Hide
      Feuil4.Visible = True
    Feuil4.PrintPreview
 
    Me.Show
  Application.ScreenUpdating = True
 
End With

à l'exécution c'est le visionnage de l'impression qui se lance et non le message malgré mes textbox vides

10/09/2018, 10h49
a_diard

Bonjour

Vérifier en mode pas à pas le contenu de T1 & T2

peut être mettre

T_fitre.T1 & T_fitre.T2

j'ai peu que le With Sheets("fiche") génère le problème
10/09/2018, 14h52
Mr l'Ashanti

Citation:

Envoyé par a_diard

Bonjour

Vérifier en mode pas à pas le contenu de T1 & T2

peut être mettre

T_fitre.T1 & T_fitre.T2

j'ai peu que le With Sheets("fiche") génère le problème

merci pour ta reponse mais en fait t_fitre c'est la case de recherche. j'ai mis t_fitre.set focus croyant que ça allait marcher.
les T1 et T2 sont des controls labels car je ne souhaiterais pas que l'utilisateur modifie ces données.
j'avais lancé le mode pas à pas mais il s'active dans une autre procédure c'est que je ne comprends pas alors que je suis sur la procédure active.
je viens de modifier le code mais toujours rien