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 oublier de préciser le problème est identique pour les lignes aussi
désolé pour ce petit oubli dans ma question précédement citée.

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,

Tu sélectionnes tous les onglets (clique droit sur un onglet et Sélectionner toutes les feuilles)

La mise en page de la feuille visible se fera sur toutes les feuilles

A+ à tous

 

[lolo42]

Re : Largeur et hauteur identique

Salut JCGL
Merci pour ta réponse, mais ce n' ai pas exactement ce que je recherche:
Dans certains onglets, la largeur et la hauteur des lignes et des colonnes n' ai pas identique;
je voudrai qu'elle le soit pour avoir une bonne présentation;
Ou bien je n' ai pas compris ta solution peut être ?

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,

Dans ton classeur de 12 feuilles, quelle est la feuille qui te conviendrait en mise en page ?

A+ à tous

 

[lolo42]

Re : Largeur et hauteur identique

Désolé pour le retard de ma réponse, un cout de fil !!

C' es la mise en page de la feuille 5 qui me convient comme modèle

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,

Peux-tu essayer en plaçant ce bout de code dans un Module (accessible par Alt F11 et Insertion / Module :

[highlight= VBA]Sub MiseenPage()
Dim X As Byte
Dim Y As Long
Dim Z As Integer

Application.ScreenUpdating = 0

For X = 1 To 12 'ici pour 12 feuilles
For Y = 1 To 20 'ici pour 20 lignes
For Z = 1 To 20 'ici pour 20 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[/code]

A+ à tous

 

[lolo42]

Re : Largeur et hauteur identique

Je ne maitrise pas les module, mais je vais m 'y intéresser pour essayer ta solution.

Merci pour ta réponse qui me sera bien pratique

 

[tbft]

Re : Largeur et hauteur identique

Bonjour

Pour inserer le code de JCGL, ouvre l'éditeur de macro avec Outils/Macro/Visual Basic Editor ou avec le raccourci ALT+F11.
Puis dans le programme Microsfot Visual Basic, tu insere un module vide avec Insertion/Module.
Il te reste alors plus qu'à faire un copier coller du code de JCGL....

@JCGL
J'ai une question. pourquoi dans la premiere ligne de mise en forme tu récuperes la hauteur de ligne de la feuille 1 et dans la deuxieme ligne tu recupere la larguer de la feuille 5? Peux tu m'éclairer, stp?
D'avance merci..

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,
Salut TBFT,

Une erreur d'inattention, mon cher...
Tu as entièrement raison la feuille qui convient à notre ami est bien sa feuille 5

A++ et Merci pour ta vigilance 🙂

A+ à tous

 

[Papou-net]

Re : Largeur et hauteur identique

Bonjour lolo42, JCGL, tbft

RE : lolo42,

Si tu ne dois faire cette manipulation qu'une seule fois, et pour éviter la création d'une macro à usage unique, alors voici une méthode manuelle :

- Tu sélectionnes toutes les cellules de ta feuille 5

- Tu cliques sur le pinceau de recopie

- Tu sélectionnes toutes les autres feuilles (Ctrl + clic gauche sur les onglets)

- Enfin clic gauche dans la zone en haut et à gauche des repères de cellules

Espérant avoir répondu.

Cordialement.

 

[lolo42]

Re : Largeur et hauteur identique

Merci pour ta réponse, mais est ce que tu peut m' expliquer ce que veut dire X Y Z et est ce qu' il faut que je mette des valeur à la place car ça ne fonctionne pas

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,
Salut Papou-Net,

Il me semble que la mise en forme par le "pinceau" ne comprend pas la Hauteur de lignes et la Largeur des colonnes...

A+ à tous

 

[JCGL]

Re : Largeur et hauteur identique

Bonjour à tous,

For X = 1 To 12 'ici pour 12 feuilles
For Y = 1 To 20 'ici pour 20 lignes
For Z = 1 To 20 'ici pour 20 colonnes

Les explications sont dans le code...

A+ à tous

 

[Papou-net]

Re : Largeur et hauteur identique

Bonjour à tous,
Salut Papou-Net,

Il me semble que la mise en forme par le "pinceau" ne comprend pas la Hauteur de lignes et la Largeur des colonnes...

A+ à tous

RE JCGL,

Si, ça les prend bien en compte, j'ai testé.

Cordialement.