Application de la bordure à un tableau
Bonjour,
J'ai créé le code suivant pour que la bordure s'applique à tout le tableau après saisie de nouvelles lignes. Je vois où mon code pèche mais je n'arrive pas à remplacer Range("A1:O275") par le bon code. Merci de votre aide.
'
' Applique la bordure à tout le tableau avant la fermeture
'
'
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Selection.End(xlUp).Select
Range("A1:O275").Sort Key1:=Range("M1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
ActiveWorkbook.Save
End Sub
Bonjour,
La macro que tu présentes a comme fonction de faire un tri ...
Si tu veux faire une macro qui ajoute une bordure, il faut utiliser l'enregistreur de macros, faire une fois le processus, pour avoir l'essentiel du code à utliser ...
Pour bien faire, tu pourras toujours l'améliorer ...
A+
Bonjour,James 007
un petit fichier à tester.
la macro ci-dessous, est placée dans le module de la feuille et se déclenche sur double-clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("")
If Not Application.Intersect(Target, Range("A1:O275")) Is Nothing Then
With Target
p = Application.Match(Target, temp, 0)
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
p = 0
End If
Target = temp(p)
Cancel = True
End With
End If
Cadre 'Macro dans module 1
End Sub
Amicalement
Pierrot
Excusez-moi, j'ai oublié de saluer jpgui
Bonne journée
Pierrot
Bonjour,
désolé de n'avoir pas répondu avant mais j'étais en déplacement. Merci pour le code mais çà ne semble pas fonctionner. J'ai une erreur de code à la ligne 13 : .TintAndShade. J'ai modifié. J'obtiens un cadre autour de la sélection. Ce que recherche c'est de créer un quadrillage à l'ensemble de mon tableau en fermant le classeur. En effet lorsque je saisi de nouvelles lignes, la bordure ne s'applique pas à ces nouveau enregistrements. Merci
Bonjour,
Merci Pierrot pour ton aide. J'ai un peu modifié ton code pour avoir un quadrillage sur l'ensemble des cellules et pas simplement la bordure. Mais je n'arrive pas à ce que je veux c'est à dire que la bordure s'applique au tableau lors de la fermeture.
Je te joins un fichier exemple avec le code.
Merci beaucoup Pierrot, çà fonctionne parfaitement
Bonjour,jpgui,
Je suis loin d'être un pro, à 75 ans ,j'aime bien Excel
Amitiés
Pierrot