Dépr et Protection

[manuBX]

Bonsoir
Comment Déprotéger puis Protéger F7etG7 de cette macro de J BOISGONTIER

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$7" And Target.Count = 1 Then
Application.EnableEvents = False
p = InStr(Target.Offset(0, 1), Target.Value)
If p > 0 Then
Target.Offset(0, 1) = Left(Target.Offset(0, 1), p - 1) & _
Mid(Target.Offset(0, 1), p + Len(Target.Value) + 1)
If Right(Target.Offset(0, 1), 1) = Chr(10) Then
Target.Offset(0, 1) = Left(Target.Offset(0, 1), Len(Target.Offset(0, 1)) - 1)
End If
Else
If Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Target
Else
Target.Offset(0, 1) = Target.Offset(0, 1) & Chr(10) & Target.Value
End If
End If
Target.Value = Target.Offset(0, 1)
Application.EnableEvents = True
End If
Je coince
Merci d avance

 

[Paritec]

Re : Dépr et Protection

Bonsoir
tu veux dire quoi par déprotéger?
a+
papou

 

[JCGL]

Re : Dépr et Protection

Bonjour à tous,
salut Papou,

Peut-être en remplaçant cette ligne :

If Target.Address = "$F$7" And Target.Count = 1 Then

par

If Target.Address = "$F$7" Or Target.Address = "$G$7" And Target.Count = 1 Then

A+ à tous

 

[manuBX]

Re : Dépr et Protection

Bonsoir à tous
Ma feuille étant protéger
je ne veux pas écrire dans g7 qui est le résultat de choix multiple en F7
C est pas grave je vais essayer autrement
A+