Bordures

Denys

unread,

Apr 9, 2004, 12:13:36 PM4/9/04

to

Bonjour à tous,

Avec l'aide d'un Userform, des données sont inscrites sur
une feuille Excel. Dans les options, j'ai choisi de ne pas
faire apparaitre les "gridlines"...

Cependant, lorsque les données sont entrées, je voudrais
bien que chaque cellule ait une bordure. J'ai donc pensé
qu'avant que les données soient entrées, d'aller chercher
la dernière cellule non utilisée dans la colonne A,
d'utiliser la fonction Resize et d'ajouter des bordures...
Seulement, je n'y arrive pas, Excel cherchant sans cesse
un objet... Voici mon code...

Sub Bordures()
With ActiveSheet
.Range("A7").End(xlDown).Select
Selection.Resize(0, 22).BorderAround
End With
End Sub

J'ai essayé diiférentes avenues, sans succès.... Pourriez-
vous m'aider???

Merci

Denys

Rai

unread,

Apr 9, 2004, 2:21:30 PM4/9/04

to

> "Denys" <anon...@discussions.microsoft.com> a écrit dans le message de news:15ffc01c41e4d$9d0cbf
> b0$a001...@phx.gbl...
> Bonjour à tous,
>
[snip]...

>
> d'utiliser la fonction Resize et d'ajouter des bordures...
> Seulement, je n'y arrive pas, Excel cherchant sans cesse
> un objet... Voici mon code...
>
> Sub Bordures()
> With ActiveSheet
> .Range("A7").End(xlDown).Select
> Selection.Resize(0, 22).BorderAround
> End With
> End Sub
>
> J'ai essayé diiférentes avenues, sans succès.... Pourriez-
> vous m'aider???
>
> Merci
>
> Denys

Bonsoir,

Je vois 1 petite chose à modifier dans ton code.

Resize(0,22) ne peut pas marcher à cause du 0. Ce premier argument correspond au nombre de lignes de la nouvelles plages ... ce sera donc forcément un entier supérieur à 0. Cet argument est facultatif, on pourra donc l'ommettre.

le code seait donc
Selection.Resize(, 22).BorderAround

chez moi, ça marche.

Peut-être sera-t-il utile de préciser la couleur et l'épaisseur du trait que tu veux afficher.

--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Jean-François Aubert

unread,

Apr 9, 2004, 2:28:22 PM4/9/04

to

Salut Denys,

Sub Bordures2()
With ActiveSheet.Range("A7").End(xlDown).Resize(1, 22)
.BorderAround ColorIndex:=xlAutomatic
End With
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"Denys" <anon...@discussions.microsoft.com> a écrit dans le message de
news:15ffc01c41e4d$9d0cbfb0$a001...@phx.gbl...

michdenis

unread,

Apr 9, 2004, 2:32:21 PM4/9/04

to

Bonjour Denys,

Cette procédure va chercher la dernière ligne des données de la colonne A
En supposant que cette ligne possède déjà un format (bordure), elle recopie
ces bordures sur la ligne suivante des colonnes A à D.

'--------------------------------
Sub Bordures()
Dim Rg As Range
With Worksheets("Feuil2")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Rg.Copy
Rg.Offset(1).Resize(, 4).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With
Set Rg = Nothing
End Sub
'--------------------------------

Salutations!

"Denys" <anon...@discussions.microsoft.com> a écrit dans le message de news:15ffc01c41e4d$9d0cbfb0$a001...@phx.gbl...

Denys

unread,

Apr 9, 2004, 3:51:50 PM4/9/04

to

Bonjour Denis, Jean-François et Rai,

Merci beaucoup, tout fonctionne...Très gentil à vous
d'avoir pris le temps...

Bonne fin de semaine à tous...

Denys

>.
>