effacer des bordures

jecherche

XLDnaute Occasionnel

• 18 Juin 2016

• #2

Re : effacer des bordures

Bonjour,

Si on s'en tient au fichier joint ... Module1, bordure > place les bordures

Est si j'ai bien compris ...
Pour les enlever, copie le même code dans otebordure et mets en commentaire la ligne qui commence par "Union..."



Jecherche

 

Dernière modification par un modérateur: 18 Juin 2016

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Juin 2016

• #3

Re : effacer des bordures

Bonjour

Pas sûr de comprendre.
Pour enlever les bordures :

Code:

Sub otebordure()
Range("C19:P1000").Borders.Value = 0
End Sub

Cordialement
Chris

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 18 Juin 2016

• #4

Re : effacer des bordures

bonsoir chris401,Jecherche et le forum

Code:

Sub otebordure()
Range("C19:P1000").Borders.Value = 0
End Sub

tu me dits cela mais c'est ce que l'enregistreur m'as fait en plus long 🙄
comme les lignes sont écrient a partir de la ligne 19 et cela que ce soit 4 lignes d'écritent où 10,20....150...250 etc..le plus long fait est 5000
je voudrais pouvoir définir l'efface des bordures a partir de la dernière ligne écrite sans effacer les bordures de bas de page

Jecherche je vais essayer sans le "union"

 

Dernière édition: 18 Juin 2016

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Juin 2016

• #5

Re : effacer des bordures

Re

Vu que si on clique sur "Bas de page" les bordures se remettent, j'ai cru que c'était suffisant.

Chris

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 18 Juin 2016

• #6

Re : effacer des bordures

bonjour chris401
oui c'est un oubli de précision dans le bon classeur les bas de pages descendent en même temps que l'ajout de ligne et je n'ai pas su le reproduire correctement et sont donc toujours présent

jecherche j'ai essayer sans "union "comme tu l'as dit et en effet cela efface les bodures mais fini par un bug erreur 438 méthode non géré

Code:

Sub otebordure()
Dim L As Long, n As Byte
With Sheets("commande")
  L = [b65000].End(xlUp).Row + 1
  .Range("c19:p" & L).Borders.LineStyle = xlNone
  For n = 0 To 3
  .Range ("c19:m" & L), Range("o19:p" & L).Borders(Array(7, 8, 10, 11)(n)).LineStyle = 1 'a cette ligne qui est jaunie
  Next
  .Range("c19:h" & L).Borders(11).LineStyle = xlNone
  .Range("c" & L & ":p" & L).Borders.LineStyle = xlNone
  .Range ("c" & L & ":m" & L), Range("o" & L & ":p" & L).Borders(8).LineStyle = 1
  End With
End Sub

 

Dernière édition: 18 Juin 2016

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 18 Juin 2016

• #7

Re : effacer des bordures

Bonjour,

Je ne comprends pas l'erreur 438, avec ton fichier exemple ... ici, ça fonctionne bien.



Jecherche

 

Pièces jointes

• Grisan_Copie de essai de bas de page.xlsm

  79.4 KB · Affichages: 48

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 18 Juin 2016

• #8

Re : effacer des bordures

Bonjour,

Sur l'erreur 438 ... https://support.microsoft.com/fr-fr/kb/175616


Jecherche

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 18 Juin 2016

• #9

Re : effacer des bordures

bonsoir jecherche
dans le fichier envoyer oui ca foncrtionne bien mais la bordure basse n'est pas effacée, merci pour le lien sur l'erreur 438
pas tester assez loin
le mise en place des bordures s'arrete a la ligne 54 et ne descend as plus bas sur le classeur que tu as mis
sur le bon ca fonctionne sans enlever celle du bas

 

Dernière édition: 18 Juin 2016

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 18 Juin 2016

• #10

Re : effacer des bordures

Bonjour,

Ma cellule ne fonctionne pas toujours bien ... celles entre mes deux oreilles 😛

Dans OterLigne ... garde les lignes débutant avec union ... mais, à la fin remplace le 1 par 0 sur les deux occurrences.


Jecherche

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 18 Juin 2016

• #11

Re : effacer des bordures

bonjour Jecherche😎
je venais d'essayer ce que tu viens de dire et cela fonctionne😎 quel quiche je fais😡

bon soirée

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Juin 2016

• #12

Re : effacer des bordures

Bonjour à toutes et à tous,

Une autre suggestion... moins élégante 😱 que celle de jecherche.

Code:

Option Explicit
Sub Quadrillage_supprimer()
    Range("b19").Name = "ici"
    Cells.Find(What:="Arrêté l*", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
               SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Offset(-4, 0).Name = "là"
    With Range("ici:là").Offset(, 0).Resize(, 15)
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
    End With
    With ActiveWorkbook: .Names("ici").Delete: .Names("là").Delete: End With
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 19 Juin 2016

• #13

Re : effacer des bordures

bonjour doublezero

merci de ta réponse mais ton code déclenche un bug de méthode range où global échouée a la ligne
with range'"ici....... peut être a je mal mis les remplaçant, je te joint l'aperçu

et que vient faire "arreté 1*"

 

Pièces jointes

• bugcode00.jpg

  25.7 KB · Affichages: 56

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Juin 2016

• #14

Re : effacer des bordures

Bonjour à toutes et à tous,

grisan29 à dit:

...ton code déclenche un bug...

Cliquez pour agrandir...

😕

Cf. le fichier joint.

grisan29 à dit:

...et que vient faire "arreté 1*"

Cliquez pour agrandir...

Cette mention permet de repérer la dernière ligne (-4) à partir de laquelle le quadrillage doit être supprimé.

A bientôt 🙂

 

Pièces jointes

• 00 - grisan29 - Quadrillage supprimer.xlsm

  78.4 KB · Affichages: 52

Vote positif 0 Vote négatif