Besoin d'aide pour bouton/macro affichage
Résolu
ButteDuLac
Messages postés
534
Statut
Membre
-
ButteDuLac Messages postés 534 Statut Membre -
ButteDuLac Messages postés 534 Statut Membre -
Bonjour,
J'ai créé un bouton qui a pour fonction :
Le classeur, prêt à l'utilisation, n'affichera ni onglets, ni entête de lignes et colonnes.
Lorsqu'on est en plein écran, sur mon écran de 23 pouces, la zone ciblée s'affiche sans problème, mais dans la moitié droite de l'écran. Or, si un utilisateur a un plus petit écran que le mien ou n'est pas en mode plein écran ou encore a zoomé, il ne s'affichera qu'une petite partie du formulaire. (Ils peuvent faire défiler manuellement si je laisse la barre horizontale, mais je trouve ça agaçant...)
Quelle commande me permettrait que la zone ciblée s'affiche directement à gauche de l'écran (donc qu'un défilement horizontal se ferait automatiquement pour que les colonnes A à L se tassent vers la gauche)?
Merci!!!!
J'ai créé un bouton qui a pour fonction :
Private Sub CommandButton1_Click()
Range("M49:M106").Show
End Sub
Le classeur, prêt à l'utilisation, n'affichera ni onglets, ni entête de lignes et colonnes.
Lorsqu'on est en plein écran, sur mon écran de 23 pouces, la zone ciblée s'affiche sans problème, mais dans la moitié droite de l'écran. Or, si un utilisateur a un plus petit écran que le mien ou n'est pas en mode plein écran ou encore a zoomé, il ne s'affichera qu'une petite partie du formulaire. (Ils peuvent faire défiler manuellement si je laisse la barre horizontale, mais je trouve ça agaçant...)
Quelle commande me permettrait que la zone ciblée s'affiche directement à gauche de l'écran (donc qu'un défilement horizontal se ferait automatiquement pour que les colonnes A à L se tassent vers la gauche)?
Merci!!!!
1 réponse
-
Bonsoir,
Je ne sais pas si j'ai bien compris, essaye comme cela voir
Private Sub CommandButton1_Click()
[A49:M106].Select
ActiveWindow.Zoom = True
End Sub
-
-
-
J'en suis parvenue à :
Private Sub CommandButton1_Click()
Columns("A:L").Select
Selection.EntireColumn.Hidden = True
Range("M49:Z106").Show
End Sub
Private Sub CommandButton2_Click()
Columns("A:L").Select
Selection.EntireColumn.Hidden = False
Range("A1:A48").Show
End Sub
Les deux problèmes qui restent, c'est que quand j'appuie sur "aller à l'étape 2", le formulaire 2 apparait tel que je le souhaite, mais le bouton et les textboxes du formulaire 1 restent affichés, en haut du formulaire 2, ce qui n'est pas winner!
Deuxième : quand j'appuie sur retour à l'étape 1, mon formulaire de l'étape 1 apparait sélectionné, je voudrais qu'il ne le soit pas.
L'idéal aurait donc été d'avoir un code pour défiler... -
-
-
