limie l'action de a macro a 20 colonnes

[Evelynetfrancois]

bonsoir

je cherche desesperement a limite l'action de lma macro ,de la ligne n°2 a la 320
mais egalement de la column 2 a la colonne 20
auriez vous la soluce
bonne soirée et merci d'avance
EetF

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim L As Integer
Application.ScreenUpdating = False
For L = 2 To 320
If Cells(L, 2).Row = ActiveCell.Row Then
Range(Cells(L, 1), Cells(L, 1)).Font.ColorIndex = 3
Else
Range(Cells(L, 1), Cells(L, 1)).Font.ColorIndex = 5
End If
Next L
Application.ScreenUpdating = True
End Sub

 

[pat1545.]

Salut,

pour une zone précise je crois qu'il faut ceci:

If Not Intersect(Target.Cells(1), Range('A27')) Is Nothing Then


Zone à ajuster

Patrick

 

[galopin01]

Bonsoir,
Si j'ai bien compris le but de ta macro est de mettre en rouge la cellule de la colonne 1 qui correspond à la ligne ou tu as cliqué ?
La macro suivante n'active rien du tout et ne fait aucune boucle donc pas besoin de ScreenUpdating :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Integer
iR = Target.Row
Set iZone = Application.Intersect(Range('B2:T320'), Target)
If Not iZone Is Nothing Then
Range('A2:A320').Font.ColorIndex = 5
Cells(iR, 1).Font.ColorIndex = 3
End If
End Sub

Ok ?

Message édité par: galopin01, à: 15/04/2005 21:47

 

[Evelynetfrancois]

merci pat merci galopin

galopin c'est tout a fait ce que j'esperais
ta macro est bien moins 'cochonne ' que la mienne
et bien plus efficace
merci beaucoup
bnne soirée
EetF