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
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Not Intersect(R, [B4:B5]) Is Nothing Then
Beep
R(1, 2).Select
End If
End Sub
@Lone-wolf
Que ce soit bien, beau, moche, utile, inutile, c'est pas mon problème.
Ma macro se contente juste de faire la même chose que la macro initiale (mais avec moins de morceaux de VBA dedans)
Par conséquent, cela résoud ce point-ci
Bonsoir à vous
Lone-Wolf, merci pour vos réponses, je souhaite empêcher la saisie de donnée dans plusieurs cellules.
Staple1600 merci également pour votre réponse, cela réduit l'écriture. L'idéal serait que je puisse désigner plusieurs autres cellules.
bonne soirée à vous