Bonjour,
ce code me permet de détecter les cellules sans couleur dans un tableau :
Sub deverrouillage()
With Sheets("Feuil1")
Dim Plg As Range
Dim Cel As Range, pl As Range
For Each Cel In .Range("A21:AG410,E412:AG418,A22:AG425")
If Cel.Interior.ColorIndex = xlNone Then
If pl Is Nothing Then Set pl = Cel Else Set pl = Union(pl, Cel)
End If
Next Cel
Set Plg = pl
.Unprotect password
Plg.Locked = False
.Protect password
End With
End Sub
( 'Plg' contient exactement les cellules que je veux. )
Je demande ensuite de déverrouiller cette plage avec le '.Locked = False' mais ce message apparaît :
"Erreur d'exécution '1004' :
Impossible de définir la propriété Locked de la classe Range. "
Il y a des cellules fusionnées mais je ne sais pas si c'est vraiment ça le problème...
Quelqu'un a une idée SVP?
Merci !