A voir également:
- Aide Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
Bonjour
Un exemple qui trace un trait vertical à droite de la plage
Cdlmnt
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
Cdlmnt
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 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
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
Il me faudrait un trait à droite sur chaque cellule de A à R.
Merci beaucoup.