changer l'épaiseur de la ligne

Le
pellet15
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #26357398
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"
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
pellet15
Le #26357424
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
Publicité
Poster une réponse
Anonyme