J'ai placé un bouton de commande qui affiche mon userform au besoin. Le
problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2).
J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail
malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas
obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
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
michdenis
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news: RWd9f.24399$7z1.322671@wagner.videotron.net...
Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le
problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2).
J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail
malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas
obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
Linebaker
Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je recherche.
Merci
"michdenis" a écrit dans le message de news: u4ZD$
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je
recherche.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u4ZD$Cc3FHA.268@TK2MSFTNGP10.phx.gbl...
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news:
RWd9f.24399$7z1.322671@wagner.videotron.net...
Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le
problème est que ce bouton demeure en haut de ma feuille de travail
(A1:B2).
J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de
travail
malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas
obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Je connaissais cette solution. Disons que ce n'est pas cela que je recherche.
Merci
"michdenis" a écrit dans le message de news: u4ZD$
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
michdenis
Tu peux te créer une barre d'outils personnalisée où tu disposera ton (tes boutons) et en utilisant ce code, tu figeras où ta barre sera disposée
'------------------------------ Sub BoutonDeCommande()
Dim B As CommandBar Dim A As Double For Each B In Application.CommandBars If B.Visible = True Then If B.Position = msoBarTop Then A = A + B.Height End If End If Next With Application.CommandBars("denis1") .Top = A + 62 .Left = 28 .Protection = msoBarNoMove + msoBarNoResize + _ msoBarNoChangeVisible + msoBarNoCustomize End With End Sub '------------------------------
Salutations!
"Linebaker" a écrit dans le message de news: j1g9f.32674$ Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je recherche.
Merci
"michdenis" a écrit dans le message de news: u4ZD$
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
Tu peux te créer une barre d'outils personnalisée où tu disposera ton (tes boutons) et en utilisant ce code, tu figeras où ta barre
sera disposée
'------------------------------
Sub BoutonDeCommande()
Dim B As CommandBar
Dim A As Double
For Each B In Application.CommandBars
If B.Visible = True Then
If B.Position = msoBarTop Then
A = A + B.Height
End If
End If
Next
With Application.CommandBars("denis1")
.Top = A + 62
.Left = 28
.Protection = msoBarNoMove + msoBarNoResize + _
msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'------------------------------
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news: j1g9f.32674$7z1.393289@wagner.videotron.net...
Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je
recherche.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u4ZD$Cc3FHA.268@TK2MSFTNGP10.phx.gbl...
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news:
RWd9f.24399$7z1.322671@wagner.videotron.net...
Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le
problème est que ce bouton demeure en haut de ma feuille de travail
(A1:B2).
J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de
travail
malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas
obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Tu peux te créer une barre d'outils personnalisée où tu disposera ton (tes boutons) et en utilisant ce code, tu figeras où ta barre sera disposée
'------------------------------ Sub BoutonDeCommande()
Dim B As CommandBar Dim A As Double For Each B In Application.CommandBars If B.Visible = True Then If B.Position = msoBarTop Then A = A + B.Height End If End If Next With Application.CommandBars("denis1") .Top = A + 62 .Left = 28 .Protection = msoBarNoMove + msoBarNoResize + _ msoBarNoChangeVisible + msoBarNoCustomize End With End Sub '------------------------------
Salutations!
"Linebaker" a écrit dans le message de news: j1g9f.32674$ Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je recherche.
Merci
"michdenis" a écrit dans le message de news: u4ZD$
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
Linebaker
Bonjour Michdenis,
Merci
"michdenis" a écrit dans le message de news: eGCnx$
Tu peux te créer une barre d'outils personnalisée où tu disposera ton (tes boutons) et en utilisant ce code, tu figeras où ta barre sera disposée
'------------------------------ Sub BoutonDeCommande()
Dim B As CommandBar Dim A As Double For Each B In Application.CommandBars If B.Visible = True Then If B.Position = msoBarTop Then A = A + B.Height End If End If Next With Application.CommandBars("denis1") .Top = A + 62 .Left = 28 .Protection = msoBarNoMove + msoBarNoResize + _ msoBarNoChangeVisible + msoBarNoCustomize End With End Sub '------------------------------
Salutations!
"Linebaker" a écrit dans le message de news: j1g9f.32674$ Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je recherche.
Merci
"michdenis" a écrit dans le message de news: u4ZD$
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
Merci
Bonjour Michdenis,
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eGCnx$c3FHA.636@TK2MSFTNGP10.phx.gbl...
Tu peux te créer une barre d'outils personnalisée où tu disposera ton (tes
boutons) et en utilisant ce code, tu figeras où ta barre
sera disposée
'------------------------------
Sub BoutonDeCommande()
Dim B As CommandBar
Dim A As Double
For Each B In Application.CommandBars
If B.Visible = True Then
If B.Position = msoBarTop Then
A = A + B.Height
End If
End If
Next
With Application.CommandBars("denis1")
.Top = A + 62
.Left = 28
.Protection = msoBarNoMove + msoBarNoResize + _
msoBarNoChangeVisible + msoBarNoCustomize
End With
End Sub
'------------------------------
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news:
j1g9f.32674$7z1.393289@wagner.videotron.net...
Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je
recherche.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u4ZD$Cc3FHA.268@TK2MSFTNGP10.phx.gbl...
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" <vulkins45@yahoo.fr> a écrit dans le message de news:
RWd9f.24399$7z1.322671@wagner.videotron.net...
Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le
problème est que ce bouton demeure en haut de ma feuille de travail
(A1:B2).
J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de
travail
malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas
obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
"michdenis" a écrit dans le message de news: eGCnx$
Tu peux te créer une barre d'outils personnalisée où tu disposera ton (tes boutons) et en utilisant ce code, tu figeras où ta barre sera disposée
'------------------------------ Sub BoutonDeCommande()
Dim B As CommandBar Dim A As Double For Each B In Application.CommandBars If B.Visible = True Then If B.Position = msoBarTop Then A = A + B.Height End If End If Next With Application.CommandBars("denis1") .Top = A + 62 .Left = 28 .Protection = msoBarNoMove + msoBarNoResize + _ msoBarNoChangeVisible + msoBarNoCustomize End With End Sub '------------------------------
Salutations!
"Linebaker" a écrit dans le message de news: j1g9f.32674$ Bonjour michdenis,
Je connaissais cette solution. Disons que ce n'est pas cela que je recherche.
Merci
"michdenis" a écrit dans le message de news: u4ZD$
Bonjour LineBaker,
Tu n'as qu'à figer les volets en A3 , menu Fenêtre.
Salutations!
"Linebaker" a écrit dans le message de news: RWd9f.24399$ Bonsoir,
J'ai placé un bouton de commande qui affiche mon userform au besoin. Le problème est que ce bouton demeure en haut de ma feuille de travail (A1:B2). J'aimerais qu'il demeure toujours en haut à gauche de ma feuille de travail malgré le fait que je sois rendu à la ligne 2000. Ainsi je ne serais pas obligé de faire CTRL + home pour avoir accès au bouton.
Donc, quel est le code pour que le bouton descende ?
