stéphane97429
XLDnaute Nouveau
Bonjour à tous
pour empêcher la saisie de donnée dans certaines cellules, j'ai trouvé sur le net, le code vba ci dessous qui est très efficace.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Row = 4 Or Target.Row = 5 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If
End sub
Je le trouve très long à saisir et j'aimerais savoir s'il existe le même code en saisissant directement les cellules?
Merci d'avance pour vos retour.
à très bientôt
pour empêcher la saisie de donnée dans certaines cellules, j'ai trouvé sur le net, le code vba ci dessous qui est très efficace.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Row = 4 Or Target.Row = 5 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If
End sub
Je le trouve très long à saisir et j'aimerais savoir s'il existe le même code en saisissant directement les cellules?
Merci d'avance pour vos retour.
à très bientôt