Figer le positionnement de boutons sur une feuille, possible ou pas ?

Le
Pier
Bonjour !

Wouaww, ce forum me semble très pro
Du coup, je me sens ridicule de poster juste pour un problème de
positionnement de boutons sur une feuille !

Bon, je me lance quand même !

Mon "problème" est explicité (avec des images et tout et tout !)à cette
adresse : http://klaud.free.fr/

Merci pour votre aide.

Cordialement.
Pierre
Vos réponses
Trier par : date / pertinence
garnote
Le #3598431
Salut Pier,

Sélectionne tes boutons et clique sur :
Format / Contrôle... / Propriétés et
coche "Déplacer sans dimensionner avec les cellules.

Est-ce bien ce que tu veux obtenir ?

Serge

"Pier" 440086bf$0$17382$
Bonjour !

Wouaww, ce forum me semble très pro...
Du coup, je me sens ridicule de poster juste pour un problème de...
positionnement de boutons sur une feuille !

Bon, je me lance quand même !

Mon "problème" est explicité (avec des images et tout et tout !)à cette
adresse : http://klaud.free.fr/

Merci pour votre aide.

Cordialement.
Pierre


Pier
Le #3598421
Bonsoir Serge !
Ben oui, c'est exactement ce que je cherchais depuis... (je le dis pas,
j'ai déjà suffisamment honte !).

Merci Serge.

Cordialement.
Pierre


Salut Pier,

Sélectionne tes boutons et clique sur :
Format / Contrôle... / Propriétés et
coche "Déplacer sans dimensionner avec les cellules.

Est-ce bien ce que tu veux obtenir ?

Serge

"Pier" 440086bf$0$17382$
Bonjour !

Wouaww, ce forum me semble très pro...
Du coup, je me sens ridicule de poster juste pour un problème de...
positionnement de boutons sur une feuille !

Bon, je me lance quand même !

Mon "problème" est explicité (avec des images et tout et tout !)à cette
adresse : http://klaud.free.fr/

Merci pour votre aide.

Cordialement.
Pierre






Excel...lent
Le #3598411
Salut Pier,

Y a pas de honte . -)))
Alors tu cliques bouton droit sur tous tes boutons un par un, tu choisis "
Format de contrôle "et dans l'onglet " propriétés " tu coches " ne pas
déplacer ou dimensionner avec les cellules ". Et voili voilou tes boutons
sont au garde à vous et ne bronchent plus.

Deuxième soluce qui consiste à créer une barre outils perso et y mettre tes
boutons.

Cordialement.

Marc
garnote
Le #3598401
"Ne pas déplacer ou dimensionner avec les cellules"
voulais-je dire. J'ai donc honte à mon tour :-)))

SErge




"Pier" 44008cbc$0$17375$
Bonsoir Serge !
Ben oui, c'est exactement ce que je cherchais depuis... (je le dis pas,
j'ai déjà suffisamment honte !).

Merci Serge.

Cordialement.
Pierre


Salut Pier,

Sélectionne tes boutons et clique sur :
Format / Contrôle... / Propriétés et
coche "Déplacer sans dimensionner avec les cellules.

Est-ce bien ce que tu veux obtenir ?

Serge

"Pier" 440086bf$0$17382$
Bonjour !

Wouaww, ce forum me semble très pro...
Du coup, je me sens ridicule de poster juste pour un problème de...
positionnement de boutons sur une feuille !

Bon, je me lance quand même !

Mon "problème" est explicité (avec des images et tout et tout !)à cette
adresse : http://klaud.free.fr/

Merci pour votre aide.

Cordialement.
Pierre







jps
Le #3598391
3ème soluce
installer le bouton tout en haut de la feuille, figer les volets sur la 1ere
ligne et l'boton y po pli bougi....
jps

"Excel...lent"
Salut Pier,

Y a pas de honte . -)))
Alors tu cliques bouton droit sur tous tes boutons un par un, tu choisis "
Format de contrôle "et dans l'onglet " propriétés " tu coches " ne pas
déplacer ou dimensionner avec les cellules ". Et voili voilou tes boutons
sont au garde à vous et ne bronchent plus.

Deuxième soluce qui consiste à créer une barre outils perso et y mettre
tes
boutons.

Cordialement.

Marc




Excel...lent
Le #3598371
Re Pier,

Ci-dessous 2 codes à mettre dans un module du projet VBA :
le 1er qui s'activera à l'ouverture de ton classeur et le 2ème à sa
fermeture.

Et regarde ce qui se passe du côté des barres d'outils en haut de ton
écran...

