Discussion :

[Mr l'Ashanti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Mr l'Ashanti]

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