Excel Downloads Forums - Afficher un message - Contrôle des valeurs sur Private Sub Worksheet_Change(ByVal Target As Range)

bqtr · 22/06/2007, 20h20

Bonjour Youri, Robert, le forum

Essaye avec ce code, s'il y a plus d'une cellule sélectionnée, la procédure est désactivée.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" And Target.Value <> va Then Target.Offset(1, 0).ClearContents
End Sub

Bonne soirée

22/06/2007, 20h20	#5 (permalink)
bqtr XLDnaute Accro Date d'inscription: juillet 2006 Localisation: Nantes Version Excel : Excel 2003 (PC) Messages: 1 021	Re : Contrôle des valeurs sur Private Sub Worksheet_Change(ByVal Target As Range) Bonjour Youri, Robert, le forum Essaye avec ce code, s'il y a plus d'une cellule sélectionnée, la procédure est désactivée. Code: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$A$1" And Target.Value <> va Then Target.Offset(1, 0).ClearContents End Sub Bonne soirée __________________