rounil09
XLDnaute Occasionnel
Bonjour le forum,
Le code suivant change la couleur de la cellule active par clic, la cellule précédente revenant à sa couleur d'origine.
Il ne fonctionne pas dans mon application : j'ai un message 'Erreur d'exécution 94 - Utilisation incorrecte de Null'
Il bloque sur la ligne : OldColor = Target.Interior.ColorIndex
Quelqu'un pourrait-il m'en donner la raison ?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Static OldCell As Range
Static OldColor As Integer
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = OldColor
End If
OldColor = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 36
Set OldCell = Target
End Sub
Le code suivant change la couleur de la cellule active par clic, la cellule précédente revenant à sa couleur d'origine.
Il ne fonctionne pas dans mon application : j'ai un message 'Erreur d'exécution 94 - Utilisation incorrecte de Null'
Il bloque sur la ligne : OldColor = Target.Interior.ColorIndex
Quelqu'un pourrait-il m'en donner la raison ?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Static OldCell As Range
Static OldColor As Integer
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = OldColor
End If
OldColor = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 36
Set OldCell = Target
End Sub