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
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
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
Bonjour Jean-Paul,
Au lieu d'utiliser
Unload Me
Utilise :
Me.Hide
Me.Repaint
DoEvents
Salutations!
"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
Bonjour Jean-Paul,
Au lieu d'utiliser
Unload Me
Utilise :
Me.Hide
Me.Repaint
DoEvents
Salutations!
"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
Bonjour Jean-Paul,
Au lieu d'utiliser
Unload Me
Utilise :
Me.Hide
Me.Repaint
DoEvents
Salutations!
"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
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
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
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
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
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
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
Bonjour
tu sais tu n'es pas à la télé ou à la radio et tu as le droit de dire le
nom du tableur concurrent ! Les gens ici n'ont pas d'action chez
microsoft et ce n'est pas parce que c'est un forum microsoft que les
bénévoles qui t'aident sont affiliés à cette société où qu'ils
s'offusquent quand on la critique. Cela dit, le "ça ne marche pas"
n'incite guère ceux qui ont déjà passé du temps à t'aider à se
décarcasser encore.
Question naive, pourquoi veux tu développer ton truc sur excel si c'est
plus facile avec autre chose ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 07/11/2004 07:12: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
Bonjour
tu sais tu n'es pas à la télé ou à la radio et tu as le droit de dire le
nom du tableur concurrent ! Les gens ici n'ont pas d'action chez
microsoft et ce n'est pas parce que c'est un forum microsoft que les
bénévoles qui t'aident sont affiliés à cette société où qu'ils
s'offusquent quand on la critique. Cela dit, le "ça ne marche pas"
n'incite guère ceux qui ont déjà passé du temps à t'aider à se
décarcasser encore.
Question naive, pourquoi veux tu développer ton truc sur excel si c'est
plus facile avec autre chose ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 07/11/2004 07:12:
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
Bonjour
tu sais tu n'es pas à la télé ou à la radio et tu as le droit de dire le
nom du tableur concurrent ! Les gens ici n'ont pas d'action chez
microsoft et ce n'est pas parce que c'est un forum microsoft que les
bénévoles qui t'aident sont affiliés à cette société où qu'ils
s'offusquent quand on la critique. Cela dit, le "ça ne marche pas"
n'incite guère ceux qui ont déjà passé du temps à t'aider à se
décarcasser encore.
Question naive, pourquoi veux tu développer ton truc sur excel si c'est
plus facile avec autre chose ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 07/11/2004 07:12: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
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
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
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
Bonjour Jean-Paul,
Au lieu d'utiliser
Unload Me
Utilise :
Me.Hide
Me.Repaint
DoEvents
Salutations!
"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
Bonjour Jean-Paul,
Au lieu d'utiliser
Unload Me
Utilise :
Me.Hide
Me.Repaint
DoEvents
Salutations!
"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
Bonjour Jean-Paul,
Au lieu d'utiliser
Unload Me
Utilise :
Me.Hide
Me.Repaint
DoEvents
Salutations!
"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
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
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
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
