XL 2010 scrollarea colonnes

TheProdigy · 14 Juin 2018

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

pierrejean · 14 Juin 2018

Bonjour adilprodigy

Salut Lone_Wolf

En supposant avoir compris ta demande (qui est loin d’être évidente !!!!)

TheProdigy · 19 Juin 2018

Bonjour @Staple1600 , le forum

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

Bonne journée!

Si... · 19 Juin 2018

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)

VB:

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 · 22 Juin 2018

Si... à dit:
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)

VB:

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 · 2 Juillet 2018

Si... à dit:
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)

VB:

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 · 30 Janvier 2022

Si... à dit:
vate Sub Worksheet_Activate() Me.ScrollArea = [A116].Addres

Si... à dit:
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)

VB:

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

XL 2010 scrollarea colonnes

TheProdigy

XLDnaute Impliqué

pierrejean

TheProdigy

XLDnaute Impliqué

Si...

XLDnaute Barbatruc

TheProdigy

XLDnaute Impliqué

TheProdigy

XLDnaute Impliqué

farid

XLDnaute Occasionnel

Discussions similaires