[RESOLU ]Supprimer UN mots en fonction d'un autre

[blackchab]

bonjour à tous

Je souhaite avoir une combiniason de tel que:
OUI ET OUI = OK
NON ET NON = OK
NON ET OUI = OK
OUI ET NON = saisie incohérente .

Je demande votre aide parce que je n'arrive pas intégret la condition ET
OUI ET NON = saisie incohérente .

J'ai débuter un macro:


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
If Target.Text = "NON" Then

MsgBox " Saisie Incohérente" & Target.Address & _
" (" & Target.Value & ")"
Range("B1:B10").Clear

End If

End If
End Sub

Je souhaite avoir une combiniason de tel que:
OUI ET OUI = OK
NON ET NON = OK
NON ET OUI = OK
OUI ET NON = saisie incohérente .

Je vous remercie d'avance

 

[Pierrot93]

Re : Supprimer UN mots en fonction d'un autre

bonjour,

OUI ET OUI

c'est le contenu d'une celule ou de plusieurs ?
bonne journée
@+

 

[Dranreb]

Re : Supprimer UN mots en fonction d'un autre

Bonjour.
Le 2ième qui peut être "OUI" ou "NON" c'est sans doute Target, d'accord, mais le 1er, c'est quoi ?
À +

Bonjour Pierrot93

 

[blackchab]

Re : Supprimer UN mots en fonction d'un autre

Bonjour
je vous joint un exemple type de ce que je veux
Dans la liste je dois etre capable de saisir
OUI dans le celulle A5 et OUI dans la cellule B5 , ainsi de suite pour les autre condition que je considère valide
OUI ET OUI = OK
NON ET NON = OK
NON ET OUI = OK

Lorsque je saisie la condition si dessous je dois avoir un message d'erreur et qui ensuite efface ma saisie tel que :
OUI ET NON = saisie incohérente .

Bonne journée
merci

 

[Pierrot93]

Re : Supprimer UN mots en fonction d'un autre

Bonjour,

essaie peut être comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5:B10")) Is Nothing Then
If Target <> "NON" And Target <> "OUI" Or Target = "NON" And Target.Offset(0, -1) = "OUI" Then
    Application.EnableEvents = False
    MsgBox " Saisie Incohérente" & Target.Address & " (" & Target.Value & ")"
    Target = ""
    Application.EnableEvents = True
End If
End If
End Sub

bonne journée
@+

 

[blackchab]

Re : Supprimer UN mots en fonction d'un autre

Re

merci , sa mache à la perfection
bonne journée