Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel excel bloqué

excel bloqué

3 réponses
Avatar
nicolas S
Bonjour dans le code suivant, ne voulant pas que l'userform se ferme, j'ai
supprimer Me.Hide....... résultat: bloqué comment faire sans passer par alt
ctrl sup

(La prochaine foi, je lancerais le code par F8 pas F5)



Merci de votre aide

nicolas



Dim n%, m%
Application.ScreenUpdating = False
With Workbooks.Add
With .Sheets(1)
.Range(Cells(1, 1), Cells(ListBox1.ListCount,
ListBox1.ColumnCount)).Value = ListBox1.List
Me.Hide
.Columns.AutoFit
With Sheets(1).PageSetup
.FitToPagesWide = 1
.Zoom = False
End With
.UsedRange.PrintPreview
End With
.Close False
End With
Application.ScreenUpdating = True
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour

Sans grand espoir..
Echap
ou
Ctrl+Arrêt défil

Salutations
JJ

"nicolas S" a écrit dans le message de
news:dt6o6f$2gm$
Bonjour dans le code suivant, ne voulant pas que l'userform se ferme, j'ai
supprimer Me.Hide....... résultat: bloqué comment faire sans passer par
alt

ctrl sup

(La prochaine foi, je lancerais le code par F8 pas F5)



Merci de votre aide

nicolas



Dim n%, m%
Application.ScreenUpdating = False
With Workbooks.Add
With .Sheets(1)
.Range(Cells(1, 1), Cells(ListBox1.ListCount,
ListBox1.ColumnCount)).Value = ListBox1.List
Me.Hide
.Columns.AutoFit
With Sheets(1).PageSetup
.FitToPagesWide = 1
.Zoom = False
End With
.UsedRange.PrintPreview
End With
.Close False
End With
Application.ScreenUpdating = True




Avatar
lSteph
Bonjour,
outre les propositions précédentes
Alt+F4 ou la croix devraient peut-être.

Sinon pour la suite si tu as une version récente d'excel
mets la propriété showmodal à False
cela te permet d'agir sur la feuille sans fermer le UF.
Et qd tout le travail est fini Unload Me (décharge le formulaire ) alors
que Me.hide(masque seulement le formulaire)

lSteph

"nicolas S" a écrit dans le message de news:
dt6o6f$2gm$
Bonjour dans le code suivant, ne voulant pas que l'userform se ferme, j'ai
supprimer Me.Hide....... résultat: bloqué comment faire sans passer par
alt ctrl sup

(La prochaine foi, je lancerais le code par F8 pas F5)



Merci de votre aide

nicolas



Dim n%, m%
Application.ScreenUpdating = False
With Workbooks.Add
With .Sheets(1)
.Range(Cells(1, 1), Cells(ListBox1.ListCount,
ListBox1.ColumnCount)).Value = ListBox1.List
Me.Hide
.Columns.AutoFit
With Sheets(1).PageSetup
.FitToPagesWide = 1
.Zoom = False
End With
.UsedRange.PrintPreview
End With
.Close False
End With
Application.ScreenUpdating = True




Avatar
nicolas S
merci de votre aide
j'ai fermé par alt ctrl sup

"lSteph" a écrit dans le message de news:

Bonjour,
outre les propositions précédentes
Alt+F4 ou la croix devraient peut-être.

Sinon pour la suite si tu as une version récente d'excel
mets la propriété showmodal à False
cela te permet d'agir sur la feuille sans fermer le UF.
Et qd tout le travail est fini Unload Me (décharge le formulaire ) alors
que Me.hide(masque seulement le formulaire)

lSteph

"nicolas S" a écrit dans le message de
news: dt6o6f$2gm$
Bonjour dans le code suivant, ne voulant pas que l'userform se ferme,
j'ai supprimer Me.Hide....... résultat: bloqué comment faire sans passer
par alt ctrl sup

(La prochaine foi, je lancerais le code par F8 pas F5)



Merci de votre aide

nicolas



Dim n%, m%
Application.ScreenUpdating = False
With Workbooks.Add
With .Sheets(1)
.Range(Cells(1, 1), Cells(ListBox1.ListCount,
ListBox1.ColumnCount)).Value = ListBox1.List
Me.Hide
.Columns.AutoFit
With Sheets(1).PageSetup
.FitToPagesWide = 1
.Zoom = False
End With
.UsedRange.PrintPreview
End With
.Close False
End With
Application.ScreenUpdating = True