besoin d'aide pour finalisé une macro

Re : besoin d'aide pour finalisé une macro

bonjour Warrio
une manière de procéder

Sub Test()
Dim Wk As Workbook, NomF As String
Set Wk = Workbooks("nomef") 'ActiveWorkbook
NomF = "M01"
FormatageLigne Wk.Worksheets(NomF)
End Sub

Sub FormatageLigne(Ws As Worksheet)
'Windows("Nomenclature.xls").Activate

'Sheets(Array("M01", "R01", "R02", "R03", "R04", "R05", "R06", "R07", "R08", "M02")).Select

'Sheets("M01").Activate
With Ws
Application.ScreenUpdating = False
w = .Range("A65000").End(xlUp).Row

With .Range("A" & w, "P" & w)
With .Font
.Name = "Arial"
.Size = 10
End With

With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

'With .Borders(xlEdgeTop)
'.LineStyle = xlContinuous
'.Weight = xlThin
'.ColorIndex = xlAutomatic
'End With

With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 56
.Weight = xlThin
End With
End With

With .Range("H" & w & ":J" & w).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

With .Range("K" & w & ":O" & w).Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

With .Range("P" & w & ":U" & w).Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

With .Range("V" & w & ":W" & w).Interior
.ColorIndex = 38
.Pattern = xlSolid
End With

' Range("A5").Select
'heets("M01").Activate
End With
Application.ScreenUpdating = True
End Sub

à bientôt

Re : besoin d'aide pour finalisé une macro

Salut et Merci,

Ta proposition fonctionne mais elle ne me crée une bordure que dans le premier onglet, or j'ai besoin de la mise en forme, dans chacun des onglets ou des valeurs seront inscrite cad qu'apres l'écriture, la bordure se fasse, ainsi chaque onglet ou des données seront entrée aura une bordure.

Slts

Si des connaisseurs ont des idées je suis preneur...

Re : besoin d'aide pour finalisé une macro

Warrio
dans ta macro doubleclick
Call FormatageLigne(PdT, MaLigne)
tu changes par
Call FormatageLigne(inv.Sheets(PdT))
à bientôt