Bordures épaisses

[envol]

Bonsoir le fil,

pour des contours épais, j'utilise ce petite code
'les 4 contour épais
Sub contour()
Range("A3:C6").BorderAround Weight:=xlMedium
End Sub

Sur un tableau de plusieurs dizaines de lignes et de colonnes, je voudrais que toutes les 2 lignes, pour chaque colonne, les 4 contoirs soient épais.

Comment faire, svp ?😕

Bonne nuit,😉

Envol

 

[envol]

Re : Bordures épaisses

Bonsoir MJ13, le fil,

Voici une pièce jointe que j'ai refaite ce soir sur les indications que je donnais hier (je suis sous excel 2007).

C'est vraiment sympa de me filer un coup de main.🙂

Merci encore.

 

[Staple1600]

Re : Bordures épaisses

Re

Tu as essayé le code du message précédent ?

PS: MJ13 n'est pas le seul à passer dans ton fil ... 🙄

cette macro donne le m^me résultat que ta Macro1

Sub a()
Selection.Borders.LineStyle = xlContinuous
End Sub

 

[envol]

Re : Bordures épaisses

Sub a()
Selection.Borders.LineStyle = xlContinuous
End Sub[/CODE]

Bonsoir Staple1600, le fil,

désolé de ne pas avoir répondu tout de suite... j'ai fait une p'tite pause dîner...🙄 Merci de m'apporter ton aide, j'apprécie.🙂

Je viens d'essayer les 2 macros.

La dernière donne effectivement le même résultat que précédemment.

La précedente (exemple 1 ou 2) est en pièce jointe.
Voici ce que je cherche à comprendre:
Que faut-il modifier dans le code pour adpater la plage à quadriller comme on veut ?
- nbr de colonnes + de lignes sélectionnées ?
- type de quadrillage ?

Bonne soirée,

 

[envol]

Re : Bordures épaisses

[/CODE]

Bonjour Staple1600, le fil,

A partir de ta macro, je tente de faire un quadrillage type (voir le fichier test).
sous vba, j'ai ajouté les explications pour moi, pour bien comprendre ce que la macro fait étape / étape.

mais l, je bloque. J'arrive pas à faire le quadrillage type...

peux-tu me filer un coup de pouce, svp ?

Sub test()
Dim i As Long
' Ici à adapter le nombre de ligne
For i = 1 To 20
' Row mod donne les sauts de ligne
If Cells(i, 1).Row Mod 2 = 1 Then
' Cells(i, NBR)... NBR définit la colonne à partir de laquelle le quadrillage s'applique
' Resize (,NBR) ... NBR calcule le nbr de colonnes
' Borders.LineStyle = xlContinuous pour un quadrillage simple
' Borders.Weight = xlMedium pour un quadrillage épais
Cells(i, 1).Resize(, 1).Borders.LineStyle = xlContinuous
Cells(i, 4).Resize(, 4).Borders.Weight = xlMedium
End If
Next
End Sub

Bon w-end,

 

[MJ13]

Re : Bordures épaisses

Bonjour Envol, JM, Roland

Bon, j'ai fait une version 2 avec plusieurs cas en fonction de ce que l'on a besoin. Pour l'USF, il faut sélectionner une plage à encadrer.

Normalement, c'est facilement adaptable à la majorité des cas. A voir si cela peut-être utile.

En plus cela pourra me servir.

Merci Envol d'avoir initié ce post 🙂.

 

[envol]

Re : Bordures épaisses

Bonjour MJ13, JM, Roland, le fil,

Merci pour cette dernière version🙂 et de rien pour le "post". 🙂

Je vais m'y mettre pour la décoder (comme je suis tjrs un peu novice...).
ça me prendra un peu de temps mais avec ça devrait aller.

Bon w-end,