BONJOUR ,
j'ai un tableau avec 4 colonnes je voudrai par une macro qu' à chaque fois que je rajoute une ligne celle ci soit encadree ( les celules à l'interieur aussi ).
BONJOUR ,
j'ai un tableau avec 4 colonnes je voudrai par une macro qu' à chaque fois que je rajoute une ligne celle ci soit encadree ( les celules à l'interieur aussi ).
Word ? Excel ?
A+
Je suppose que c'est dans Excel et que ça fait suite à "Ajouter un élève"
Tu as plusieurs solutions, dont une très simple qui consiste à utiliser Range("A1").currentRegion
Revient à te placer en A1 et à faire Ctrl *
Reste plus qu'à encadrer
Pour imprimer, tu fais pareil, en utilisant CurrentRegion et Editer -> sélection
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Sub Encadrer() With Range("A1").CurrentRegion .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone 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 .Weight = xlThin .ColorIndex = xlAutomatic End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With End Sub
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Range("A1").CurrentRegion.select Selection.PrintOut Copies:=1, Collate:=True
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager