Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion blackchab
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

blackchab

Guest
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
 
Dernière modification par un modérateur:
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
 
Dernière édition:
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
 

Pièces jointes

Re : Supprimer UN mots en fonction d'un autre

Bonjour,

essaie peut être comme suit :
Code:
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
454
Réponses
4
Affichages
521
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…