XL 2016 Régler la hauteur des lignes de 10 a 25 d'une feuille soit par "use-forme / combo / bouton + ou - / macro

[berru76]

Bonjour
Si vous penser que cela est possible
Nous avons ( affichage "portrait" écran PC / télé selon le nombre d'équipes dans des pages de 10 a 100 )
Afin de préparer les concours selon notre écran
serait il possible par use forme / combo / macros ou genre zoom de définir la hauteur des lignes "afin de l'adapter en hauteur selon la page ouverte
ci-joint exemple
Merci de votre aide

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[JHA]

Bonjour à tous,

Pour réaliser cela sur toute la feuille, il te suffit de sélectionner toute la feuille (petit triangle en haut et à gauche de la feuille)
ensuite clic droit sur les numéros de ligne et tu changes la hauteur.

JHA

 

[berru76]

Bonjour
Ci joint ma solution

A+ François

Bonjour et merci de ton aide
Apres essai
serait il possible de préciser de la ligne 3 a 102 ( afin de ne pas modifier la présentation du concours )
et de faire des tailles intermédiaires genre 18 / 20 / 22 sur les boutons + ou -

 

[TooFatBoy]

Bonjour,

Pourquoi modifier uniquement la hauteur ?

 

[berru76]

Bonjour à tous,

Pour réaliser cela sur toute la feuille, il te suffit de sélectionner toute la feuille (petit triangle en haut et à gauche de la feuille)
ensuite clic droit sur les numéros de ligne et tu changes la hauteur.

JHA

Bonjour
pages protégées par MDP pour éviter les erreurs
c'est pour cela que je cherche un moyen sans ouvrir le MDP

 

[berru76]

Bonjour,

Pourquoi modifier uniquement la hauteur ?

Bonjour
Pour que sur la télé extérieur il voit les résultats et et le détail des joueurs
Merci

 

[Nicolas JACQUIN]

Bonjour,

Dans ThisWorkbook:

Private Sub Workbook_Open()
With Worksheets("100")
.Cells.RowHeight = 25
End With
End Sub

 

[fanfan38]

Avec 18, 20 et 22

A+ François

 

[Nicolas JACQUIN]

ou avec signe + et -, j'avais pas fais attention.

Sub SigneMoins7_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight - 5
End With
End Sub

Sub SignePlus5_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight + 5
End With
End Sub

ou alors

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight - 5
End With

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight + 5
End With

 

[TooFatBoy]

Pour que sur la télé extérieur il voit les résultats et et le détail des joueurs

Ça ne répond pas vraiment à la question.

 

[berru76]

Avec 18, 20 et 22

A+ François

Après essai seul 20 et 22 fonctionne
Merci de votre aide

ou avec signe + et -, j'avais pas fais attention.

Sub SigneMoins7_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight - 5
End With
End Sub

Sub SignePlus5_Cliquer()
[QUOTE="Nico_J, post: 20638825, member: 208211"]
ou avec signe + et -, j'avais pas fais attention.

[CODE=vb]Sub SigneMoins7_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight - 5
End With
End Sub

Sub SignePlus5_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight + 5
End With
End Sub

ou alors

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight - 5
End With

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight + 5
End With

With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight + 5
End With
End Sub[/CODE]

ou alors

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight - 5
End With

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight + 5
End With

[/QUOTE]
Bonjour

ou avec signe + et -, j'avais pas fais attention.

Sub SigneMoins7_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight - 5
End With
End Sub

Sub SignePlus5_Cliquer()
With ActiveSheet
.Cells.RowHeight = .Cells.RowHeight + 5
End With
End Sub

ou alors

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight - 5
End With

With ActiveSheet
.Rows("3:102").RowHeight = .Rows("3:102").RowHeight + 5
End With

Bonjour testé
La solution "ou alors" fonctionne très bien
Merci a vous

Ça ne répond pas vraiment à la question.

pour infos
Dans le concours j'affiche que la partie résultats a l'écran comme le montre la capture
Si j'essaie de régler par le zoom je ne peux pas afficher tout les noms d'où le besoin des Macros + ou -

 

[TooFatBoy]

Dans le concous j'affiche que la partie résultats a l'écran comme le montre la capture

Tiens, ça me rappelle quelque chose ces 1ervtour, 2e tour, etc.

Si j'essaie de régler par le zoom je ne peux pas afficher tout les noms

OK, je comprends mieux. Merci.