Déplacements de boutons automatiquement

9 réponses

Peponne31

26/02/2006 à 08:55

Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je voudrais que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au fur et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

9 réponses

jps

26/02/2006 à 09:11

bonjour peponne
tu vas dans les Propriétés de tes buttons et tu vérifies que Placement ait
la valeur 2
sinon tu vas dans Format de Contrôle et dans Propriétés tu coches "déplacer
sans dimensionner avec les cellules"
HTH
camillo

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

Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

jps

26/02/2006 à 09:15

oups
j'ai oublié de te dire que pour ces manips, il faut que tu passes en Mode
Création, à savoir que dans une de tes BO, tu "allumes" l'icône Equerre et
crayon
jps

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

Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

Peponne31

26/02/2006 à 09:32

Bonjour jps
Merci pour tes renseignements, mais mon but est que mes boutons restent
présents à l'écran ou que je sois positionné dans le formulaire. A l'origine
ils sont en I10, mais des que je suis en fin de page ils n'apparaissent + à
l'écran.
La facilité consiste à les mùètre en fin de page mais c'est moins sympatique.
Cordialement Peponne31

oups
j'ai oublié de te dire que pour ces manips, il faut que tu passes en Mode
Création, à savoir que dans une de tes BO, tu "allumes" l'icône Equerre et
crayon
jps

"Peponne31" a écrit dans le message de
news:
Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

Youky

26/02/2006 à 09:55

Salut
Fait 1 click avec le bouton droit sur l'onglet de ta page et copie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Cells.Top
CommandButton2.Top = ActiveCell.Cells.Top
CommandButton3.Top = ActiveCell.Cells.Top
End Sub

Youky
"Peponne31" a écrit dans le message de
news:

Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

Peponne31

26/02/2006 à 10:16

Salut Youki
Ta formule est super, mais à la place de (Top) ne puis-je pas leur donner
une position de départ car la ils sont tout les 3 empilers et pas en I10.
Merci encore
Peponne31

Salut
Fait 1 click avec le bouton droit sur l'onglet de ta page et copie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Cells.Top
CommandButton2.Top = ActiveCell.Cells.Top
CommandButton3.Top = ActiveCell.Cells.Top
End Sub

Youky
"Peponne31" a écrit dans le message de
news:
Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

26/02/2006 à 10:25

Et si tu créais une barre d'outils (positionnable à volonté) (ou l'ajout d'un
menu avec sous-menus dans la barre XL) à l'ouverture du fichier et destruction
en sortant ?

AV

Peponne31

26/02/2006 à 10:46

Salutations AV
Merci pour ta solution mais elle est un peu complexe pour moi, je vais me
contenter de les positionners en milieu de page pour lles avoir visibles
tout le temps.
Merci encore
Peponne31

Et si tu créais une barre d'outils (positionnable à volonté) (ou l'ajout d'un
menu avec sous-menus dans la barre XL) à l'ouverture du fichier et destruction
en sortant ?

AV

Youky

26/02/2006 à 10:51

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row < 10 Then Exit Sub
CommandButton1.Top = ActiveCell.Cells.Top
CommandButton2.Top = ActiveCell.Cells.Top + 40
CommandButton3.Top = ActiveCell.Cells.Top + 80
End Sub

Youky
"Peponne31" a écrit dans le message de
news:

Salut Youki
Ta formule est super, mais à la place de (Top) ne puis-je pas leur donner
une position de départ car la ils sont tout les 3 empilers et pas en I10.
Merci encore
Peponne31

Salut
Fait 1 click avec le bouton droit sur l'onglet de ta page et copie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Cells.Top
CommandButton2.Top = ActiveCell.Cells.Top
CommandButton3.Top = ActiveCell.Cells.Top
End Sub

Youky
"Peponne31" a écrit dans le message
de
news:
Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans
un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je
voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au
fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

Peponne31

26/02/2006 à 11:05

AHH c'est Superrrrrr
Merci Youky sa fonctionne très bien. je ne pensais pas du tout à ça, j'ai
beaucoup à apprendre encore mais je ne désèspère pas.
Merci à tous pour votre aide.
Peponne31

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row < 10 Then Exit Sub
CommandButton1.Top = ActiveCell.Cells.Top
CommandButton2.Top = ActiveCell.Cells.Top + 40
CommandButton3.Top = ActiveCell.Cells.Top + 80
End Sub

Youky
"Peponne31" a écrit dans le message de
news:
Salut Youki
Ta formule est super, mais à la place de (Top) ne puis-je pas leur donner
une position de départ car la ils sont tout les 3 empilers et pas en I10.
Merci encore
Peponne31

Salut
Fait 1 click avec le bouton droit sur l'onglet de ta page et copie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Cells.Top
CommandButton2.Top = ActiveCell.Cells.Top
CommandButton3.Top = ActiveCell.Cells.Top
End Sub

Youky
"Peponne31" a écrit dans le message
de
news:
Bonjour,
Toujours pour simplifier le travail de celui qui entre les données dans
un
formulaire, jai 3 boutons (CommandButton) qui sont en I10 et je
voudrais
que
ces boutons s'incrémentent automatiquement d'une ligne vers le bas au
fur
et
à mesure que l'on entre les données.
Ces boutons sont: Imprimer, Effacer,Fermer.
Quelqu'un a une solution ?
Merci encore pour votre soutien qui met d'une grande utilitée.
Peponne31

Déplacements de boutons automatiquement

9 réponses

Veuillez sélectionner un problème