Bonjour à tous
mon fichier joint étant amené à être utilisé par plusieurs personnes, j'ai défini dans ThisWorkbook le code suivant afin que le zoom s'adapte à l'ouverture du fichier pour afficher la zone A1 : EA20. Les futurs utilisateurs ayant tous des écrans avec des résolutions différentes :
En C4 de ma feuil1, j'ai un menu déroulant et ce code pour pouvoir faire un zoom afin que la liste déroulante soit plus lisible :
Et en cellule B2, l'utilisateur définit la valeur de zoom à laquelle revenir après avoir fait un choix dans le menu déroulant et après avoir cliqué n'importe où sur la feuille.
Ce que je cherche à faire est :
1) qu'après avoir choisi une valeur dans le menu déroulant, le zoom revienne automatiquement à la valeur optimale comme c'est le cas avec le code à l'ouverture du classeur
2) qu'il n'y ait pas besoin de faire un clic n'importe où dans la feuille après avoir fait le choix dans le menu déroulant pour activer le retour au zoom normal
Pouvez vous m'aider?
En vous remerciant
mon fichier joint étant amené à être utilisé par plusieurs personnes, j'ai défini dans ThisWorkbook le code suivant afin que le zoom s'adapte à l'ouverture du fichier pour afficher la zone A1 : EA20. Les futurs utilisateurs ayant tous des écrans avec des résolutions différentes :
VB:
Sub Workbook_Open()
Range("A1:EA20").Select
ActiveWindow.Zoom = True
End Sub
En C4 de ma feuil1, j'ai un menu déroulant et ce code pour pouvoir faire un zoom afin que la liste déroulante soit plus lisible :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20160530
On Error GoTo LZoom
Dim xZoom As Long
xZoom = Range("B2").Value
If Target.Validation.Type = xlValidateList Then xZoom = 140
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
Et en cellule B2, l'utilisateur définit la valeur de zoom à laquelle revenir après avoir fait un choix dans le menu déroulant et après avoir cliqué n'importe où sur la feuille.
Ce que je cherche à faire est :
1) qu'après avoir choisi une valeur dans le menu déroulant, le zoom revienne automatiquement à la valeur optimale comme c'est le cas avec le code à l'ouverture du classeur
2) qu'il n'y ait pas besoin de faire un clic n'importe où dans la feuille après avoir fait le choix dans le menu déroulant pour activer le retour au zoom normal
Pouvez vous m'aider?
En vous remerciant