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 VBA, comment positionner un bouton ???

VBA, comment positionner un bouton ???

33 réponses
Avatar
LE TROLL
Bonjour, je poursuis mon petit truc, désormais je voudrais mettre un
bouton (CommandButton), et faire en sorte que le bouton soit positionné au
niveau de la dernière ligne de saisie (prévoir une absence de saisie), donc:
-1- Comment mettre un bouton ???
-2- Comment tester et dans quelle évènement, pour qu'il s'affiche toujours
(le bas = (height + scaleHeight)) mon bouton, à la dernière ligne saisie (en
référence on peut prendre la colonne A de la dernière ligne <> vide)???
--

ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Signaler un problème avec ce contenu

10 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
1 2 3 4
Avatar
michdenis
Bonjour Le Troll,

Tu dois préciser de quelle barre d'outils, ton contrôle "bouton de commande" est issu. Formulaire ou Contrôle ?

"le bouton soit positionné au niveau de la dernière ligne de saisie" Le nom de la feuille et de la colonne où doit se
positionner le bouton de commande. Est-ce que ton bouton existe sur ta feuille ou il faut le créer ? Si il existe quel
est son nom ? Quelle dimension doit avoir ce bouton de commande ?


Salutations!



"LE TROLL" <le a écrit dans le message de news: %
Bonjour, je poursuis mon petit truc, désormais je voudrais mettre un
bouton (CommandButton), et faire en sorte que le bouton soit positionné au
niveau de la dernière ligne de saisie (prévoir une absence de saisie), donc:
-1- Comment mettre un bouton ???
-2- Comment tester et dans quelle évènement, pour qu'il s'affiche toujours
(le bas = (height + scaleHeight)) mon bouton, à la dernière ligne saisie (en
référence on peut prendre la colonne A de la dernière ligne <> vide)???
--

ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Avatar
LE TROLL
Chalut, merci, benzalors voici:

-1- Non, mon bouton n'est pas créé, comment le créer pour le mettre sur la
feuille de calcul ???
-2- Feuille = compta.xls
-3- Colonne = K ou devrait être bouton :o)
-4- Le nom = "calcul" qu'il aurait...
-5- La taille, ben d'origine ça devrait aller...

Merci, @+ :o)
--------------

"michdenis" a écrit dans le message de news:
%
Bonjour Le Troll,

Tu dois préciser de quelle barre d'outils, ton contrôle "bouton de
commande" est issu. Formulaire ou Contrôle ?

"le bouton soit positionné au niveau de la dernière ligne de saisie" Le
nom de la feuille et de la colonne où doit se
positionner le bouton de commande. Est-ce que ton bouton existe sur ta
feuille ou il faut le créer ? Si il existe quel
est son nom ? Quelle dimension doit avoir ce bouton de commande ?


Salutations!



"LE TROLL" <le a écrit dans le message de news:
%
Bonjour, je poursuis mon petit truc, désormais je voudrais mettre
un
bouton (CommandButton), et faire en sorte que le bouton soit positionné au
niveau de la dernière ligne de saisie (prévoir une absence de saisie),
donc:
-1- Comment mettre un bouton ???
-2- Comment tester et dans quelle évènement, pour qu'il s'affiche toujours
(le bas = (height + scaleHeight)) mon bouton, à la dernière ligne saisie
(en
référence on peut prendre la colonne A de la dernière ligne <> vide)???
--

ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !






Avatar
michdenis
Bonjour Le Troll,

Tu peux essayer ceci, en copiant ce code dans la feuille module où l'action se déroule.

à chaque fois que tu cliqueras dans une des cellules de la colonne K, un bouton de type formulaire au nom de "Bouton 1"
sera soit créé si il n'existe pas ou déplacer exactement pour recouvrir la cellule L à la même hauteur de la cellule
active de la colonne K.

Le bouton formé est un bouton de la barre d'outils formulaire. La procédure attache la macro "Denis".. à déterminer
selon ton application. La procédure à exécuter par le bouton doit être dans un module standard.

'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim B As Object
On Error Resume Next
If Not Intersect(Target, Columns("K")) Is Nothing Then
With Worksheets("Feuil1")
Set B = .Shapes("Bouton 1")
If Err <> 0 Then
Err = 0
Set B = .Buttons.Add(1, 1, 1, 1)
With B
.Name = "Bouton 1"
.Top = Target.Top
.Left = Target.Offset(, 1).Left
.Height = Target.RowHeight
.Width = Target.Offset(, 1).Width
'Nom de la macro attaché à déterminer
.OnAction = "Denis"
End With
Else
With B
.Top = Target.Top
.Left = Target.Offset(, 1).Left
.Left = Target.Offset(, 1).Left
.Width = Target.Offset(, 1).Width
End With
End If
End With
End If
Set B = Nothing
End Sub
'-------------------------------


