XL 2021 Figer une sélection de cellules quand on se déplace dans la feuille

fanou06

XLDnaute Occasionnel
Bonjour,

J'ai créé des macros un peu sommaires mais qui permettent à la personne qui va saisir des "raccourcis".
Sous forme de boutons.
Par exemple pour avoir 100% / 75% / 50%
Et également des boutons qui exécutent un remplissage selon les années choisies : 1 ou 2 ou 3 (Et bouton d'effacement).

Cela peut paraitre très basique mais cela aidera au mieux la personne en charge de la saisie.

Aussi, question la plus importante car je n'y arrive pas du tout malgré mes essais (mais je suis novice), j'aimerais créer des boutons qui exécutent des macros (Ca je sais faire), mais qui seraient visibles quand on "navigue" horizontalement ou verticalement dans les cellules.
Cela remplacerait le menu déroulant. Ou bien est-ce inutile ? Car le soucis premier est que la police lors du choix dans le menu déroulant est quasi illisible.

Par exemple un clic droit qui ouvre une liste pour la saisie ?


Merci.
 

Pièces jointes

  • Prévisionnel d'alternances TOUS IFSI (2023-2024) V8.xlsm
    117.7 KB · Affichages: 5
Dernière édition:

fanou06

XLDnaute Occasionnel
Re,

Par contre, je dois l'activer à chaque fois ?


PS je vais tout remettre en petite police.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
End Sub

Permet d'augmenter le zoom des listes déroulantes c'est top. Merci.
 

Pièces jointes

  • Prévisionnel d'alternances TOUS IFSI (2023-2024) V8.xlsm
    113.4 KB · Affichages: 1
Dernière édition:

fanou06

XLDnaute Occasionnel
Bonsoir, souci.
J'ai SEM1 dans macro que je ne peux retirer et fait bugguer :(
Aussi, peut on protéger de l'effacement les "boutons" des macros ?
 

Pièces jointes

  • Prévisionnel d'alternances TOUS IFSI (2023-2024) V8.xlsm
    126.2 KB · Affichages: 3
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 219
Messages
2 096 310
Membres
106 566
dernier inscrit
Fabiens