probleme plantage macro

[judoka0209]

bonjour, ma macro plante juste après l’aperçu et fait planter excel (voir image ci joint)

Private Sub CommandButton1_Click()
  Dim i As Byte
  Dim plage As Range
 
  Annuler = False 'passer à faux avant l'impression...
 
  For i = 1 To 12
 
  If Controls("checkbox" & i) = True Then Range(Controls("checkbox" & i).Tag).PrintPreview
 
  ' impression en couleurs
  ActiveSheet.PageSetup.BlackAndWhite = False
 
  Next
 
  Annuler = True '...puis à vrai après !
 
  Unload Me

End Sub

 

[Staple1600]

Bonsoir le fil, le forum

@judoka0209
Les images ne sont pas des plus utiles.
On préfère un bon fichier exemple de derrière les fagots

PS: Je répété mon petit speech sur l'emploi des balises BBCODE.
(voir ma signature)

 

[judoka0209]

voila le planning c'est dans la parti impression

 

[Staple1600]

Re

Tu n'as pas lu parti de mon message qui parle des balises BBCODE ?

Cela permet pourtant d'avoir des messages plus agréables à lire...

 

[judoka0209]

si mais c'est quoi ton BBCODE

 

[judoka0209]

je crois que j'ai trouve

 

[Staple1600]

Re,

si mais c'est quoi ton BBCODE

@judoka0209
Je t'ai mis un lien dans ton autre fil
(Sinon il suffit de lire ce qui est écrit dans ma signature pour comprendre...)

PS:
Si tu as trouvé, tu es donc en mesure d'éditer tes messages pour formater tes codes VBA pour un meilleur confort visuel

 

[judoka0209]

super mais ca mas pas reglé mon probleme (LOL)

 

[job75]

Bonjour judoka0209, JM,

J'avoue ne pas comprendre ce que tu fais sur XLD Jean-Marie.

Il y a un problème posé, il faut le résoudre, ce n'est pas la mer à boire :

Private Sub CommandButton1_Click()
    Dim i As Byte
   
    Annuler = False 'passer à faux avant l'impression... job75 : pour faire quoi ???
   
    Unload Me
   
    ActiveSheet.PageSetup.BlackAndWhite = False
       
    For i = 1 To 12
        If Me("CheckBox" & i) Then
            ActiveSheet.PageSetup.PrintArea = Me("CheckBox" & i).Tag 'zone d'impression
            ActiveSheet.PrintPreview
        End If
    Next
   
    Annuler = True '...puis à vrai après ! job75 : pour faire quoi ???

End Sub

Fichier joint, j'ai aussi ajouté une feuille "Couleurs" qui manquait...

A+

 

[judoka0209]

j'ai une macro qui empecher l'impression,
c'est pour la desactiver et la reactiver mais ca marche pas bien

Annuler = False 'passer à faux avant l'impression... job75 : pour faire quoi ???
Annuler = True '...puis à vrai après ! job75 : pour faire quoi ???

 

[job75]

Vous pourriez au moins dire ce que vous pensez de la solution proposée !!!

 

[judoka0209]

excuse moi j'avais juste répondu à ta question sinon ça marche nickel
sauf que je veux bloquer l'impression quand on fait fichier imprimer
je veux que l'on passe par mon bouton
c'est pour ca quil y a le annule mais ca marche pas j'ai du oublier quelques choses
merci

 

[job75]

Re,

je veux que l'on passe par mon bouton

Pour faire cela la variable Annuler est totalement inutile, voyez ce fichier (2).

A+

 

[judoka0209]

super ca marche
merci