Salutations!




"LE TROLL" <le a écrit dans le message de news: u%
Chalut, merci, benzalors voici:

-1- Non, mon bouton n'est pas créé, comment le créer pour le mettre sur la
feuille de calcul ???
-2- Feuille = compta.xls
-3- Colonne = K ou devrait être bouton :o)
-4- Le nom = "calcul" qu'il aurait...
-5- La taille, ben d'origine ça devrait aller...

Merci, @+ :o)
--------------

"michdenis" a écrit dans le message de news:
%
Bonjour Le Troll,

Tu dois préciser de quelle barre d'outils, ton contrôle "bouton de
commande" est issu. Formulaire ou Contrôle ?

"le bouton soit positionné au niveau de la dernière ligne de saisie" Le
nom de la feuille et de la colonne où doit se
positionner le bouton de commande. Est-ce que ton bouton existe sur ta
feuille ou il faut le créer ? Si il existe quel
est son nom ? Quelle dimension doit avoir ce bouton de commande ?


Salutations!



"LE TROLL" <le a écrit dans le message de news:
%
Bonjour, je poursuis mon petit truc, désormais je voudrais mettre
un
bouton (CommandButton), et faire en sorte que le bouton soit positionné au
niveau de la dernière ligne de saisie (prévoir une absence de saisie),
donc:
-1- Comment mettre un bouton ???
-2- Comment tester et dans quelle évènement, pour qu'il s'affiche toujours
(le bas = (height + scaleHeight)) mon bouton, à la dernière ligne saisie
(en
référence on peut prendre la colonne A de la dernière ligne <> vide)???
--

ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !






Avatar
Pierre CFI [mvp]
Dis moi michdenis, c'est pour faire un bras d'honneur aux "repondeurs traditionnels" que tu prends bien soin de ce "LE TROLL" aprés
ses précédentes déclarations, ou de Jean dit le testou ??????

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B



Avatar
LE TROLL
Ben, il me répond parce qu'il est compétent et sympa, que ma question était
polie...
MchDenis devrait être MVP à ta place, car lui, il est compétent et sympa...
:o)
------------

"Pierre CFI [mvp]" a écrit dans le message de
news: %
Dis moi michdenis, c'est pour faire un bras d'honneur aux "repondeurs
traditionnels" que tu prends bien soin de ce "LE TROLL" aprés
ses précédentes déclarations, ou de Jean dit le testou ??????

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B







Avatar
LE TROLL
Bonjour Denis (c'est Denis ton prénom je crois),

Tout d'abord un grand merci, à ta disponibilité et à ta compétence :o)

Bon, j'ai collé ta procédure dans mon code de feuille
classeur(Compta.xls)
feuille(Banque)

Ça marche, sauf qu'il faut cliquer dans la colonne K pour qu'en colonne
L le bouton se déplace, ce n'est pas exactement l'effet que je voulais, car
c'est justement pour que ce soit automatique, voici, si tu sais, si tu veux
bien le faire, ce que je voudrais (légère modif):

-1- Colorier le bouton (Bleu ciel fluo) ?
-2- Qu'on ne puisse déplacer soi-même le bouton
-3- Que le bouton se positionne en K_dernière ligne écrite (visible ou pas :
tester si colonne A x <> "")
-4- Si rien n'est écrit, que le bouton se positionne en K1
-5- Rajout et retrait de ligne possible, donc tester en permanence pour
repositionner le bouton.

Merci encore de ta compétence et de ta disponibilité.

Joe.






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

Bonjour Le Troll,

Tu peux essayer ceci, en copiant ce code dans la feuille module où
l'action se déroule.

à chaque fois que tu cliqueras dans une des cellules de la colonne K, un
bouton de type formulaire au nom de "Bouton 1"
sera soit créé si il n'existe pas ou déplacer exactement pour recouvrir la
cellule L à la même hauteur de la cellule
active de la colonne K.

Le bouton formé est un bouton de la barre d'outils formulaire. La
procédure attache la macro "Denis".. à déterminer
selon ton application. La procédure à exécuter par le bouton doit être
dans un module standard.

'--------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim B As Object
On Error Resume Next
If Not Intersect(Target, Columns("K")) Is Nothing Then
With Worksheets("Feuil1")
Set B = .Shapes("Bouton 1")
If Err <> 0 Then
Err = 0
Set B = .Buttons.Add(1, 1, 1, 1)
With B
.Name = "Bouton 1"
.Top = Target.Top
.Left = Target.Offset(, 1).Left
.Height = Target.RowHeight
.Width = Target.Offset(, 1).Width
'Nom de la macro attaché à déterminer
.OnAction = "Denis"
End With
Else
With B
.Top = Target.Top
.Left = Target.Offset(, 1).Left
.Left = Target.Offset(, 1).Left
.Width = Target.Offset(, 1).Width
End With
End If
End With
End If
Set B = Nothing
End Sub
'-------------------------------


Salutations!




"LE TROLL" <le a écrit dans le message de news:
u%
Chalut, merci, benzalors voici:

-1- Non, mon bouton n'est pas créé, comment le créer pour le mettre sur
la
feuille de calcul ???
-2- Feuille = compta.xls
-3- Colonne = K ou devrait être bouton :o)
-4- Le nom = "calcul" qu'il aurait...
-5- La taille, ben d'origine ça devrait aller...

