MacroTraitSurPlusieursCellules

[Moa]

Salut à tous

Voilà :

J'ai fait une macro, qui me trace une ligne horizontale, et me sépare ainsi, ma page en deux.

Ok, ça marche.

Mais parfois ma séparation doit-être plus haute ou plus basse dans ma page.

Ce qui m'oblige à préparer 10 macros, puisque j'ai dix cas possibles.

Et, ce que je voudrais faire, c'est simplement une seule macro, qui me tracerait le traît, mais à partir de la cellule sélectionnée, sachant que la longueur de ce traît ne doit être que de 20 cellules adjacentes.

Si qqn a déjà fait ce genre de chose.

Merci beaucoup d'avance.

Bonne nuit à tous, ou plutôt, bonne journée..hihihi

@ +

Moa

 

[Cathy]

Voici un exemple :

' Bordure bas
numlig = activecell.row
Range("A" & numlig & ":J" & numlig).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

Cathy

 

[Moa]

Merci Cathy, c'est exactement, ce qu'il me fallait.

L'avantage de ta macro, et que je ne suis pas obligé de me placer dans la première cellule de la ligne concernée.

J'ai juste besoin d'être sur la bonne ligne.



Manquait juste le "End With", pas grave, Excel me l'a dit

@ +

Moa

 

[Moa]

Encore une petite chose, Cathy, Svp

Est-il possible, de rajouter à cette sélection, une deuxième sélection, qui serait 7 lignes plus bas ?

En clair, la même macro, tracerait le trait voulu, sur la ligne dont la cellule est sélectionnée, et un autre sept lignes plus bas.

Merci d'avance

@ +

Moa

 

[Cathy]

par exemple :

numlig = ActiveCell.Row
For i = 1 To 2
Range("A" & numlig & ":J" & numlig).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
numlig = numlig + 7
Next i

Cathy

 

[Moa]

Encore Merci beaucoup Cathy, rapide et éfficace.

Bonne après-midi

@ +

Moa

 

[Cathy]

ou aussi :

numlig = ActiveCell.Row
For numlig = numlig To numlig + 7 Step 7
Range("A" & numlig & ":J" & numlig).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next

 

[Moa]

Excellent, Cathy.Ca fonctionne très bien.


Encore Merci.

@ +

Moa