Aide Macro
scelera
Messages postés
40
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je souhaiterai intégrer dans ma macro une formule qui me permettrait de mettre un trait vertical noir entre chaque colonne en fonction du nombre de cellule.
Je souhaiterai intégrer dans ma macro une formule qui me permettrait de mettre un trait vertical noir entre chaque colonne en fonction du nombre de cellule.
2 réponses
-
Bonjour
Un exemple qui trace un trait vertical à droite de la plage
Sub TraitVertical() Dim lideb As Long, lifin As Long, co As Long, plage As Range lideb = 5 lifin = 8 co = 3 Set plage = Range(Cells(lideb, co), Cells(lifin, co)) With plage.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
Cdlmnt -
Essaies comme ceci
Sub TraitVertical() Dim lideb As Long, lifin As Long, codeb, cofin, li As Long, co As Long lideb = 5 lifin = 8 codeb = 3 cofin = 6 For li = lideb To lifin For co = codeb To cofin With Cells(li, co).Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Next co Next li End Sub
Cdlmnt-
-
-
Ha oui en effet. Merci j'ai rectifié. Mais il n'y a pas un moyen de mettre une valeur pour que la fin du tracage soit automatique ? Par exemple si un jour ma plage va jusqu'à la ligne 10 alors le trait s'arrête à la ligne 10 et si demain ma plage va jusqu'à la ligne 25 alors le trait s'arrête à la ligne 25. Un peu dans ce style là:( la c'est pour définir la zone d'impression automatiquement.)
Dim lig As Long, col As Integer
With ActiveSheet
col = .UsedRange.Columns.Count
lig = .UsedRange.Rows.Count
.PageSetup.PrintArea = "$A$1:$" & Chr(col + 64) & "$" & lig
End With -
-
Dim lideb As Long, lifin As Long, codeb, cofin, li As Long, co As Long
lideb = 1
lifin = Cells(Rows.Count, codeb).End(xlUp).Row
codeb = (.)
cofin = 18
For li = lideb To lifin
For co = codeb To cofin
With Cells(li, co).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next co
Next li
-
