Bonjour à tous
j'ai créer une liste déroulante et je ne trouve pas la façon de
modifié la police car c'est trop petit, y a t'il une façon de faire
pour règler ce problème?(excel 2007)
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour,
Dans le module feuille où l'action se déroule, tu peux copier ce bout de code. L'exemple utilise la cellule D1 mais tu peux remplacer cette dernière par la plage de cellules que tu désires.
Ce n'est pas idéal... mais cela peut dépanner !
'Déclaration de la varirable dans le haut du module Dim MyZoom As Integer
'----------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then ActiveWindow.Zoom = 150 Else If MyZoom = 0 Then MyZoom = ActiveWindow.Zoom End If ActiveWindow.Zoom = MyZoom End If End Sub '-----------------------------
"j-marc" a écrit dans le message de groupe de discussion : Bonjour à tous j'ai créer une liste déroulante et je ne trouve pas la façon de modifié la police car c'est trop petit, y a t'il une façon de faire pour règler ce problème?(excel 2007) Merci
Bonjour,
Dans le module feuille où l'action se déroule, tu peux copier
ce bout de code. L'exemple utilise la cellule D1 mais tu peux
remplacer cette dernière par la plage de cellules que tu désires.
Ce n'est pas idéal... mais cela peut dépanner !
'Déclaration de la varirable dans le haut du module
Dim MyZoom As Integer
'-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
ActiveWindow.Zoom = 150
Else
If MyZoom = 0 Then
MyZoom = ActiveWindow.Zoom
End If
ActiveWindow.Zoom = MyZoom
End If
End Sub
'-----------------------------
"j-marc" <jmarc@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: 545E45A8-8366-404A-BBCA-8A8A6C7DCE23@microsoft.com...
Bonjour à tous
j'ai créer une liste déroulante et je ne trouve pas la façon de
modifié la police car c'est trop petit, y a t'il une façon de faire
pour règler ce problème?(excel 2007)
Merci
Dans le module feuille où l'action se déroule, tu peux copier ce bout de code. L'exemple utilise la cellule D1 mais tu peux remplacer cette dernière par la plage de cellules que tu désires.
Ce n'est pas idéal... mais cela peut dépanner !
'Déclaration de la varirable dans le haut du module Dim MyZoom As Integer
'----------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then ActiveWindow.Zoom = 150 Else If MyZoom = 0 Then MyZoom = ActiveWindow.Zoom End If ActiveWindow.Zoom = MyZoom End If End Sub '-----------------------------
"j-marc" a écrit dans le message de groupe de discussion : Bonjour à tous j'ai créer une liste déroulante et je ne trouve pas la façon de modifié la police car c'est trop petit, y a t'il une façon de faire pour règler ce problème?(excel 2007) Merci
