Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouverture Execl sur USERFORM

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion 3idm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
3

3idm

XLDnaute Nouveau
Bonjour et joyeux Noël à tous les connecté ainsi qu'au Forum.

J'ai créé un Userform1 qui s'ouvre en plein écran à l'ouverture d'Excel. J'ai placé dans " ThisWorkbook " le code suivant :
'----------------------------------
Private Sub Workbook_Open()
Userform1.Show 0
End sub
'----------------------------------
Jusqu'ici tous va bien, à l'ouverture du fichier Excel, le Userform1 s'affiche.
Malgrés cela, on apperçoi au lancement, un court instant, la feuil1, ainsi que son interface, icones, cellules, barre d'outils.... d'Excel, et cela me géne, pour diverses raison propres à mon appli.

Avez-vous une solution pour suprimer cela ????

Merci d'avance de votre attention et peut-être de vos solutions entre 2 coupes de bulles.

🙂A vous lire🙂
 
Trier par date Trier par votes
Re : Ouverture Execl sur USERFORM

Bonjour 3idm

essaye peut être comme ceci :

Code: 
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Userform1.Show 0
Application.ScreenUpdating = True
End Sub

bon noël
@+

Edition : attention peut être réinitialiser le raffraichissement en fin d'initialisation de l'USF
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture Execl sur USERFORM

Bonjour 3idm

une autre solution peut être :

Code: 
Application.Visible = False
UserForm1.Show 0
Application.Visible = True

l'affichage devrait être plus court, sinon selectionner à l'ouverture du classeur une feuille vide...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Ouverture Execl sur USERFORM

Rebonjour
J'ai essayé, le phénoméne est le même mais en moin long, et cela me va bien, car on n'a plus le temps de lire les cellules en feuil1.
En attendant ta réponse, j'avais également mis toutes les polices en couleur blanche des cellule à la fermeture du fichier, histoire de les masquer...
C'est un peu tiré par les cheveux, mais fonctionne également, Systéme "D"😀

Merci pour ton temps et à charge de Revanche
A+
 
Vote positif 0 Vote négatif
Re : Ouverture Execl sur USERFORM

boonjour 3idm pierrot peut etre avec une petite tempo !!!
Option Explicit
Dim pausetime, start
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show 0
pausetime = 0.5
start = Timer
Do While Timer < start + pausetime
DoEvents
Loop
Application.Visible = True
End Sub
 
Vote positif 0 Vote négatif
Re : Ouverture Execl sur USERFORM

Merci, c aussi une solution....
J'ai résolu mon pb en masquant la feuil1 en quittant, et en l'affichant aprés le codes "UserForm1.Show 0".

Merci encore à tous les deux
😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…