Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel changer l'épaiseur de la ligne

changer l'épaiseur de la ligne

2 réponses
Avatar
pellet15
Bonjour =E0 tous=20

J'ai un document qui fait une pr=E9sentation de facture.

j'ai besoin de serrer les lignes.
les lignes que j'ai un "x" dans la colonne "G"=20
je voudrait qu'il est hauteur 6 (8 pixels).
les autre standard.

comment inclure cela dans ma proc=E9dure=20

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,
*>comment inclure cela dans ma procédure
Quelle procédure ??
Peut-être ceci
'--------------------
Sub HauteurLigne()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("G2:g" & Cells.Find("*", , , , xlByRows, xlPrevious).Row)
If UCase(C.Value) = "X" Then C.Rows.RowHeight = 8
Next
Application.ScreenUpdating = True
End Sub
'----------------------

--
Salutations
JJ


"pellet15" a écrit dans le message de news:

Bonjour à tous

J'ai un document qui fait une présentation de facture.

j'ai besoin de serrer les lignes.
les lignes que j'ai un "x" dans la colonne "G"
je voudrait qu'il est hauteur 6 (8 pixels).
les autre standard.

comment inclure cela dans ma procédure

Merci
Avatar
pellet15
Le samedi 20 juin 2015 11:20:50 UTC-4, pellet15 a écrit :
Bonjour à tous

J'ai un document qui fait une présentation de facture.

j'ai besoin de serrer les lignes.
les lignes que j'ai un "x" dans la colonne "G"
je voudrait qu'il est hauteur 6 (8 pixels).
les autre standard.

comment inclure cela dans ma procédure

Merci



Cela fonctionne très bien
Merci