Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value <<<<<<<<<<<<<<ici ne sert à rien??!!
Call ChoixImpressions
UserForm1.Hide
..
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value <<<<<<<<<<<< puisque c'est là que cela se
passe:
Select Case a
...je regarde le reste
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value<<<<<<<<<<<<<<ici ne sert à rien si
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value <<<<<<<<<<<<<<ici ne sert à rien??!!
Call ChoixImpressions
UserForm1.Hide
..
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value <<<<<<<<<<<< puisque c'est là que cela se
passe:
Select Case a
...je regarde le reste
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value<<<<<<<<<<<<<<ici ne sert à rien si
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:
Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: CE1B6BAF-4442-4288-A5F5-D626DEF5AB0D@microsoft.com...
Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:
Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: 933889AA-2CEC-4787-9A76-CA531EA038DF@microsoft.com...
Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value <<<<<<<<<<<<<<ici ne sert à rien??!!
Call ChoixImpressions
UserForm1.Hide
..
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value <<<<<<<<<<<< puisque c'est là que cela se
passe:
Select Case a
...je regarde le reste
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value<<<<<<<<<<<<<<ici ne sert à rien si
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:
Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: CE1B6BAF-4442-4288-A5F5-D626DEF5AB0D@microsoft.com...
Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:
Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: 933889AA-2CEC-4787-9A76-CA531EA038DF@microsoft.com...
Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
...suite et fin je crois
à priori c'est ce que je pensais , j'ai réussi à reproduire l'erreur
qui vient de ce qu'un apercu est lancé alors que le UF détient encore le
focus
il faut donc bien mettre le userform1.hide
avant la ligne du printpreview
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est
:
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour
voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
...suite et fin je crois
à priori c'est ce que je pensais , j'ai réussi à reproduire l'erreur
qui vient de ce qu'un apercu est lancé alors que le UF détient encore le
focus
il faut donc bien mettre le userform1.hide
avant la ligne du printpreview
lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: F9ED48A8-3DB8-407C-8B35-1AD62D2437BE@microsoft.com...
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est
:
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:
Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour
voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: CE1B6BAF-4442-4288-A5F5-D626DEF5AB0D@microsoft.com...
Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:
Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: 933889AA-2CEC-4787-9A76-CA531EA038DF@microsoft.com...
Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
...suite et fin je crois
à priori c'est ce que je pensais , j'ai réussi à reproduire l'erreur
qui vient de ce qu'un apercu est lancé alors que le UF détient encore le
focus
il faut donc bien mettre le userform1.hide
avant la ligne du printpreview
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est
:
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour
voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
....donc si c'est le commandButton1 qui appelle choix impression
et donc le printpreview:
...le userform1.hide doit venir juste la ligne avant le
call choiximpression.
lSteph
"LeSteph" a écrit dans le message de news:
%...suite et fin je crois
à priori c'est ce que je pensais , j'ai réussi à reproduire l'erreur
qui vient de ce qu'un apercu est lancé alors que le UF détient encore le
focus
il faut donc bien mettre le userform1.hide
avant la ligne du printpreview
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est
:
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour
voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
....donc si c'est le commandButton1 qui appelle choix impression
et donc le printpreview:
...le userform1.hide doit venir juste la ligne avant le
call choiximpression.
lSteph
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23eSTAFPxEHA.4040@TK2MSFTNGP11.phx.gbl...
...suite et fin je crois
à priori c'est ce que je pensais , j'ai réussi à reproduire l'erreur
qui vient de ce qu'un apercu est lancé alors que le UF détient encore le
focus
il faut donc bien mettre le userform1.hide
avant la ligne du printpreview
lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: F9ED48A8-3DB8-407C-8B35-1AD62D2437BE@microsoft.com...
Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est
:
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:
Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour
voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: CE1B6BAF-4442-4288-A5F5-D626DEF5AB0D@microsoft.com...
Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:
Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: 933889AA-2CEC-4787-9A76-CA531EA038DF@microsoft.com...
Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
....donc si c'est le commandButton1 qui appelle choix impression
et donc le printpreview:
...le userform1.hide doit venir juste la ligne avant le
call choiximpression.
lSteph
"LeSteph" a écrit dans le message de news:
%...suite et fin je crois
à priori c'est ce que je pensais , j'ai réussi à reproduire l'erreur
qui vient de ce qu'un apercu est lancé alors que le UF détient encore le
focus
il faut donc bien mettre le userform1.hide
avant la ligne du printpreview
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Je viens d'essayer à nouveau je reste toujours bloqué
La croix en haut du Userform1 ne répond pas de même que le reste de la
macro
qui fonctionne c'est à dire que je vois bien en prévisualisation le champ
déterminé par le ComboBox mais je ne peut pas fermer la prévisualisation
ni
stopper la macro qui ne me propose pas de déboguer
La dernière version que j'ai essayée pour le bouton OK du Userform1 est
:
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Call ChoixImpressions
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
Unload Me 'le bouton annuler fonctionne
End Sub
Lorsque je fais tourner la macro ChoixImpression elle fonctionne :
Sub ChoixImpressions()
Dim a As String
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Me.Hide
Case "EvolutionMRNF"
Call ImpressionEvolutionMRNF
UserForm1.Hide
End Select
End Sub
Sub ImpressionMRNFGuillaume()
Application.Goto Reference:="MRNFGUILLAUME"
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "FAMGUILLAUME"
End With
ActiveSheet.PageSetup.PrintArea = "MRNFGUILLAUME"
With ActiveSheet.PageSetup
.CenterFooter = "&D"
.RightFooter = "&F"
.PrintHeadings = False
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("F5").Select
Call Impression
End Sub
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Lorsque je fais tourner le userform1 avec pour le bouton1 OK :
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
'Call ChoixImpressions c'est cette partie qui bloque tout
UserForm1.Hide
End Sub
J'ai bien dans le champ choix le choix fait avec le ComboBox et le
Userform
se ferme c'est le Call ChoixImpressions qui fait problème dans le Useform
alors que cette macro ChoixImpression marche
Bien amicalement
Jean-Paul
"LeSteph" wrote:Bonjour Pierre,
Ainsi pour complèter et remercier au passage Misange..
....chez moi les deux solutions fonctionnent, reste à savoir le contexte
dans
lequel tu utilises cette macrio et
ce qui pourrait faire que cela "ne fonctionne pas chez toi"...
Pour commencer , lorsque'un programme plante il ya un message erreur qui
apparaît
il faudrait savoir lequel ensuite tu dois cliquer sur débogage pour
voir
où
l'exécutoion
s'arrête et ainsi pour que l'on puisse t'aider nous le dire.
Amicalement
lSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour
J'ai essayé votre solution et celle de Steph aucune ne marche
J'ai essayé de mettre les instructions après les call macro
cela ne marche pas non plus.
Pour l'instant je regrette mon AppelMenu du tableur concurrent plus
facile
à
mettre en oeuvre.
Affaire à suivre merci
"LeSteph" wrote:Bonsoir,
normalement la petite croix rouge en haut à droite ferme un userform
sans avoir à faire ctrl+alt+suppr
Sinon ajoute (en respectant le nom du userform ici userform1)
en fin de macro (la ligne avant end sub) ceci :
userform1.hide
'leSteph
"Jean-Paul V" a écrit dans le
message
de news:Bonjour à tous
Grace à plusieurs conseils je progresse.
J'ai un dessin d'imprimante qui appelle un ComboBox
Le bouton1 (bouton OK) a la macro
Private Sub CommandButton1_Click()
Range("Choix").Value = ComboBox1.Value
a = Range("Choix").Value
Select Case a
Case "MRNFGuillaume"
Call ImpressionMRNFGuillaume
'Case "2" sera construit lorsque le cas 1 marchera
'Call taMacro2
End Select
Unload Me 'J'ai essayé cette instruction la macro ne s'arrête
pas
et
le
userform ne se ferme pas
End Sub 'De plus j'ai bien cette instruction
je suis obligé de tout fermer avec CTRL+ALT+Supr
J'obtiens bien ce que je veux mais la macro ne s'arrête pas.
Nota la macro ImpressionMRNFGuillaume après avoir défini la zone à
imprimer
appelle Impression :
Sub Impression()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Help ou est l'erreur ?Comment terminer cette macro qui ne ce ferme
pas?
Bien Amicalement
Jean-Paul
