MFC en vba pour bordures

[fr832]

Bonsoir je cherche par le biais de ce code de mettre en forme à la fin de la saisie le contour de mon tableau et l'interieur.

Mais ce code bug , serait il possible de m'aider , par avance merci, amitiés

Public DerLig As Long
Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 10))
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        [COLOR="Red"].LineStyle = xlContinuous[/COLOR]       
       .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    End With
End Sub

 

[kjin]

Re : MFC en vba pour bordures

Bonsoir,
Je ne vois aucune sélection préalable dans ce code ?! donc la selection s'applique à une seule cellule, et de fait pour les traits intérieurs forcément...
Tu utilises l'instruction with

Public DerLig As Long
Sub mfc()
DerLig = 5
With Range(Cells(DerLig, 1), Cells(DerLig, 10))
    .Borders(xlEdgeBottom).LineStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With

End Sub

A+
kjin

 

[soenda]

Re : MFC en vba pour bordures

Bonsoir le fil, kjin, fr832

On doit pouvoir simplifier ainsi

Sub mfc2()
    DerLig = 5
 
    With Range(Cells(DerLig, 1), Cells(DerLig, 10))
 
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
 
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlInsideVertical).Weight = xlThin
 
    End With
End Sub

A plus

 

[fr832]

Re : MFC en vba pour bordures

Bonjour,soenda , Kjin merci pour votre aide ça me met bien une ligne avec contour et interieur mais au fur et à mesure que je remplie mon tableau ça descend et ne garde pas les contours et iterlignes sur les lignes précédentes.

J'avais essayer par l'enregistreur de macros mais n'y suis pas arruivé d'ou ma demande d'aide sur le forum.

Ce que je cherche à faire c'est que au fur et a mesure que mon tableau se remplie via un userform, ça me mette les contour et interrieur.

Si l'intérieur et contour sont en trait fin ce n'est pas un problème, je dis ça au cas ou ça simplifierai le code.

Par avance merci à vous et bon week end, amitiés

 

[fr832]

Re : MFC en vba pour bordures

Re bonjour à tous voila j'ai ce code qui fonctionne impec sauf qu'il a la formule mod(ligne() d'intégré et je n'arrive pas a supprimer ce mod ligne sans que ça bugg.

Par avance merci

Public DerLig As Long
Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 10))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2))"
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 35
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With
End Sub

😕

 

[fr832]

Re : MFC en vba pour bordures

C'est bon j'ai trouvé en faisant ce code

Public DerLig As Long
Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 10))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:=" & Cells(DerLig, 1).Address & " <> """"""
    With .FormatConditions(1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With
End Sub

bonne journée à tous