Dépr et Protection

manuBX

XLDnaute Occasionnel
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
 

JCGL

XLDnaute Barbatruc
Re : Dépr et Protection

Bonjour à tous,
salut Papou,

Peut-être en remplaçant cette ligne :
Code:
If Target.Address = "$F$7" And Target.Count = 1 Then
par
Code:
If Target.Address = "$F$7" Or Target.Address = "$G$7" And Target.Count = 1 Then

A+ à tous
 

Discussions similaires

Réponses
2
Affichages
174

Statistiques des forums

Discussions
312 932
Messages
2 093 729
Membres
105 802
dernier inscrit
Witchun