Il te faudra un peut bosser quand même. Tu remarqueras que dans chaque
partie appelée " Bouton n " il y a une ligne de commande avec un petit ( ' )
devant qui pour l'instant rend cette ligne de code inerte.

'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"

Dans toutes les parties , sur cette ligne il te faudra
1 - enlever le petit ( ' ) devant la ligne de commande pour qu'elle soit
active
2 - mettre le nom de ta macro de tri pour chaque lettre. Par exemple si ta
macro de tri sur "A" s'appelle "Tri_A", la ligne de commande donnera ceci :

'.OnAction = ThisWorkbook.Name & "!Tri_A"


1 er code

Sub Auto_Open()
'
Dim mybar As CommandBar, mybarButton As CommandBarButton
'
Auto_close
'
Application.ScreenUpdating = False
'
'**************************************************************
'* CREATION BARRE OUTILS " TRI " *
'**************************************************************
'
Set mybar = CommandBars.Add(Name:="TRI", Position:=msoBarTop,
temporary:=True)
'
'************************************************
' bouton A
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 80
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR A" 'légende pour le bouton
End With
'
'************************************************
' bouton B
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 81
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR B" 'légende pour le bouton
End With
'
'************************************************
' bouton C
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 82
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR C" 'légende pour le bouton
End With
'
'************************************************
' bouton D
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 83
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR D" 'légende pour le bouton
End With
'
'************************************************
' bouton E
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 84
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR E" 'légende pour le bouton
End With
'
'************************************************
' bouton F
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 85
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR F" 'légende pour le bouton
End With
'
'************************************************
' bouton G
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 86
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR G" 'légende pour le bouton
End With
'
'************************************************
' bouton H
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 87
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR H" 'légende pour le bouton
End With
'
'************************************************
' bouton I
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 88
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR I" 'légende pour le bouton
End With
'
'************************************************
' bouton J
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 89
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR J" 'légende pour le bouton
End With
'
'************************************************
' bouton K
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 90
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR K" 'légende pour le bouton
End With
'
'************************************************
' bouton L
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 91
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR L" 'légende pour le bouton
End With
'
'************************************************
' bouton M
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 92
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR M" 'légende pour le bouton
End With
'
'************************************************
' bouton N
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 93
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR N" 'légende pour le bouton
End With
'
'************************************************
' bouton O
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 94
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR O" 'légende pour le bouton
End With
'
'************************************************
' bouton P
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 95
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR P" 'légende pour le bouton
End With
'
'************************************************
' bouton Q
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 96
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR Q" 'légende pour le bouton
End With
'
'************************************************
' bouton R
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 97
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR R" 'légende pour le bouton
End With
'
'************************************************
' bouton S
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 98
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR S" 'légende pour le bouton
End With
'
'************************************************
' bouton T
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 99
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR T" 'légende pour le bouton
End With
'
'************************************************
' bouton U
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 100
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR U" 'légende pour le bouton
End With
'
'************************************************
' bouton V
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 101
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR V" 'légende pour le bouton
End With
'
'************************************************
' bouton W
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 102
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR W" 'légende pour le bouton
End With
'
'************************************************
' bouton X
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 103
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR X" 'légende pour le bouton
End With
'
'************************************************
' bouton Y
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 104
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR Y" 'légende pour le bouton
End With
'
'************************************************
' bouton Z
'************************************************
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.FaceId = 105
.Style = msoButtonIcon
'.OnAction = ThisWorkbook.Name & "!Ta macro de tri"
.TooltipText = "TRIER SITE SUR Z" 'légende pour le bouton
End With
'
mybar.Visible = True
'
Application.ScreenUpdating = True
'
End Sub


2ème code

Sub Auto_close()
'
On Error Resume Next
Application.CommandBars("TRI").Delete
On Error GoTo 0
End Sub


Pour finir je n'ai aucuns mérites, ces codes ne sont pas de moi mais voilà
ce qui t'arrivera après 3 mois de fréquentations intensives de ce forum de "
malades " .....-))))

Cordialement.

Marc
Pier
Le #3598151
Bonsoir Marc !

Je suis bluffé par le code que tu me fournis.
Cela fut un peu laborieux à mettre en place pour moi qui n'en suis qu'à
mes toutes premieres lignes de commandes mais le résultat est là et
c'est inmpeccable !
C'est nettement mieux que ma ligne de boutons même bien alignés !

Je cherche maintenant à trier par ordre alphabétique le résultat affiché
lorsque je clique sur une lettre.
En effet, lorsque je clique sur la lettre "P" par exemple j'obtiens ce
résultat : Voir image 1 http://klaud.free.fr/tri.html
et je souhaite que le résultat soit trié comme sur l'image 2.

Est-ce que cela est possible de faire un tri sur la feuille Site 1 pour
trier par lettre (en cliquant sur le bouton) et EN MEME TEMPS trier le
résultat ?

Merci !

Pierre
vpco
Le #3597951
Salut Pierre,

Je cherche à comprendre. Les macros de tri sur quelle colonne trient-elles ?
A priori si j'ai bien compris elles trient sur la colonne C nommée " ALPHA",
correct ?

Si tel est le cas, est ce que cette colonne est indispensable ?

Car tu peux très bien demander à EXCEL de trier ton tableau comme tu le
désires sans la présence de la colonne "ALPHA". Tu tries directement sur la
colonne A en ordre croissant.

Comme je vois que tu débutes ( il faut bien commencer un jour ) si tu veux
envoies moi ton fichier ( ) et je pourrais mieux t'aider.

Cordialement.

Marc

"Pier" wrote:

Bonsoir Marc !

Je suis bluffé par le code que tu me fournis.
Cela fut un peu laborieux à mettre en place pour moi qui n'en suis qu'à
mes toutes premieres lignes de commandes mais le résultat est là et
c'est inmpeccable !
C'est nettement mieux que ma ligne de boutons même bien alignés !

Je cherche maintenant à trier par ordre alphabétique le résultat affiché
lorsque je clique sur une lettre.
En effet, lorsque je clique sur la lettre "P" par exemple j'obtiens ce
résultat : Voir image 1 http://klaud.free.fr/tri.html
et je souhaite que le résultat soit trié comme sur l'image 2.

Est-ce que cela est possible de faire un tri sur la feuille Site 1 pour
trier par lettre (en cliquant sur le bouton) et EN MEME TEMPS trier le
résultat ?

Merci !

Pierre





Publicité
Poster une réponse
Anonyme