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
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
*>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
Cela fonctionne très bien
Merci