exclure la saisie de deux valeurs

[peterpanx]

Bonjour le Forum,

je souhaite exclure la saisie dans deux cellules contigues(A1:B1) , la valeur de 046 (pour la cellule A1 et SEA pour lacellule B1 , ceci à l'interieur d'une plage de cellules de type C9: L134 .en indiquant avec Msgbox que l'on ne peut pas prendre ces deux valeurs...

Pourriez vous sVP éclairer mes lanternes.

bien cordialement.
peterpanx

[sousou]

Bonjour
Si j'ai bien compris
Sélectionne toutes les cellules de la colonne a jusqu'a la ligne 134
menu données/validation/nombreentier/égale à/046
même principe pour la colonne b

[Staple1600]

Re


Si j'ai bien compris moi aussi (avec VBA)

Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Target, Range("C9:L134")).Address = Range("C9:L134").Address Then
If Target.Value = [A1] Or Target.Value = [B1] Then
Target.Value = vbNullString
MsgBox "Vous ne pouvez pas saisir dans la cellule " & _
ActiveCell.Address(False, False) & " les valeurs suivantes : " & Chr(13) _
& "(contenu de la cellule A1) " & [A1] & Chr(13) & "(contenu de la cellule B1) " & [B1], vbCritical, "Attention"
End If
End If
End Sub

Autrement la solution de sousou (Données/Validation) est plus simple à mettre en oeuvre.

[peterpanx]

Bonjour Sousou, Le FORUM,

La solution sous Vb m'interresse d'autant qu'elle me laisse plus de latitude a modifier les donnée au départ de la feuille et non sous VB par la suite.
Qu'en est il toute foi de la possibilité d'heberger A1 et B1 sur une autre feuille du meme classeur.

dans l'exemple ci dessous,A1 et B1 sont sur la même feuille.

Merci pour ta réponse à venir.

Cordialement.


Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Target, Range("C9:L134")).Address = Range("C9:L134").Address Then
If Target.Value = [A1] Or Target.Value = [B1] Then
Target.Value = vbNullString
MsgBox "Vous ne pouvez pas saisir dans la cellule " & _
ActiveCell.Address(False, False) & " les valeurs suivantes : " & Chr(13) _
& "(contenu de la cellule A1) " & [A1] & Chr(13) & "(contenu de la cellule B1) " & [B1], vbCritical, "Attention"
End If
End If
End Sub

[peterpanx]

Par défaut Re : exclure la saisie de deux valeurs
Bonjour Staple 1600, Le FORUM,

La solution sous Vb m'interresse d'autant qu'elle me laisse plus de latitude a modifier les donnée au départ de la feuille et non sous VB par la suite.
Qu'en est il toute foi de la possibilité d'heberger A1 et B1 sur une autre feuille du meme classeur.

dans l'exemple ci dessous,A1 et B1 sont sur la même feuille.

Merci pour ta réponse à venir.

Cordialement.


Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Target, Range("C9:L134")).Address = Range("C9:L134").Address Then
If Target.Value = [A1] Or Target.Value = [B1] Then
Target.Value = vbNullString
MsgBox "Vous ne pouvez pas saisir dans la cellule " & _
ActiveCell.Address(False, False) & " les valeurs suivantes : " & Chr(13) _
& "(contenu de la cellule A1) " & [A1] & Chr(13) & "(contenu de la cellule B1) " & [B1], vbCritical, "Attention"
End If
End If
End Sub