C
Cyrille
Guest
Bonjour le forum,
J'ai trouvé dans le forum la macro ci-dessous, soit une réponse faite le 14/04/2006 par Hervé à une question de Marion > 'changer le couleur d'une ligne sélectionnée'. Je l'ai testé dans un de mes tableau et ça fonctionne. Seulement, il y a un petit soucis. Lorsque je j'enregistre mes données, la ligne sélectionnée -donc en couleur- reste colorée à la réouverture du classeur comme si l'on avait fait une mise en forme manuelle !!! Y a-t-il un moyen d'éviter cela ? Par avance, merci.
Cyrille
Dim tablo(1 To 10, 1 To 2)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
If Not tablo(1, 1) = '' Then
For i = 1 To 10
Range(tablo(i, 1)).Interior.ColorIndex = tablo(i, 2)
Next i
End If
For i = 1 To 10
tablo(i, 1) = Cells(Target.Row, i).Address(0, 0)
tablo(i, 2) = Cells(Target.Row, i).Interior.ColorIndex
Cells(Target.Row, i).Interior.ColorIndex = 3
Next i
End Sub
J'ai trouvé dans le forum la macro ci-dessous, soit une réponse faite le 14/04/2006 par Hervé à une question de Marion > 'changer le couleur d'une ligne sélectionnée'. Je l'ai testé dans un de mes tableau et ça fonctionne. Seulement, il y a un petit soucis. Lorsque je j'enregistre mes données, la ligne sélectionnée -donc en couleur- reste colorée à la réouverture du classeur comme si l'on avait fait une mise en forme manuelle !!! Y a-t-il un moyen d'éviter cela ? Par avance, merci.
Cyrille
Dim tablo(1 To 10, 1 To 2)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
If Not tablo(1, 1) = '' Then
For i = 1 To 10
Range(tablo(i, 1)).Interior.ColorIndex = tablo(i, 2)
Next i
End If
For i = 1 To 10
tablo(i, 1) = Cells(Target.Row, i).Address(0, 0)
tablo(i, 2) = Cells(Target.Row, i).Interior.ColorIndex
Cells(Target.Row, i).Interior.ColorIndex = 3
Next i
End Sub