Microsoft 365 réduire l'espace entre les lignes

ricky1977 · 5 Décembre 2022

Bonjour,
je suis novice totalement avec Excel, mais j'ai récupéré un fichier que j'essai d'adapter a mes besoins.
Ici je voudrais simplement réduire l'espace qu'il y a entre les lignes, souligné en rouge sur l'image
il y a la ligne filed - value mais l'espace entre 2 field est trop grand, si quelqu'un a une idée de comment réduire cette espace ?
merci d'avance

fanfan38 · 5 Décembre 2022

Bonjour
Je n'ai jamais essayé de mettre des macros sur une image...
De plus tu mets les propriétés de la page et non de la liste
est ce un combobox, un listbox ou un listview ?
Bref, sans fichier...
A+ François

ricky1977 · 5 Décembre 2022

Bonjour François,
Merci de le préciser car étant novice : ici j'ai récupéré un fichier que j'essai d'améliorer, mais c'est du bricolage
Je ne saurais pas répondre ( je pense combobox )
j'envoi le fichier
merci beaucoup
richard
Edit ( je met un copié collé du rendu, j'aimerai que ce soit moins espacé entre les textes, mais c'est la ou le bricolage ne fonctionne plus )

fanfan38 · 5 Décembre 2022

C'est quoi cette usine à gaz...
201 labels pour afficher les données...
il faut déplacer le 1er pour voir les 200 autres cachés dessous d'une hauteur de 30 d'où l'espace
Que veux-tu faire exactement ?

A+ François

ricky1977 · 5 Décembre 2022

merci beaucoup pour la réponse .
J'avoue que j'ai juste récupéré le template, je n'ai aucune idée du comment c'est empilé.
Merci d'avoir pris le temps de répondre
c'est a peut prêt ce que je voulais faire.
Sans vouloir abuser, est ce possible de ne masquer les lignes grises ?

ricky1977 · 5 Décembre 2022

en revanche ça ne masque plus le fichier excel derriere ? comment faire pour n'afficher que la "console" (si ça s'appelle comme ça ? )

ça a l'air de bouffer les lignes également, je ne sais pas si c'est possible de résoudre cela aussi ?

fanfan38 · 5 Décembre 2022

Je l'ai fait pour les 15 premiers

VB:

consola.gf_14.Height = Range(pos_x1 & pos_y & "14").Height
consola.gv_14.Height = Range(pos_x2 & pos_y & "14").Height

à mettre au début des commandes par label ... dans le module init_gerneral
les macros first_part et second_part...

A+ François

ricky1977 · 7 Décembre 2022

fanfan38 à dit:
Je l'ai fait pour les 15 premiers

VB:

consola.gf_14.Height = Range(pos_x1 & pos_y & "14").Height consola.gv_14.Height = Range(pos_x2 & pos_y & "14").Height

à mettre au début des commandes par label ... dans le module init_gerneral
les macros first_part et second_part...

A+ François

Désolé de la réponse tardive.
Merci beaucoup, je pense que je vais m'en sortir
Bonne soirée

ricky1977 · 7 Décembre 2022

finalement je pense que je n'ai pas tout a fait compris
comment est ce que je peux copier ceci dans les macros first_part et second_part ?
je séche

fanfan38 · 8 Décembre 2022

Bonjour

VB:

