rassembler 2 macros

[kalschnikof]

Bonjour,

le code suivant ne fonctionne pas:

Private Sub Worksheet_Change(ByVal Target As Range)
' NB : La protection est associée à un mot de passe : "mp"
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [A1] Then
Dim c As Range
    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
End Sub

"Erreur de compilation: Nom ambigü détecté: Worksheet_Change"


Cdlt....

 

[kalschnikof]

Re : rassembler 2 macros

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

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

désolé mais ne foctionne pas...
Cdlt....

 

[kalschnikof]

Re : rassembler 2 macros

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

j'ai essayé plusieurs solutions et j'ai trouvé ..!!
j'ai modifier cette ligne: If Target.Address = [A1] Then
par: If Target.Address = ("$A$1") Then
et voilà ça fonctionne...!!
merci...quand même....🙂

Cdlt....