XL 2019 Liste déroulante non restreinte et msgbox

BEGEX · 16 Mai 2022

Bonjour à tous,
Voici mon problème :
Feuil1 j'ai un tableau. En colonne B les données sont validées par une liste contenue en feuil2.
Cette validation de données n'est pas restreinte, l'utilisateur peut donc entrer le texte qu'il souhaite.
Néanmoins j'aimerais une alerte par msgbox au cas ou l'entrée soit non conforme.
par exemple : "Attention ce nom n'est pas conforme à la liste de référence".
Voilà pouvez-vous m'aider ?
Un grand Merci

Dudu2 · 17 Mai 2022

Bonjour,
Sur un Worksheet_Change() dans la colonne B, tu vérifies si la valeur saisie est dans ta liste de référence.

job75 · 17 Mai 2022

Bonjour BEGEX, bienvenue sur XLD, Dudu2,

Oui, voyez le fichier joint et cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If IsEmpty(Target) Or Application.CountIf(Evaluate(Target.Validation.Formula1), Target) Then Else MsgBox "Attention ce nom n'est pas dans la liste de référence...", vbInformation
End Sub

A+

Dudu2 · 17 Mai 2022

Bonjour @job75,
Belle méthode de test !

BEGEX · 17 Mai 2022

job75 à dit:
Bonjour BEGEX, bienvenue sur XLD, Dudu2,

Oui, voyez le fichier joint et cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If IsEmpty(Target) Or Application.CountIf(Evaluate(Target.Validation.Formula1), Target) Then Else MsgBox "Attention ce nom n'est pas dans la liste de référence...", vbInformation End Sub

A+

Merci infiniment pour toutes vos réponses, merveilleux !

BEGEX · 18 Mai 2022

Bonjour,
Je reviens vers vous toujours pour le même problème.
Afin de faciliter la saisie sur la liste déroulante j'ai créé une formule trouvée sur le forum (https://www.excel-downloads.com/threads/liste-deroulantes-dynamiques-semi-automatiques.20066663/) du type :
=SI(A2<>"";DECALER(f_region;EQUIV(A2&"*";f_region;0)-1;;NB.SI(f_region;A2&"*");1);f_region).
Cela permet de faire une sorte de liste déroulante semi automatique.
Du coup la solution proposée ne fonctionne plus.
Existe-t-il une autre méthode ?
Merci de votre aide
Cdlt

job75 · 18 Mai 2022

Bonjour BEGEX,

La formule que vous indiquez ne pose aucun problème.

Il suffit de la nommer avec le nom Liste qu'on utilise comme formule de validation, voyez ce fichier (2).

A+

BEGEX · 21 Mai 2022

job75 à dit:
Bonjour BEGEX,

La formule que vous indiquez ne pose aucun problème.

Il suffit de la nommer avec le nom Liste qu'on utilise comme formule de validation, voyez ce fichier (2).

A+

Bonjour et pardon pour ma réponse tardive.
Cela fonctionne très bien, j'ai enfin résolu mon problème.
Merci beaucoup job75 pour toutes ces astuces et votre partage.
Merci également Dudu2 pour votre participation.
A bientôt

XL 2019 Liste déroulante non restreinte et msgbox

BEGEX

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

BEGEX

XLDnaute Nouveau

BEGEX

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

BEGEX

XLDnaute Nouveau

Discussions similaires