probleme plantage macro

judoka0209 · 27 Juin 2018

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

VB:

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 · 27 Juin 2018

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 · 27 Juin 2018

voila le planning c'est dans la parti impression

Staple1600 · 27 Juin 2018

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 · 27 Juin 2018

si mais c'est quoi ton BBCODE

judoka0209 · 27 Juin 2018

je crois que j'ai trouve

Staple1600 · 27 Juin 2018

Re,

judoka0209 à dit:
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 · 28 Juin 2018

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

job75 · 28 Juin 2018

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 :

Code:

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 · 28 Juin 2018

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

VB:

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

job75 · 28 Juin 2018

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

judoka0209 · 28 Juin 2018

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 · 28 Juin 2018

Re,

judoka0209 à dit:
je veux que l'on passe par mon bouton

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

A+

judoka0209 · 29 Juin 2018

super ca marche
merci

probleme plantage macro

judoka0209

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

judoka0209

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

judoka0209

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

judoka0209

XLDnaute Occasionnel

Discussions similaires