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
1 K
pelerin65
P
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
344
eric72
E
PORCHER
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
664
TooFatBoy
TooFatBoy
jeff1494
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
403
jeff1494
jeff1494
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
522
un internaute
U
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
215
sylvanu
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
434
job75
job75
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
197
sebastien176
S
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
334
Gestionnaire_rh
G
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
550
Dranreb
Dranreb
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
375
Phil69970
Phil69970
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
98
safranien
S
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
230
Anthony_51
A
Amigo
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
Amigo
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
603
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
438
Yvan1
Y
E
  • Résolu(e)
Microsoft 365 Copier Coller selon condition
Réponses
5
Affichages
256
TooFatBoy
TooFatBoy
U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
555
un internaute
U
Retour