TARGET

Le
IMER09
BONJOUR A TOUS

J'ai ce qui suit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 And Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
ActiveSheet.Protect
End If
End Sub
Quand je selectionne une seul cells pas de pb
mais qd je fais une selection multiple
et que je veux par ex effacer le contenu : BUG
Je ne sais quoi faire

Merci

--
IMER09
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5048181
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 Then
If Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
ActiveSheet.Protect
End If
End If
End Sub

JB


On 15 nov, 11:30, IMER09
BONJOUR A TOUS

J'ai ce qui suit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 And Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
ActiveSheet.Protect
End If
End Sub
Quand je selectionne une seul cells pas de pb
mais qd je fais une selection multiple
et que je veux par ex effacer le contenu : BUG
Je ne sais quoi faire

Merci

--
IMER09


IMER09
Le #5048091
le nez au milieu de la ....

Merci JB
--
IMER09



Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 Then
If Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked > True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
ActiveSheet.Protect
End If
End If
End Sub

JB


On 15 nov, 11:30, IMER09
BONJOUR A TOUS

J'ai ce qui suit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 And Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
ActiveSheet.Protect
End If
End Sub
Quand je selectionne une seul cells pas de pb
mais qd je fais une selection multiple
et que je veux par ex effacer le contenu : BUG
Je ne sais quoi faire

Merci

--
IMER09






Publicité
Poster une réponse
Anonyme