XL 2016 Augmentation taille segments & listes déroulantes

[Alan28]

Bonjour à tous, j’ai un souci dans l’affichage des segments (TCD) et des listes déroulantes. Quand j‘inscrit le code dans la commande de Excel, celle-ci ne marche pas… les segments et les listes déroulantes sont trop petites. Avez-vous une idée pour augmenter la taille d’affichage de ces deux éléments (segments & listes déroulantes) ?

Ci-joint le bout de code :

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

Je vous remercie pour votre aide.

Alan.

 

[danielco]

Bonjour,

Pour les listes déroulantes (de validation), je pense que c'est mission impossible. Pour les segments, il est possible de définir la taille de la police en créant un nouveau style de segment (ou en modifiant le style actuel).

Daniel

 

[Phil69970]

Bonjour @Alan28, @danielco, le forum

Pour les listes déroulantes je te propose ceci :

ce qui donne ça :

* @Alan28 : Ton code fonctionne bien chez moi, cela zoom dés que tu es dans la liste de validation et dézoom quand tu est en dehors de la liste

@Phil69970

 

[Alan28]

Bonjour @danielco , @Phil69970 et au forum, je vous remercie pour votre retour. Je vais essayer de faire ce que vous m'avez recommandé tous les deux. Par contre je suis très surpris que le code fonctionne de ton côté, chez moi ce n'est pas le cas...

Bien à vous,

Alan.

 

[Phil69970]

Bonjour à tous

@Alan28 :

je suis très surpris que le code fonctionne de ton côté, chez moi ce n'est pas le cas...

Regarde le fichier....

@Phil69970