bouton flottant

[michel]

bonjour
est-ce qu'on peut creer un bouton flottant sur une feuille excel(version 97)
pour me faire peut-etre mieux comprendre:bouton qui reste fixe sur l'ecran,
malgre un deplacement de la feuille avec la molette de la souris?
ou faut-il passer par un userform?
merçi

Michel

 

[Hervé]

Bonjour

une combine : placer ton bouton en haut du tableau dans les premieres lignes, et figer les volets.

Ainsi ton bouton sera toujours apparent.

Salut
Hervé

 

[Celeda]

Bonjour,

vite fait, il y avait ce superbe fil de discussion sur ce bouton:

http://www.excel-downloads.com/html/French/forum/messages/1_31758_31758.htm

mais MichelXLD en avait fait aussi une autre démo,
me semble-t-il, avec un bouton qui allait du début de la feuille
et pouvait se placer malgré les volets gelés, en milieu de feuille,

cherche avec le bouton chercher dans les archives,

à moins que quelqu'un ..............

Celeda

 

[michel]

bonjour

merçi a tous pour vos reponses et votre aide

Michel

 

[michel]

re-bonjour

j'aurais du rechercher avant d'envoyer une reponse:
je n'ai pas trouve de michelXLD dans le forum;quant
au fil de discussion cite,il ne m'aide pas beaucoup
(je l'avais deja consulte)
j'avais deja trouve la solution avec "figer les volets"
mais esthetiquement,c'est pas terrible!
je suis peut-etre trop maniaque?
un peu plus d'aide SVP merçi

Michel

 

[Hervé]

re

en pièce jointe une proposition

Tu double clic sur une cellule et ton bouton se ramène à toi.

Salut
Hervé

 

[yvesL]

Salut Michel le Forum,

Ci-joint ce code de Jean François Aubert,
peut étre cela fera ton affaire.



YvesL

 

[jmps]

Bonjour michel, Hervé, Celeda, yvesL

Une solution qui fonctionne avec le changement de cellule, mais je n'ai pas trouvé pour la molette de souris car il n'y a pas d'évènement associé.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Worksheets("Feuil1").CommandButton1.Left = Worksheets("Feuil1").Columns(Windows(1).VisibleRange.Column + 1).Left
  Worksheets("Feuil1").CommandButton1.Top = Worksheets("Feuil1").Rows(Windows(1).VisibleRange.Row + 1).Top
End Sub

Tu peux éventuellement affiner la position du bouton en enlevant le +1 des Column et Row et en ajoutant plutôt un nombre de points après le .Left et le .Top à la fin des lignes.

J'espère que ça t'ira quand même.

Bonne fin de journée.

José

 

[michel]

bonjour tout le monde

mon application se precise;le code de José est celui qui convient le mieux
car il me permet en plus de valider la deniere saisie d'une cellule(mon
classeur est destiné a une gestion de stock et commande automatique de pièces)
par contre,comment le faire disparaitre ?
l'action sur le bouton me redirige sur ma feuille "commande"
ce serait vraiment impeccable si après le clic sur le bouton,celui-çi disparaissait.
ou alors après etre passé sur la feuille "commande" et revenir sur la feuille "stock",le bouton puisse disparaitre.
en ce qui conçerne la modification de l'emplacement du bouton,j'ai fait ce que José m'a indiqué,mais excel me renvoie une erreur.
j'ai essayé de decortiquer le code pour le modifier dans ce sens mais je ne suis pas un expert en VBA
merçi encore a tous

Michel

 

[jmps]

Re Michel,

Voici le code pour placer ton bouton plus précisément :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Worksheets("Feuil1").CommandButton1.Left = Worksheets("Feuil1").Columns(Windows(1).VisibleRange.Column).Left + 5
  Worksheets("Feuil1").CommandButton1.Top = Worksheets("Feuil1").Rows(Windows(1).VisibleRange.Row).Top + 5
End Sub

En ce qui concerne ta seconde question, je ne comprends pas tout. Puisque tu passes sur une autre feuille après le clic du bouton, il ne doit pas apparaître sur la feuille "commande".
En tous cas pour le faire disparaître :
Worksheets("Feuil1").CommandButton1.Visible = False
Pour qu'il réapparaisse :
Worksheets("Feuil1").CommandButton1.Visible = True

Bonne soirée.

José

 

[@+Thierry]

=> DEMO "Crazy" Floating Button (Aves Desproges, Guitry, Dac même Einstein)

Bonsoir à Tous et Toutes

Just For the Fun !!!!!

Voici une Démo avec un Bouton Flottant qui ne reconte que des Dictons de manière aléatoires... (Vi vi !)

Mais pour Excel 97, aie aie, le Mode Non Moadal passera pas trop... J'ai mis les codes pour l'appel API de Stephen Bullen en commentaire, il faudra faire des essaies, moi y en a plus avoir Excel 97, sorry.

Bonne Soirée
@+Thierry

 

[michel]

bonsoir José
pour m'exprimer plus clairement,j'ai 2feuilles
1 feuille"stock"
1 feuille"commande"
le bouton "commande" apparait sur la feuille "stock" quand j'active une cellule;ce bouton me sert a activer la feuille "commande" (il n'apparait pas sur la feuille "commande" quand elle est active).
par contre je voudrais qu'il disparaisse de la feuille"stock" quand je reactive cette feuille;ce qui n'est pas le cas.....
je ne comprends plus,car je viens d'essayer ton premier code et je n'arrive même plus a le faire fonctionner.Ilest vrai que j'ai passé la journée dessus et je commençe a saturer.
çi-joint mon fichier;
Merçi pour ton aide .

Michel

 

[jmps]

Re re michel,

Je viens de tester ton fichier et ça m'a planté Excel. Je regarde ça demain et je te dis.

Bonne nuit.

José

 

[CHti160]

Salut" michel"
bonsoir à toutes et à tous
bonsoir Particulier à @+Thierry qui une fois encore après les cyber_Café trouve encore le temps de venir nous distraire avec ses citations
Merci
bon en fichier joint mon approche de ce que j'ai cru comprendre
en jouant des propriétés open/ Chance /Activate/.... et Autres
A+++
Jean Marie

 

[CHti160]

RE et en incluant le code de jmps c'est la rue michel|/b]
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'mise a jour stock
Application.ScreenUpdating = False
With Worksheets("Stock")
.CommandButton1.Visible = True
.CommandButton1.Left = .Columns(Windows(1).VisibleRange.Column).Left +630'modifie la position
.CommandButton1.Top = .Rows(Windows(1).VisibleRange.Row).Top + 2
End With
For Each cell In Range("g4:g400")
A+++
Jean Marie