|
Dim i As Integer, j As Integer
Dim croix(NbLong, NbLarge) As Range
Range(Cells(1, 1), Cells(NbLong, NbLarge)).Select
croix(i, j) = Union(Cells(i, j), Cells(i, j + 1), Cells(i + 1, j), Cells(i, j - 1), Cells(i - 1, j))
For i = 1 To NbLong
For j = 1 To NbLarge
If Cells(i, j).Interior.ColorIndex = 16 Then
croix(i, j).Interior.ColorIndex = 16
End If
Next j
Next i
ich habs so versucht aber klappt nicht, kann mir jemand bitte sagen wie mans am besten macht
danke
|