Programmation vba quadrillage

[alex44510]

Bonjour à tous,

J'ai une programmation VBA qui me pose probleme.

Voila j'ai automatisé le quadrillage lorsque j'insere une nouvelle ligne dans mon tableau Excel.

Sauf que mon quadrillage s'arrete a la colonne I au lieu de la colonne J. Il y a par consequent je suis obliger faire le quadrillage automatique sur la colonne J manuellement.

Voici ma prog VBA:

Private Sub Worksheet_Activate()
Dim ws As Worksheet, fin&, fin1
Application.ScreenUpdating = 0
With Feuil1
fin = .Range("A" & Rows.Count).End(xlUp).Row
If fin < 9 Then fin = 9
.Range("A9:J" & fin).ClearContents
.Range("A9:J" & fin).Borders.LineStyle = 0
Feuil2.Rows(9).Copy .Rows(9)
.Range("A1") = "RECAPITULATIF DES RDV " & Right(.Name, 4)
For Each ws In Worksheets
If ws.Name <> "Tableau de Bord" And ws.Name <> "INFORMATION AGENCE" _
And Not ws.Name Like "RECAPITULATIF DES RDV" & "*" And ws.Name <> "RECAPITULATIF RDV PAR N°FICHE" Then
fin = .Range("A" & Rows.Count).End(xlUp).Row
fin1 = ws.Range("A" & Rows.Count).End(xlUp).Row
If fin < 9 Then fin = 9
If fin1 <= 9 Then GoTo 1
ws.Range("A10:J" & fin1).Copy Feuil1.Range("A" & fin + 1)
End If
1 Next ws
fin = .Range("A" & Rows.Count).End(xlUp).Row
If fin < 9 Then fin = 9
.Range("A9:J" & fin).Borders.LineStyle = 1
.Columns("A:A").ColumnWidth = 13: .Columns("B:B").ColumnWidth = 8
.Columns("C:C").ColumnWidth = 15: .Columns("E:E").ColumnWidth = 33
.Columns("F:F").ColumnWidth = 40: .Columns("C:C").NumberFormat = "00"
.Columns("I:I").ColumnWidth = 50: .Columns("G:G").ColumnWidth = 35:
.Columns("H:H").ColumnWidth = 15:
.Range("A10:J" & fin).Sort Key1:=Range("A10"), Order1:=xlAscending, Header:=xlNo
End With
End Sub

Merci beaucoup

 

[alex44510]

Re : Programmation vba quadrillage

Bonjour Philippe,

Je ne comprend vriament pas j'ai exactement la meme prog VBA et cela ne marche pas.

Ci-joint mon fichier sur cjoint.com

http://cjoint.com/?3ByaJ2BVNkQ

Merci pour tout.

Alex44510

 

[JCGL]

Re : Programmation vba quadrillage

Bonjour à tous,

Dans ta Sub MP()... Passe en J et pas en I...

Option Explicit


Sub mp()
Dim fin&
With ActiveSheet
fin = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A10:J10000").Borders.LineStyle = 0
.Range("A10:J" & fin).Borders.LineStyle = 1
End With
End Sub

A+ à tous

 

[alex44510]

Re : Programmation vba quadrillage

Merci beaucoup, cela fonctionne.

Merci à vous tous