nulle en VB
XLDnaute Nouveau
Bonjour,
Sur une feuille excel, j'ai une macro qui permet de selectionner des cellules et les coloriant et de reporter leur valeur dans une autre cellule :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect([=$AG$80:$AO$90], sel) Is Nothing Then
If sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex Then
sel.Interior.ColorIndex = xlNone
Else
sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex
End If
Calculate
End If
End Sub
Toutes ces cellules sont non verrouillées.
Néanmoins, lorsque j'utilise la fonction de verrouillage de la feuille, le programme ne s'effectue plus et le déboguage m'est proposé sur la ligne suivante :
sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex
Quelqu'un pourrait-il m'aider ??
Sur une feuille excel, j'ai une macro qui permet de selectionner des cellules et les coloriant et de reporter leur valeur dans une autre cellule :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect([=$AG$80:$AO$90], sel) Is Nothing Then
If sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex Then
sel.Interior.ColorIndex = xlNone
Else
sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex
End If
Calculate
End If
End Sub
Toutes ces cellules sont non verrouillées.
Néanmoins, lorsque j'utilise la fonction de verrouillage de la feuille, le programme ne s'effectue plus et le déboguage m'est proposé sur la ligne suivante :
sel.Interior.ColorIndex = [=$AC$96].Interior.ColorIndex
Quelqu'un pourrait-il m'aider ??