C
cafrine
Guest
bonsoir à tous
telle une parasite, j'ai récupéré une macro dont je je voulais adapter à mon
planning
et bien sur, ça ne marche pas.....
>> qui pourrait me dire ce qui cloche ?
>> A quoi correspond "range(" A1")" dans la macro
je n'arrive pas à joindre mon fichier en PJ, donc voici la macro : en esperant
que cela suffira..
merci d'avance
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$H$3" Then Exit Sub
Range("H3").Formula = "=" & ActiveCell.Address
End Sub
Private Sub Worksheet_Calculate()
'Dim Cellule As Range
On Error Resume Next
'For Each Cellule In ActiveSheet.Selection
If Not Application.Intersect(ActiveCell, Range("L4:L34")) Is Nothing Then
ActiveCell.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = Range("situation").Cells.Find(What:=ActiveCell, After:=Range("situation").Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Interior.ColorIndex
ActiveCell.Font.ColorIndex = Range("situation").Cells.Find(What:=ActiveCell, After:=Range("situation").Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Font.ColorIndex
End If
'Next Cellule
End Sub
telle une parasite, j'ai récupéré une macro dont je je voulais adapter à mon
planning
et bien sur, ça ne marche pas.....
>> qui pourrait me dire ce qui cloche ?
>> A quoi correspond "range(" A1")" dans la macro
je n'arrive pas à joindre mon fichier en PJ, donc voici la macro : en esperant
que cela suffira..
merci d'avance
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$H$3" Then Exit Sub
Range("H3").Formula = "=" & ActiveCell.Address
End Sub
Private Sub Worksheet_Calculate()
'Dim Cellule As Range
On Error Resume Next
'For Each Cellule In ActiveSheet.Selection
If Not Application.Intersect(ActiveCell, Range("L4:L34")) Is Nothing Then
ActiveCell.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = Range("situation").Cells.Find(What:=ActiveCell, After:=Range("situation").Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Interior.ColorIndex
ActiveCell.Font.ColorIndex = Range("situation").Cells.Find(What:=ActiveCell, After:=Range("situation").Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True).Font.ColorIndex
End If
'Next Cellule
End Sub