XL 2021 message si une valeur n'existe pas

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion target
  • 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 !

S'inscrire
T

target

XLDnaute Nouveau
bonjour,
dans un formulaire de saisie lorsque dans le textbox recherche ( ou champ recherche ) j'écris "a" j'ai un message d'un message box " le nom n'existe pas " pourtant dans la liste il si trouve, je me sert de la colonne a dans la feuille "Base" pour la recherche si a la place du "a" je marque "aa" dans la cellule a2 de la feuille "Base" et que dans le champ recherche je marque "a" il affiche "aa" l'erreur ce trouve dans ce code

VB: 
Private Sub recherche_Change()
    '**********************************
'EMPECHE LE DÉFFILEMENT INTEMPESTIF
'**********************************
Application.ScreenUpdating = False

'DECLARATIONS DES VARIABLES
Dim Plage As Range, Cel As Range

'PERMET DE SAVOIR SI LA LETTRE DU CHAMP RECHERCHE EXISTE
  If Not IsError(Application.Match(recherche.Value, Sheets("Base").Range("A2:A600"), 0)) Then
  MsgBox "Le nom n'existe pas", vbExclamation, "Avertissement"
 
'PERMET DE REINITIALISER LA LISTVIEW APRÉS AVOIR APPUYER SUR OK
Call UserForm_Initialize
 'EFFACE TEXBOB RECHERCHE
Me.recherche.Text = ""
'MET FOCUS TEXBOB NOM
Me.nom.SetFocus
'PUIS MET FOCUS TEXBOB RECHERCHE
Me.recherche.SetFocus


'SORT DE LA PROCEDURE
    Exit Sub
  End If
    
    If recherche <> "" Then
        Set Plage = Worksheets("Base").Range("A2:A" & Worksheets("Base").Range("A" & Rows.Count).End(xlUp).Row)
        ligne = 1
        With ListView1
            .ListItems.Clear
            For Each Cel In Plage
                If UCase(Cel) Like UCase(recherche & "*") Then
                    .ListItems.Add , , Cel
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 1)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 2)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 3)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 4)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 5)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 6)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 7)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 8)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 9)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 10)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 11)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 12)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 13)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 14)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 15)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 16)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 17)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 18)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 19)    'RAJOUTER POUR TEST
                    ligne = ligne + 1
                End If
            Next
        End With
    End If
End Sub

mais je n'arrive pas a cerner le probléme, je vous remercie d'avance pour vos réponses
Cordialement
 

Pièces jointes

Trier par date Trier par votes
target à dit:
bonjour,
dans un formulaire de saisie lorsque dans le textbox recherche ( ou champ recherche ) j'écris "a" j'ai un message d'un message box " le nom n'existe pas " pourtant dans la liste il si trouve, je me sert de la colonne a dans la feuille "Base" pour la recherche si a la place du "a" je marque "aa" dans la cellule a2 de la feuille "Base" et que dans le champ recherche je marque "a" il affiche "aa" l'erreur ce trouve dans ce code

VB: 
Private Sub recherche_Change()
    '**********************************
'EMPECHE LE DÉFFILEMENT INTEMPESTIF
'**********************************
Application.ScreenUpdating = False

'DECLARATIONS DES VARIABLES
Dim Plage As Range, Cel As Range

'PERMET DE SAVOIR SI LA LETTRE DU CHAMP RECHERCHE EXISTE
  If Not IsError(Application.Match(recherche.Value, Sheets("Base").Range("A2:A600"), 0)) Then
  MsgBox "Le nom n'existe pas", vbExclamation, "Avertissement"
 
'PERMET DE REINITIALISER LA LISTVIEW APRÉS AVOIR APPUYER SUR OK
Call UserForm_Initialize
 'EFFACE TEXBOB RECHERCHE
Me.recherche.Text = ""
'MET FOCUS TEXBOB NOM
Me.nom.SetFocus
'PUIS MET FOCUS TEXBOB RECHERCHE
Me.recherche.SetFocus


