Largeur et hauteur identique

[lolo42]

Bonjours tous le monde.

Voilà mon problème: j' ai un classeur qui comporte une douzaine d' onglets, et je voudrais avoir la même largeur et hauteur de colonne dans chacun de ces onglets afin d' avoir une meilleur présentation.

Y a t' il une solution pour cela ?

Merci à vous

 

[lolo42]

Re : Largeur et hauteur identique

j'ai essayé ça, mais il semble que ça ne fonctionne pas

Sub MiseenPage()
Dim X As Byte
Dim Y As Long
Dim Z As Integer

Application.ScreenUpdating = 0

For X = 5 To 12 'ici pour 12 feuilles
For Y = 1 To 100 'ici pour 100 lignes
For Z = 1 To 22 'ici pour 22 colonnes

Sheets(X).Range("A" & Y).RowHeight = Sheets(5).Range("A" & Y).RowHeight
Sheets(X).Columns(Z).ColumnWidth = Sheets(5).Columns(Z).ColumnWidth

Next Z
Next Y
Next X

End Sub

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,

Peux-tu déposer ton fichier pour éviter que ce fil ne devienne une pelote ?

A+ à tous

 

[Victor21]

Re : Largeur et hauteur identique

Bonjour.

Dim X As Byte
Dim Y As Long
Dim Z As Integer
(...)
For X = 5 To 12 'ici pour 12 feuilles
For Y = 1 To 100 'ici pour 100 lignes
For Z = 1 To 22 'ici pour 22 colonnes

...

Pourquoi déclarer les variables Y as long et Z as integer.
Byte suffirait, non ?

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,

Si tu relis la demande, le seul renseignement que nous avons est le nombre de feuilles...

Notre ami est sous XL 2003 donc

• le nombre de colonne est de 256 au plus, le Byte ne suffit pas
• le nombre de lignes est 65 536 au plus donc le Integer ne suffit pas

Personnellement, j'aime appliquer le "Qui peut le plus peut le moins.... Aristote"

A+ à tous

 

[DoubleZero]

Re : Largeur et hauteur identique

Bonjour lolo42, le Fil, le Forum,

L’occasion m’a déjà été donnée d’écrire (et de penser…) que « le ridicule ne tue pas »…

Par conséquent, je suggère une alternative, certes, bien moins professionnelle que les propositions émises supra 🙂:

L'insertion d'une forme VERITABLEMENT carrée permet d'obtenir (approximativement) le résultat escompté.

Après avoir dessiné le carré, il suffit d'ajuster manuellement la hauteur de cellule et la largeur de colonne à la forme qui vient d'être dessinée.

Il est vrai qu'il ne s'agit là que de bricolage mais... cela peut dépanner !

Ne reste plus, alors, qu’à repérer les dimensions de la cellule qu’il convient de reproduire sur chaque ligne et colonne de l'ensemble des onglets.

P. S. : à toutes fins utiles... l'obtention d'une forme VERITABLEMENT carrée s'obtient en maintenant la touche Shift 😕 (j'ai peur de ne pas employer le terme approprié ???) enfoncée pendant le tracé de la forme.

P. S. ' : je me demande si tout ce qui vient d'être mentionné est bien clair... 😕😕

 

[lolo42]

Re : Largeur et hauteur identique

Merci à tous pour vos réponses;

j' ai trouver ma solution qui n' ai pas celle donnée par DoubleZero pour info (pour sa gouverne, j'essaye simplement de m' informer car je ne suis pas un génie ou ce qu' il voudra, donc au lieu de faire des conneries ailleurs, je pense que « le ridicule ne tue pas »
Merci quand même à tous les participant de ce forum qui sont d' un grande aide pour moi.

Cordialement

 

[Victor21]

Re : Largeur et hauteur identique

Bonjour,

...
Si tu relis la demande, le seul renseignement que nous avons est le nombre de feuilles...

Notre ami est sous XL 2003 donc

• le nombre de colonne est de 256 au plus, le Byte ne suffit pas
• le nombre de lignes est 65 536 au plus donc le Integer ne suffit pas

Personnellement, j'aime appliquer le "Qui peut le plus peut le moins.... Aristote"

A+ à tous

C'est en effet une sage précaution.
Merci pour ta réponse

 

[DoubleZero]

Re : Largeur et hauteur identique

Re-Bonjour lolo42, le Fil, le Forum,

Merci à tous pour vos réponses;

j' ai trouver ma solution qui n' ai pas celle donnée par DoubleZero pour info (pour sa gouverne, j'essaye simplement de m' informer car je ne suis pas un génie ou ce qu' il voudra, donc au lieu de faire des conneries ailleurs, je pense que « le ridicule ne tue pas »
Merci quand même à tous les participant de ce forum qui sont d' un grande aide pour moi.

Cordialement

@ lolo42 🙂,

Craignant une éventuelle méprise, je souhaiterais préciser que la mention « le ridicule ne tue pas », écrite dans mon précédent message (#20), ne s’adresse qu’à moi.


Bonne fin de journée 😀.

 

[tbft]

Re : Largeur et hauteur identique

Bonjour tout le monde.

Je vais peut être faire un hors sujet...Mais je tente...
Pour parcourir les feuilles, j'utilise une boucle
for each folio in worksheets
......
next folio

pour connaitre le nombre de ligne est de colonne utilisé, je me sers de trois instrcutions: Ubound Lbound et usedrange
Le Ubound me donne la fin et le Lbound me donne le début
Le UsedRange permet d'indentifer la zone utilisé...

Voici mon code (fortement dérivé de celui du maitre JCGL)

Private Const Nom_Feuille_Type = "Feuil1"
'

Public Sub MEF()
Dim Folio As Worksheet
Dim Lig As Long, col As Long
Dim lig_fin As Long, col_fin As Long
Dim lig_deb As Long, col_deb As Long
  
  lig_fin = UBound(Worksheets(Nom_Feuille_Type).UsedRange.Value, 1)
  col_fin = UBound(Worksheets(Nom_Feuille_Type).UsedRange.Value, 2)
  lig_deb = LBound(Worksheets(Nom_Feuille_Type).UsedRange.Value, 1)
  col_deb = LBound(Worksheets(Nom_Feuille_Type).UsedRange.Value, 2)
  For Each Folio In Worksheets
    If Folio.Name <> Nom_Feuille_Type Then
      For Lig = lig_deb To lig_fin
        Folio.Rows(Lig).RowHeight = Sheets(Nom_Feuille_Type).Range("A" & Lig).RowHeight
      Next Lig
      For col = col_deb To col_fin
        Folio.Columns(col).ColumnWidth = Sheets(Nom_Feuille_Type).Columns(col).ColumnWidth
      Next col
    End If
  Next Folio
End Sub