interdire accès d'un mot à certaines cellules

[arvin]

bonjour à tous ,

En fait j'ai un mot par exemple "TOTO" , et je souhaiterai que si l'utisateur rentre ce mot dans certaines cellules, il y ait un message d'erreur ou une mise en forme conditionnelle par exemple (les listes déroulantes ne fontionnent pas dans mon cas)

J'ai essayé cette macro :
If Target.Offset(, -1).Value Is Empty Then
> MsgBox "erreur , vous n'avez pas le droit !!!!"
> Target.Value = Empty
> Target.Offset(, -1).Select
> End If
>

mais cela ne répond pas vraiment à mon problème
merci à tous de m'aider

 

[Modeste]

Re : interdire accès d'un mot à certaines cellules

Salut arvin,

Il faudrait être plus précis:
- pourquoi penser à vba? Ton test s'inscrit dans un projet plus vaste ?
- Est-ce que le mot en question figurerait seul dans une cellule ou peut-il être "perdu" dans un chaîne plus longue (exemple, le bébé a fait un gros rototot)

Modeste

 

[nolich]

Re : interdire accès d'un mot à certaines cellules

Bonjour arvin et Modeste, bonjour à toutes et à tous 🙂

En fait j'ai un mot par exemple "TOTO" , et je souhaiterai que si l'utisateur rentre ce mot dans certaines cellules, il y ait un message d'erreur ou une mise en forme conditionnelle par exemple (les listes déroulantes ne fontionnent pas dans mon cas)

arvin, vois si Données / Validation peut te convenir.

@+

EDIT : Dans cet exemple, ça bloque, qu'on écrive TOTO ou ROTOTOT 😉

 

[job75]

Re : interdire accès d'un mot à certaines cellules

Bonjour arvin, Modeste, nolich,

Il semble arvin que vous vouliez aussi sélectionner la cellule vide à gauche, alors j'ai complété votre code (à placer dans le code de la feuille) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Or Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target.Offset(, -1)) Or InStr(UCase(Target), "TOTO") = 0 Then Exit Sub
MsgBox "Renseignez d'abord la colonne A"
Target.Value = ""
Target.Offset(, -1).Select
End Sub

A+

 

[arvin]

Re : interdire accès d'un mot à certaines cellules

Bonjour à tous et un grand merci pour vos réponses : en fait pour résumé , cela s'inscrit dans une macro plus larger et la validation ne passerai pas

Je privilégie la réponse de job75 mais est il possible d'identifier tout simplement les cellules où je ne veux pas voir apparaitre TOTO ?

"sélectionner la cellule vide à gauche" : non ce n'est pas la peine merci

cela donnerai donc :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B4:B4)) Is Nothing Or Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target.Offset(, -1)) Or InStr(UCase(Target), "TOTO") = 0 Then Exit Sub
MsgBox "Renseignez d'abord la colonne A" -> non pas de message plutot de barrer la case B4 en rouge par exemple
Target.Value = ""
Target.Offset(, -1).Select
End Sub

 

[arvin]

Re : interdire accès d'un mot à certaines cellules

[bonjour, super idée mais par contre peux t on identifier TATA et TOTO dans ton exemple
et par macro VBA
en bref je clique sur la macro , la formule super , mais j'identifie plusieurs mot interdits (TAT, TOTO, TUTU...)

Merci à toi