Merci, @+ :o)
--------------

"michdenis" a écrit dans le message de news:
%
Bonjour Le Troll,

Tu dois préciser de quelle barre d'outils, ton contrôle "bouton de
commande" est issu. Formulaire ou Contrôle ?

"le bouton soit positionné au niveau de la dernière ligne de saisie" Le
nom de la feuille et de la colonne où doit se
positionner le bouton de commande. Est-ce que ton bouton existe sur ta
feuille ou il faut le créer ? Si il existe quel
est son nom ? Quelle dimension doit avoir ce bouton de commande ?


Salutations!



"LE TROLL" <le a écrit dans le message de news:
%
Bonjour, je poursuis mon petit truc, désormais je voudrais mettre
un
bouton (CommandButton), et faire en sorte que le bouton soit positionné
au
niveau de la dernière ligne de saisie (prévoir une absence de saisie),
donc:
-1- Comment mettre un bouton ???
-2- Comment tester et dans quelle évènement, pour qu'il s'affiche
toujours
(le bas = (height + scaleHeight)) mon bouton, à la dernière ligne saisie
(en
référence on peut prendre la colonne A de la dernière ligne <> vide)???
--

ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !











Avatar
JièL Goubert
Bonjoir(c) LE TROLL

Le 06/12/2004 10:16 vous avez écrit ceci :
MchDenis devrait être MVP à ta place, car lui, il est compétent et sympa...


Etre MVP c'est faire partie d'une "communautée", michdenis s'en exclus de
lui même volontairement

Lire
http://support.microsoft.com/newsgroups/newsContent.aspx?scid=gp;[ln];newswelcome

Avatar
LE TROLL
Il a bien raison, quand on voit le niveau des tâches ici, lol, 1/15 est
compétent :o)
----------

"JièL Goubert" a écrit dans le
message de news: u0T%
Bonjoir(c) LE TROLL

Le 06/12/2004 10:16 vous avez écrit ceci :
MchDenis devrait être MVP à ta place, car lui, il est compétent et
sympa...


Etre MVP c'est faire partie d'une "communautée", michdenis s'en exclus de
lui même volontairement

Lire
http://support.microsoft.com/newsgroups/newsContent.aspx?scid=gp;[ln];newswelcome



Avatar
jps
mais que fait donc le bénévole joël chaudy?
va-t-il laisser longtemps ses MVP et autres contributeurs de ce forum se
laisser insulter longtemps?
jps

"LE TROLL" <le a écrit dans le message de
news:
Il a bien raison, quand on voit le niveau des tâches ici, lol, 1/15
est

compétent :o)
----------

"JièL Goubert" a écrit dans le
message de news: u0T%
Bonjoir(c) LE TROLL

Le 06/12/2004 10:16 vous avez écrit ceci :
MchDenis devrait être MVP à ta place, car lui, il est compétent et
sympa...


Etre MVP c'est faire partie d'une "communautée", michdenis s'en exclus
de


lui même volontairement

Lire

http://support.microsoft.com/newsgroups/newsContent.aspx?scid=gp;[ln];newswelcome








Avatar
Pierre CFI [mvp]
laisse, nous sommes en pleine expérimentation sur la bétise humaine :o) il a déjà pollué d'autres news, mais il en reste :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jps" a écrit dans le message de news:%
mais que fait donc le bénévole joël chaudy?
va-t-il laisser longtemps ses MVP et autres contributeurs de ce forum se
laisser insulter longtemps?
jps

"LE TROLL" <le a écrit dans le message de
news:
Il a bien raison, quand on voit le niveau des tâches ici, lol, 1/15
est

compétent :o)
----------

"JièL Goubert" a écrit dans le
message de news: u0T%
Bonjoir(c) LE TROLL

Le 06/12/2004 10:16 vous avez écrit ceci :
MchDenis devrait être MVP à ta place, car lui, il est compétent et
sympa...


Etre MVP c'est faire partie d'une "communautée", michdenis s'en exclus
de


lui même volontairement

Lire

http://support.microsoft.com/newsgroups/newsContent.aspx?scid=gp;[ln];newswelcome











1 2 3 4