Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le
" Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère
dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci
change ?
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
Daniel.C
Bonjour. Essaie :
Private Sub CommandButton1_Click() Dim LargInit As Integer LargInit = Me.Width Me.Width = 400 Me.Left = Me.Left + (LargInit - 400) / 2 End Sub
Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Private Sub CommandButton1_Click()
Dim LargInit As Integer
LargInit = Me.Width
Me.Width = 400
Me.Left = Me.Left + (LargInit - 400) / 2
End Sub
Cordialement.
Daniel
"Tatane" <ple5@hotmail.fr> a écrit dans le message de news:
6ACA0726-50EF-4DA2-8EAF-6CC3444C3C44@microsoft.com...
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans
le
" Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère
dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de
celui-ci
change ?
Private Sub CommandButton1_Click() Dim LargInit As Integer LargInit = Me.Width Me.Width = 400 Me.Left = Me.Left + (LargInit - 400) / 2 End Sub
Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Private Sub CommandButton1_Click() Dim LargInit As Integer LargInit = Me.Width Me.Width = 400 Me.Left = Me.Left + (LargInit - 400) / 2 End Sub
Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Private Sub CommandButton1_Click()
Dim LargInit As Integer
LargInit = Me.Width
Me.Width = 400
Me.Left = Me.Left + (LargInit - 400) / 2
End Sub
Cordialement.
Daniel
"Tatane" <ple5@hotmail.fr> a écrit dans le message de news:
6ACA0726-50EF-4DA2-8EAF-6CC3444C3C44@microsoft.com...
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans
le
" Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère
dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de
celui-ci
change ?
Private Sub CommandButton1_Click() Dim LargInit As Integer LargInit = Me.Width Me.Width = 400 Me.Left = Me.Left + (LargInit - 400) / 2 End Sub
Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Bonjour L'autocentrage dépend ... de ton écran ! Tu peux fixer sa position quand même : http://www.excelabo.net/excel/userformafficher.php#positionfixe voir aussi le autres astuces du même genre sur cette page. Misange
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à chaque changement de taille que je bloque.
Bonjour
L'autocentrage dépend ... de ton écran !
Tu peux fixer sa position quand même :
http://www.excelabo.net/excel/userformafficher.php#positionfixe
voir aussi le autres astuces du même genre sur cette page.
Misange
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à
chaque changement de taille que je bloque.
Bonjour L'autocentrage dépend ... de ton écran ! Tu peux fixer sa position quand même : http://www.excelabo.net/excel/userformafficher.php#positionfixe voir aussi le autres astuces du même genre sur cette page. Misange
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à chaque changement de taille que je bloque.
isabelle
bonjour Tatane,
essaie en le mettant à la position 0 (réinitialise) avant de le recentrer.
isabelle
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à chaque changement de taille que je bloque.
bonjour Tatane,
essaie en le mettant à la position 0 (réinitialise) avant de le recentrer.
isabelle
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à
chaque changement de taille que je bloque.
essaie en le mettant à la position 0 (réinitialise) avant de le recentrer.
isabelle
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à chaque changement de taille que je bloque.
Tatane
Pour Misange => Je vais aller voir ce WE. Merci. Pour Isabelle => Merci mais j'ai déjà essayé et cela ne me convient pas.
Je pense le fermer puis le réouvrir, comme ça le "StartUpPosition" fonctionnera sûrement !
Bon WE à tous. Je vous tiens au courant Lundi . -- http://www.club-assun-billard.fr/ http://8pool.over-blog.com/ http://meme-pas-peur.miniville.fr/
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Pour Misange => Je vais aller voir ce WE. Merci.
Pour Isabelle => Merci mais j'ai déjà essayé et cela ne me convient pas.
Je pense le fermer puis le réouvrir, comme ça le "StartUpPosition"
fonctionnera sûrement !
Bon WE à tous. Je vous tiens au courant Lundi .
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le
" Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère
dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci
change ?
Pour Misange => Je vais aller voir ce WE. Merci. Pour Isabelle => Merci mais j'ai déjà essayé et cela ne me convient pas.
Je pense le fermer puis le réouvrir, comme ça le "StartUpPosition" fonctionnera sûrement !
Bon WE à tous. Je vous tiens au courant Lundi . -- http://www.club-assun-billard.fr/ http://8pool.over-blog.com/ http://meme-pas-peur.miniville.fr/
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Private Sub CommandButton1_Click() Dim LargInit As Integer LargInit = Me.Width Me.Width = 400 Me.Left = Me.Left + (LargInit - 400) / 2 End Sub
Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?
Mon code recentre l'userform. J'ai mis 400 pour l'exemple. Tu peux remplacer
par une variable.
Daniel
"Tatane" <ple5@hotmail.fr> a écrit dans le message de news:
083F8C93-FD15-4DFB-910C-AD65412BC45E@microsoft.com...
Bonjour "Daniel.C",
Merci mais pour la taille, je l'ai déja fait, c'est pour l'auto-centrage à
chaque changement de taille que je bloque.
Private Sub CommandButton1_Click()
Dim LargInit As Integer
LargInit = Me.Width
Me.Width = 400
Me.Left = Me.Left + (LargInit - 400) / 2
End Sub
Cordialement.
Daniel
"Tatane" <ple5@hotmail.fr> a écrit dans le message de news:
6ACA0726-50EF-4DA2-8EAF-6CC3444C3C44@microsoft.com...
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien
dans
le
" Private Sub UserForm_Initialize() " mais est obsolète quand je
l'insère
dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de
celui-ci
change ?
Private Sub CommandButton1_Click() Dim LargInit As Integer LargInit = Me.Width Me.Width = 400 Me.Left = Me.Left + (LargInit - 400) / 2 End Sub
Cordialement. Daniel "Tatane" a écrit dans le message de news:
Bonjour,
Ma ligne de commande " Matchs.StartUpPosition = 2 " fonctionne bien dans le " Private Sub UserForm_Initialize() " mais est obsolète quand je l'insère dans le code d'un bouton.
Pourriez-vous m'aider à autocentrer mon Userform quand la taille de celui-ci change ?