Bordure automatique

[schaps777]

Bonjour à vous tous,

J'ai un projet au travail, je voudrais taper un nombre ds une cellule et qu'automatiquement elle encadre le nombre de cellules en question,

ex: si je tape "3" je voudrais voir 3 cellules encadrées

merci beaucoup
schaps

ps: voir fichier

 

[JCGL]

Re : Bordure automatique

Bonjour à tous,

Bienvenue sur XLD

Pas de fichier joint mais une MeFC devrait suffire

A+ à tous

 

[schaps777]

Re : Bordure automatique

Bonjour JCGL et à vous tous,

j'ai envoyé le fichier, j'avais fait une erreure.
merci
schaps

 

[JCGL]

Re : Bordure automatique

Bonjour à tous,

Un essai par MeFC mais la bordure en gras n'est pas disponinle :



A+ à tous

 

[schaps777]

Re : Bordure automatique

Bonjour à JCGL et vous tous,

merci, merci beaucoup JCGL c'est exactement ce que je voulais.

schaps

 

[JCGL]

Re : Bordure automatique

Bonjour à tous,

Si tu souhaites des bordures "gras", essaye ceci dans un module :

Option Explicit

Sub Bordure()
Dim Col As Byte, Lig As Byte
    Range("C5:Z100").Borders.LineStyle = xlNone
    For Lig = 5 To 19 Step 2
    For Col = 3 To Int(Cells(Lig, 2) * 2) + 1 Step 2
    Cells(Lig, Col).Borders.Weight = xlThick
    Next Col
    Next Lig
    Range("A5").Select
End Sub

A+ à tous

 

[schaps777]

Re : Bordure automatique

Bonjour à JCGL et vous tous,

Merci encor plus, c'est exactement ce que je veux.

merci
schaps 🙂