FIGER LES VOLETS

T

tastet

XLDnaute Nouveau

• 2 Février 2018

• #16

Bonjour,
C'est exactement ce que j'ai fais, même en modifiant les lettres et chiffres, pour la page si je me sert de la roulette de la souris, ça continue à défiler vers le bas.
le code quand je ferme et re ouvre est toujours la .

 

Vote positif 0 Vote négatif

T

tastet

XLDnaute Nouveau

• 2 Février 2018

• #17

Voila je joint une page pour mieux comprendre ce que je recherche.
J'aimerais que la page ne puisse pas descendre pas plus bas que la ligne 37 et de la colonne A Y

 

Pièces jointes

• ATTRIB TERRAINS equipe seul.xls

  52 KB · Affichages: 28

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 2 Février 2018

• #18

Bonjour,

ceci fonctionne : (dans le code de la feuille)

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.ScrollArea = "A1:F45"
End With
End Sub

 

Vote positif 0 Vote négatif

T

tastet

XLDnaute Nouveau

• 2 Février 2018

• #19

En effet c'est bon, sauvegarder la feuille après avoir protégé .
La page reste fixe, mais quand je ferme et revient, c'est comme si je n'avais rien fais. Le code à disparut ?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 2 Février 2018

• #20

Bonjour

Il faut sauvegarder en xlsm. Microsoft le signale: il faut lire les messages !

 

Vote positif 0 Vote négatif

T

tastet

XLDnaute Nouveau

• 3 Février 2018

• #21

Bonjour Chris,

Attends, vois tu je ne suis pas très doué en VBA, sauvegarder en xlsm je fais comment ? je suis sous xl 2003.
Pas facile quand l'on ne connait pas grand chose.
Merci pour ton aide. Bon dimanche.

 

Vote positif 0 Vote négatif