VBA bordures

Bonjour à tous,

Je suis en train de réaliser un formulaire. J'y suis arrivé jusque là (grâce à l'aide de nombreux internautes !!! merci à eux !!!). Cependant, le nombre de lignes dans mon tableau varie selon le nombre d'extincteurs. Le blocage : je n'arrive pas à trouver la vba qui permet de créer une bordure autour de la ligne complète lorsque au moins une cellule est remplie. J'ai essayé de faire une mise en forme conditionnelle mais ça ne fait pas la bordure autour des cellules vides (ce qui risque d'arriver souvent comme ceraines cellules ne seront pas tout le temps remplies). Voir pièce jointe.

Je vous remercie d'avance pour votre aide.

Bonjour,

Je n'arrive pas )à ouvrir ton fichier, mais tu peux coller ce code dans un module et créer un bouton, pour l'activer

éventuellement, activer la macro à la fermeture du dossier.

Amicalement

Pierrot

Sub Cadre_1()
'
' Macro2 Macro
'
    Selection.End(xlUp).Select
    Selection.CurrentRegion.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
End Sub

Bonjour et merci pour votre aide.

Le module marche cependant, je n'arrive pas à le programmer pour qu'il réalise les bordures de A11 à K?? (ça dépend du nombre d'extincteurs......).

Je vais essayer de vous joindre le fichier.

Merci

Bonjour, dcp,

j'ai recréé un code depuis A11 jusqu’à K60, comme les colonnes ne contiennent pas de données, je n'arrive pas à définir la zone

Au delà de la ligne 60 il faut modifier le code manuellement, Module 9, macro bordure

Pierrot

J'ai oublié le fichier, voilà

Bonsoir

Voilà, j'ai trouvé une solution, la macro démarre du bas et remonte vers le haut du tableau, en prenant jusqu’à la colonne K,

les bordures s'appliquent à l'ouverture du fichier.

Bonne soirée

Pierrot

Bonsoir

Merci beaucoups, c'est superb !!!! J'ai ajouté un bouton.

Bonne soirée.

Bonsoir,

c'est un plaisir pour moi à 75 ans, je n'ai rien d'autre à faire

Papy Pierrot