[COLOR=rgb(184, 49, 47)][B]consola.gf_13.Height = Range(pos_x1 & pos_y & "13").Height[/B][/COLOR]
consola.gf_13.Caption = Range(pos_x1 & pos_y & "13").Text
consola.gf_13.Font.Size = Range(pos_x1 & pos_y & "13").Font.Size
consola.gf_13.ForeColor = Range(pos_x1 & pos_y & "13").Font.Color
[COLOR=rgb(184, 49, 47)][B]consola.gv_13.Height = Range(pos_x2 & pos_y & "13").Height[/B][/COLOR]
consola.gf_13.BackColor = Range(pos_x1 & pos_y & "13").Interior.Color
consola.gv_13.Caption = Range(pos_x2 & pos_y & "13").Text
consola.gv_13.Font.Size = Range(pos_x2 & pos_y & "13").Font.Size
consola.gv_13.ForeColor = Range(pos_x2 & pos_y & "13").Font.Color
consola.gv_13.BackColor = Range(pos_x2 & pos_y & "13").Interior.Color
[COLOR=rgb(184, 49, 47)][B]consola.gf_14.Height = Range(pos_x1 & pos_y & "14").Height[/B][/COLOR]
consola.gf_14.Caption = Range(pos_x1 & pos_y & "14").Text
consola.gf_14.Font.Size = Range(pos_x1 & pos_y & "14").Font.Size
consola.gf_14.ForeColor = Range(pos_x1 & pos_y & "14").Font.Color
consola.gf_14.BackColor = Range(pos_x1 & pos_y & "14").Interior.Color
[COLOR=rgb(184, 49, 47)][B]consola.gv_14.Height = Range(pos_x2 & pos_y & "14").Height[/B][/COLOR]
consola.gv_14.Caption = Range(pos_x2 & pos_y & "14").Text
consola.gv_14.Font.Size = Range(pos_x2 & pos_y & "14").Font.Size
consola.gv_14.ForeColor = Range(pos_x2 & pos_y & "14").Font.Color
consola.gv_14.BackColor = Range(pos_x2 & pos_y & "14").Interior.Color
[COLOR=rgb(184, 49, 47)][B]consola.gf_15.Height = Range(pos_x1 & pos_y & "15").Height[/B][/COLOR]
consola.gf_15.Caption = Range(pos_x1 & pos_y & "15").Text
consola.gf_15.Font.Size = Range(pos_x1 & pos_y & "15").Font.Size
consola.gf_15.ForeColor = Range(pos_x1 & pos_y & "15").Font.Color
consola.gf_15.BackColor = Range(pos_x1 & pos_y & "15").Interior.Color
[COLOR=rgb(184, 49, 47)][B]consola.gv_15.Height = Range(pos_x2 & pos_y & "15").Height[/B][/COLOR]
consola.gv_15.Caption = Range(pos_x2 & pos_y & "15").Text
consola.gv_15.Font.Size = Range(pos_x2 & pos_y & "15").Font.Size
consola.gv_15.ForeColor = Range(pos_x2 & pos_y & "15").Font.Color
consola.gv_15.BackColor = Range(pos_x2 & pos_y & "15").Interior.Color

Etc....
A+ François

ricky1977 · 8 Décembre 2022

Ça marche avec la première formule
Il manquait certains, et d'autres étaient en doublons. Maintenant ça fonctionne.
Merci encore
J'ai plus que 70 a taper looool.
Il y aurait un raccourci ?

fanfan38 · 8 Décembre 2022

Et non... sinon je l'aurai fait... lol
Bon courage
A+ François

ricky1977 · 8 Décembre 2022

fanfan38 à dit:
Et non... sinon je l'aurai fait... lol
Bon courage
A+ François

c'est ce que je me disais
alors c'est parti
merci encore

ricky1977 · 8 Décembre 2022

j'ai un autre soucis, maintenant entre la ligne 34-35, ça ne fonctionne pas et je ne comprend pas pourquoi?
je ne pense pas avoir fait d'erreur ( j'ai rentré les 50 premiers )

fanfan38 · 8 Décembre 2022

Erreur Ligne 340 (c'est marqué en haut sous outils)
consola.gf_33.Height = Range(pos_x1 & pos_y & "33").Height
au lieu de
consola.gf_34.Height = Range(pos_x1 & pos_y & "34").Height
+ GF35 qui était un poil trop bas...
A+ François

Microsoft 365 réduire l'espace entre les lignes

ricky1977

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

ricky1977

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

ricky1977

XLDnaute Occasionnel

ricky1977

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

ricky1977

XLDnaute Occasionnel

ricky1977

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

ricky1977

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

ricky1977

XLDnaute Occasionnel

ricky1977

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

Discussions similaires