MacroTraitSurPlusieursCellules

C

Cathy

Guest

• 22 Janvier 2003

• #2

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 22 Janvier 2003

• #3

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 22 Janvier 2003

• #4

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

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 22 Janvier 2003

• #5

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 22 Janvier 2003

• #6

Encore Merci beaucoup Cathy, rapide et éfficace.

Bonne après-midi

@ +

Moa

 

Vote positif 0 Vote négatif

C

Cathy

Guest

• 22 Janvier 2003

• #7

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 22 Janvier 2003

• #8

Excellent, Cathy.Ca fonctionne très bien.


Encore Merci.

@ +

Moa

 

Vote positif 0 Vote négatif