Ajuster le zoom en VB

[Fabien]

Bonjour le forum,

Je voudrais savoir ci il est possible d'ajuster le zoom en VB

Ex l'ajuster par rapport à la sélection A1:M24

Merci
A+

 

[Gérard DEZAMIS]

Bonjour Fabien

Avec

Range("A1:M24").Select
ActiveWindow.Zoom = True

cela devrait fonctionner

@+ GD

 

[Fabien]

Merci Gérard

Je suis imprésionné

A+

 

[Fabien]

Re,

J'essaye de l'ajuster de A1 à une cellule contenant BASBAS
Elle sera obligatoirement dans la colonne AE

J'ai écrit une macro mais elle ne marche pas

Dim L As Long
With Sheets(1)
On Error Resume Next
L = WorksheetFunction.Match("BASBAS", .Columns(AE), 0)
If Err Then Exit Sub
On Error GoTo 0
Range("A1:AE" & L).Select
ActiveWindow.Zoom = True
End With

Si quelqu'un voit l'erreur

A+

 

[Fabien]

Pas j'ai trouvé

Dim L As Long
With Sheets("Ma feuille")
L = WorksheetFunction.Match("BASBAS", .Columns("AE"), 0)
Range("A1:AE" & L).Select
ActiveWindow.Zoom = True
End With


A+