Dimmension Feuille

[Hulk]

Bonsoir à tous,

Comment fait-on pour redimmensionner la feuille Excel ?

Avec le ScrollArea ça nous donne la possibilité de réduire le champ d'action, ce n'est pas ce que je souhaite, je désire caremment réduire le nombre de colonnes et de lignes.
Exemple les colonnes s'arretent à Z, et les ligne à 50
(taille de la feuille A1:Z50 après plus rien!)

Il me semble déjà avoir vu ça quelque part, mais je ne le retrouve plus dans mes titoirs...😀

Merci pour votre aide !

Hulk.

 

[jeanpierre]

Re : Dimmension Feuille

Bonsoir Hulk,

Tu selectionnes tes colonnes de AA à IV, clic droit et masquer, pareil pour les lignes de 51 à 65536 et toujours masquer

Voilà.

Bonne soirée.

Jean-Pierre

 

[ya_v_ka]

Re : Dimmension Feuille

Hello

Pour completer la réponse, je me permets de signaler que :

Sélectionner le première colonne à masquer, puis Ctrl + Shift + Flèche de direction droite, ensuite masquer...

Idem pour les lignes mais avec la flèche de direction bas...

Ya'v

 

[Hulk]

Re : Dimmension Feuille

Re-bonsoir à tous, salut Jeanpierre et ya v ka,

Hmm non, ce que je désire c'est re-dimensionner le classeur, et non pas masquer des cellules.

Il me semble que j'ai déjà vu ça quelque part... ça doit être possible.

Merci quand même pour ta proposition Jeanpierre.

Hulk.

 

[gfortin9]

Re : Dimmension Feuille

Allô!

Dans : ThisWorkBook

Private Sub Workbook_Open()
Worksheets(1).ScrollArea = "A1:Z50"
End Sub

Est-ce cela ton souvenir vague ?
Si oui, je viens de te remettre à flot.

Mauvais jeu de mot 😱 😀

GFortin

 

[Hulk]

Re : Dimmension Feuille

Bonjour le Forum, et gfortin,

C'est ce que je disais, avec le ScrollArea ça limite le champ d'action uniquement (ce qui est déjà bien !).

Peut-être que j'avais rêvé 😀 mais le classeur quand on l'ouvrait, il était tout petit...

Bref, si pas posible, je me contenterai du ScrollArea.

Merci gfortin.

Bon dimanche à tous !

Hulk.

 

[Hulk]

Re : Dimension Feuille

Re bonjour à tous,

Euh petit aparté 😛... Pour appliquer le code sur toutes les feuilles il me manque quelque chose non ?

Je patauge ça ne joue pas 😡

Private Sub Workbook_Open()
For Each feuilles In Worksheets
ScrollArea = "A1:Z50"
Next feuilles
End Sub


Merci.

Hulk.

 

[ftho]

Re : Dimmension Feuille

Bonjour,

Oui il manque un ou deux ptits détails 😀
Une des solutions possibles

Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).ScrollArea = "A1:Z50"
Next
End Sub

 

[Hulk]

Re : Dimmension Feuille

Salut à tous,

Merci ftho impec, j'étais loin de ça quand même.

Le post reste ouvert.

Comment faire pour re-dimensionner la feuille, sans passer par le ScrollArea et sans masquer les lignes et colonnes.

Merci pour votre aide.

Hulk.

 

[ftho]

Re : Dimmension Feuille

Comment faire pour re-dimensionner la feuille, sans passer par le ScrollArea et sans masquer les lignes et colonnes.

Quoi que tu fasses, une feuille gardera toujours le même nombre de lignes et de colonnes. Il n'y a pas moyen de contourner ça.

 

[Hulk]

Re : Dimmension Feuille

Salut à tous et toutes,

Quoi que tu fasses, une feuille gardera toujours le même nombre de lignes et de colonnes. Il n'y a pas moyen de contourner ça.

Okey je note et merci pour ta contribution Ftho.

Bonne fin de week à tous !

@+, Hulk.

 

[mécano41]

Re : Dimension Feuille

Je patauge ça ne joue pas 😡

Private Sub Workbook_Open()
Dim feuille As Variant
For Each feuille In Worksheets
feuille.ScrollArea = "A1:Z50"
Next feuille
End Sub
.

Bonsoir,

Tu n'étais pas loin !

Cordialement

 

[Hulk]

Re : Dimmension Feuille

Bonjour à tous,

Salut Mécano41, merci pour ta réponse.

Effectivement j'étais pas loin 😀

Merci encore @+, Hulk.