XL 2010 scrollarea colonnes

[TheProdigy]

Bonjour tout le monde,

Je reviens vers vous pour vous demander comment appliquer le scroll area sur la plage colonne (1) à la colonne (16)

Merci

 

[TheProdigy]

Bonjour @Staple1600 , le forum

un merci de reconnaissance pour ton effort. Bonne question. Tu m'as eu

Bonne journée!

 

[Si...]

Bon_jour


Pour ne pouvoir sélectionner que dans la plage "A1 : P16" indépendamment de toute protection et avec ScrollArea (définie pour ce genre d'encadrement)

Private Sub Worksheet_Activate()
   Me.ScrollArea = [A1:P16].Address  '|A:P] pour les colonnes entières
End Sub

Les autres cellules seront visibles, à toute fin utile, bien qu'intouchables !

On peut aussi restreindre la zone de travail sans macro :
clic bouton droit sur le nom de l'onglet puis après sélection de Visualiser le code, saisir l'adresse

 

[TheProdigy]

Bon_jour


Pour ne pouvoir sélectionner que dans la plage "A1 : P16" indépendamment de toute protection et avec ScrollArea (définie pour ce genre d'encadrement)

Private Sub Worksheet_Activate()
   Me.ScrollArea = [A1:P16].Address  '|A:P] pour les colonnes entières
End Sub

Les autres cellules seront visibles, à toute fin utile, bien qu'intouchables !

On peut aussi restreindre la zone de travail sans macro :
clic bouton droit sur le nom de l'onglet puis après sélection de Visualiser le code, saisir l'adresse
Regarde la pièce jointe 1013986

Merci top

 

[TheProdigy]

Bon_jour


Pour ne pouvoir sélectionner que dans la plage "A1 : P16" indépendamment de toute protection et avec ScrollArea (définie pour ce genre d'encadrement)

Private Sub Worksheet_Activate()
   Me.ScrollArea = [A1:P16].Address  '|A:P] pour les colonnes entières
End Sub

Les autres cellules seront visibles, à toute fin utile, bien qu'intouchables !

On peut aussi restreindre la zone de travail sans macro :
clic bouton droit sur le nom de l'onglet puis après sélection de Visualiser le code, saisir l'adresse
Regarde la pièce jointe 1013986

Bonjour @Si...

Ton code fonctionne quand j'applique mais quand j'enregistre le fichier et je re ouvre il disparaît je ne sais pas pourquoi.

Merci

 

[farid]

vate Sub Worksheet_Activate() Me.ScrollArea = [A116].Addres

Bon_jour


Pour ne pouvoir sélectionner que dans la plage "A1 : P16" indépendamment de toute protection et avec ScrollArea (définie pour ce genre d'encadrement)

Private Sub Worksheet_Activate()
   Me.ScrollArea = [A1:P16].Address  '|A:P] pour les colonnes entières
End Sub

Les autres cellules seront visibles, à toute fin utile, bien qu'intouchables !

On peut aussi restreindre la zone de travail sans macro :
clic bouton droit sur le nom de l'onglet puis après sélection de Visualiser le code, saisir l'adresse
Regarde la pièce jointe 1013986

Merci