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 :
Je vous remercie pour votre aide.
Alan.
Ci-joint le bout de code :
VB:
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 SubJe vous remercie pour votre aide.
Alan.