Ajuster le zoom en VB

Bonjour Fabien

Avec

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

cela devrait fonctionner

@+ GD

Merci Gérard

Je suis imprésionné

A+

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+

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+