effacer les bordures...

C

Creepy

Guest

• 10 Août 2004

• #2

Bonjour All,

Voila le Code :

Cells.Select
With Selection
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub

Ps : Un simple enregistrement de macro t'aurais permis d'obtenir le même resultat !

++

Creepy

 

Vote positif 0 Vote négatif

F

Féfé

Guest

• 10 Août 2004

• #3

Bonjour Zé, à tous le forum

Est ce qu'une macro comme celle ci te convient :

Sub Tamacro()

Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

End Sub

Bonne journée à tous

@ + Féfé

 

Vote positif 0 Vote négatif

F

Féfé

Guest

• 10 Août 2004

• #4

Salut Creepy, re Zé

On c'est juste croisé, j'ai fait pareil que toi en utilisant le Ctrl+A afin de selectionner toute ma feuille

@ + Féfé

 

Vote positif 0 Vote négatif

Z

zè

Guest

• 10 Août 2004

• #5

merci creepy, merci Féfé....

Creepy, peus tu m'expliquer comment se servir de l'enregistreur de macro, tjrs pô compris....

++

 

Vote positif 0 Vote négatif

F

Féfé

Guest

• 10 Août 2004

• #6

Re Zé

Voici une de mes premières questions, après réponse j'ai pu commencé à faire pas mal de trucs avec Excel :


http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=85742&t=85742

@ + Féfé

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 10 Août 2004

• #7

Bonjour tout le monde

J'y vais aussi de ma solution

Sub SupprBordure()
With ActiveSheet.Range("A1:IV65536")
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub

@+Jean-Marie

 

Vote positif 0 Vote négatif

F

Féfé

Guest

• 10 Août 2004

• #8

Salut Jean Marie

En effet l'experience ça paye sauf que là tu n'enlève pas les diagonales, mais c'est beaucoup plus court donc forcément mieux

Bon après midi

@ + Féfé

 

Vote positif 0 Vote négatif

Z

zè

Guest

• 10 Août 2004

• #9

merci Féfé pour ton lien: j'ai enfin compris!!!

merci pour la "p'tite contribution" Jean-Marie...

@+

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 10 Août 2004

• #10

Re...

Désolé Zé, comme tu le dis, une contribution, mais mon code n'est pas entier, il n'efface pas la bordure sur l'extérieure de la plage A1:A65536, il n'y a pas de problème sur les bordures intérieures, mais cela n'empêche il est incomplet. arf! encore un pavé dans la fosse au purin.

@+Jean-Marie

 

Vote positif 0 Vote négatif

J

jon

Guest

• 10 Août 2004

• #11

bonjour

avec une boucle "for" et en s'assurant du nombre de bordures différentes, on pourra facilement enlever les bordures en limitant le nombre de lignes de codes ;-))


<http://xlbysteph.free.fr/aideinformatique/actionformat.htm#Format_bordures>

bon après-midi

 

Vote positif 0 Vote négatif