effacer les bordures...

[zè]

Bonjour à tous!!

voilà je suis en train de faire une p'tite macro dans laquelle j'aimerais effacer toute les bordures de toute la feuille (chaque cellules) mais je ne sais pas comment faire.

merci d'avance de votre aide!

 

[Creepy]

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

 

[Féfé]

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é

 

[Féfé]

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é

 

[zè]

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

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

++

 

[Féfé]

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é

 

[Jean-Marie]

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

 

[Féfé]

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é

 

[zè]

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

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

@+

 

[Jean-Marie]

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

 

[jon]

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