'SORT DE LA PROCEDURE
    Exit Sub
  End If
   
    If recherche <> "" Then
        Set Plage = Worksheets("Base").Range("A2:A" & Worksheets("Base").Range("A" & Rows.Count).End(xlUp).Row)
        ligne = 1
        With ListView1
            .ListItems.Clear
            For Each Cel In Plage
                If UCase(Cel) Like UCase(recherche & "*") Then
                    .ListItems.Add , , Cel
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 1)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 2)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 3)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 4)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 5)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 6)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 7)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 8)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 9)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 10)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 11)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 12)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 13)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 14)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 15)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 16)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 17)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 18)
                    .ListItems(ligne).ListSubItems.Add , , Cel.Offset(, 19)    'RAJOUTER POUR TEST
                    ligne = ligne + 1
                End If
            Next
        End With
    End If
End Sub

mais je n'arrive pas a cerner le probléme, je vous remercie d'avance pour vos réponses
Cordialement
Cliquez pour agrandir...
Bonsoir,
Il me semble qu'il faut remplacer :
Code: 
]If [COLOR=rgb(226, 80, 65)]Not [/COLOR]IsError[/B](Application.Match(recherche.Value, Sheets("Base").Range("A2:A600"), 0)) Then
  MsgBox "Le nom n'existe pas", vbExclamation, "Avertissement"
par :
Code: 
If IsError(Application.Match(recherche.Value, Sheets("Base").Range("A2:A600"), 0)) Then
  MsgBox "Le nom n'existe pas", vbExclamation, "Avertissement"
La double négation
Code: 
If Not IsError
signifie 's'il n'y a pas d'erreur' ou également 's'il n'est pas faux que', donc se traduit par "si la recherche de la valeur saisie dans la TextBox 'recherche' est trouvée (e.g. ) dans le champ A2:A600", alors ... ne pas afficher dans ce cas que la recherche a échoué, n'est-ce pas ?
Cordialement,
 
Vote positif 0 Vote négatif
Bonjour Gégé-45550,
Merci Beaucoup pour votre réponse et la solution que vous m'avez apporté, je n'aie pas tout compris, comme je l'avais déjà dit je récupere des morceaux de code que j'essaye de les assembler, vous avez surement remarqué que le code n'est pas structuré du tout, réellement qand je vois la facilité avec laquelle vous trouvé des solutions, je reste sans voix, vous etes vraiment des topgun de la programmation.
encore merci
Cordialement
 
Vote positif 0 Vote négatif
Bonjour,
Non en fait le code marche bien si il y a "a" par exemple dans la cellule "a2" de la feuille "base" et que je le change par "aa" dans la cellule "a2" de la feuille "base" et que j'écris "a" dans le champ recherche il me donne le méssage "le nom n'existe pas" . Je me suis mal expliqué je pense, dans le champ recherche si je met "a" la listeview affiche tout les noms qui commence par "a", si je marque "z" qui n'existe pas alors j'aurais le message.
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Target,

Si vous voulez que ça recherche un nom "commençant par", il faut modifier la ligne ci-dessous
VB: 
If IsError(Application.Match(recherche.Value & "*", Sheets("Base").Range("A2:A600"), 0)) Then

Nota : j'espère que vous n'aurez jamais plus de 600 lignes, car vous figez leur nombre

A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
cathodique
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
428
eric72
E
PORCHER
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
862
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
Dranreb
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
681
un internaute
U
jeff1494
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
jeff1494
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
553
sylvanu
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
640
job75
job75
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
371
sebastien176
S
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
696
TooFatBoy
TooFatBoy
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
665
Phil69970
Phil69970
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
914
Dranreb
Dranreb
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
414
Anthony_51
A
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
523
safranien
S
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
819
Corentin26270
C
Y
  • Résolu(e)
XL 2013 Surligner une ligne si curseur sur la ligne et dans une zone définie
Réponses
2
Affichages
508
Yvan1
Y
T
  • Question Question
XL 2019 VBA: Effacer le contenu de plages de cellules avec critères
Réponses
5
Affichages
2 K
tiitii60
T
Retour