rassembler 2 macros

Jean-Marcel à dit:

Bonjour
peut être ( pas testé)
En remplacant tes deux macro par celle ci

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
' NB : La protection est associée à un mot de passe : "mp"
Dim c As Range

If Target.Address = [A1] Then
    For Each c In Range("B7:AM1048576")
        c.Interior.ColorIndex = xlNone
        c.Font.ColorIndex = 1
        c.Font.Bold = False
        c.Font.Italic = False
        c.HorizontalAlignment = xlGeneral
        If c.Value = [A1].Value Then
            With c
                .Interior.ColorIndex = 24
                .Font.ColorIndex = 23
                .Font.Bold = True
                .Font.Italic = True
                .HorizontalAlignment = xlCenter
            End With
        End If
    Next c
End If
If Not Intersect(Target, Range("B7:AM1048576")) Is Nothing Then 'Valable seulement pour la Plage B7:AM1048576
'Suppression de la protection de la feuille
ActiveSheet.Unprotect Password:="mp"

'Verrouillage de la cellule qui vient d'être modifiée
' (identifiée par la variable objet de type Range intitulée "Target")
Target.Locked = True

'Remise en place de la protection de la feuille
ActiveSheet.Protect Password:="mp"
End If ' Fin de la Condition

End Sub

Cliquez pour agrandir...

Jean-Marcel à dit:

Bonsoir
Qu'est ce qui ne fonctionne pas .
Bug ? et sur quelle ligne
Nom ambigu ?
Avec un fichier exemple en excel 2003 , ce serait certainement plus facile

Cliquez pour agrandir...