scrolling limité: erreur de syntaxe

[gfmout]

Bonsoir le forum,

Sur une feuille, je voudrais limiter l'accés aux cellules en changeant les parametres de scrolling par macro.
ca marche pour une valeur fixe comme ça:

Sheet13.ScrollArea = 'A8:AM700'

C'est pas pratique si le tableau change de taille...
Comment faire pour que la macro limite de A8 jusqu'à la dernière cellule alimentée du tableau?
J'ai essayé cette formule, mais j'ai une erreur de syntaxe?
Pouves vous m'aider?

Sheet13.ScrollArea = Range('A8, Range('AM2').End(x1Down).Rows)

Merci d'avance

Gilles

 

[Mytå]

Salut le Forum

Un macro à adapter à ton fichier

Sub Figer_Plage()

Dim Lig_Debut As Long 'Ligne maximum 65536'
Dim Lig_Fin As Long
Dim Col_Debut As Integer 'Colonne maximum 256'
Dim Col_Fin As Integer

ActiveSheet.ScrollArea = ''

'La ligne si haut est à ajouter à une macro pour permettre de modifier le ScrollArea (Ajout/Suppresion de Lignes/Colonnes)'

With ActiveSheet

    With .UsedRange
        Lig_Debut = .Row
        Lig_Fin = .Row + .Rows.Count - 1
        Col_Debut = .Column
        Col_Fin = .Column + .Columns.Count - 1
    End With
    
.ScrollArea = Range(Cells(Lig_Debut, Col_Debut), Cells(Lig_Fin, Col_Fin)).Address

End With

End Sub

Myta

 

[gfmout]

Bonsoir Myta, Jmps

MErci pour vos suggestions.

J'ai mis ça en place cette semaine et ça marche super!!

Gilles