VBA 6 et position d'un CommandButtonRésolu

Question

Bonjour,
J'ai fait un programme Excel VBA 6 . Il y a 2 command Buttons sur une feuille qui se  remplit de données avec un Formulaire. Mais les 2 boutons sont ancrées sur les cellules qui se décalent vers le bas de l'écran, et deviennent invisibles lorsque la feuille se remplit!..(sauf si on utilise l'ascenseur...)
Quel est la solution pour figer ces boutons à la même position sur l'écran.
Merci d'avance...

cs_Apolinaire · Accepted Answer

Bonsoir,
Je viens de rencontrer le même problème que j'ai résolu ainsi.
Dans le code de la feuille avec les boutons :

Private Sub Worksheet_Activate()
    RemiseEnPlaceBoutons
End Sub

Dans un module :

Public Sub RemiseEnPlaceBoutons()
With ActiveSheet

    .btAjouter.Left = 316
    .btAjouter.Top = 130
    .btModifier.Left = 316
    .btModifier.Top = 168
    .btSupprimer.Left = 316
    .btSupprimer.Top = 206
    
End With
End Sub

En espérant que ça te convienne.
Apolinaire

cs_Jack · Answer

Salut
Pour ma part, je place toujours ces boutons en haut de lécran, sur les premières lignes (vides) et j'utilise le fractionnement de lécran pour que ces lignes restent visibles tout le temps (Fenêtre, Fractionner + Figer les volets)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

MICHELS91 · Answer

Bonjour Vala,

Trés bonne idée que je vais adopter, s'il n'y a aucun autre moyen de riveter les commanButtons sur le côté droit de l'écran....
Merci,
A+

MICHELS91 · Answer

Bonjour,
Merci pour le tuyau, je vais essayer mais pas avec avec l'instruction Worksheet_Activate, car cette feuille est ouverte tout le  temps. Je vais essayer avec Woksheet_Change.
Michels91

VBA 6 et position d'un CommandButton

4 réponses

Votre réponse

Discussions similaires