XL 2021 message si une valeur n'existe pas

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

  • test.xlsm
    98.5 KB · Affichages: 2
Trier par date Trier par votes
Gégé-45550

Gégé-45550

XLDnaute Accro
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
T

target

XLDnaute Nouveau
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
T

target

XLDnaute Nouveau
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

  • test.xlsm
    102.3 KB · Affichages: 5
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
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

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
965
pelerin65
P
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
152
eric72
E
PORCHER
  • Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
315
TooFatBoy
TooFatBoy
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
383
un internaute
U
D
  • Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
272
Dranreb
Dranreb
_l_ours
  • Résolu(e)
XL 2016 Créer une feuille si elle n'existe pas + Copier une plage de cellule d'une feuille à l'autre
Réponses
9
Affichages
223
_l_ours
_l_ours
O
  • Résolu(e)
XL 2013 Rajouter par VBA des lignes vides et des sommes dans un tableau
Réponses
12
Affichages
930
vgendron
vgendron
T
  • Question
XL 2019 VBA: Effacer le contenu de plages de cellules avec critères
Réponses
5
Affichages
1 K
tiitii60
T
Y
  • Résolu(e)
XL 2013 Surligner une ligne si curseur sur la ligne et dans une zone définie
Réponses
2
Affichages
108
Yvan1
Y
G
  • Question
XL 2016 modifier virgule en point
Réponses
1
Affichages
554
Grouchet
G

Membres actuellement en ligne

Aucun membre en ligne actuellement.
1 membres et 42 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 184
dernier inscrit
Di Martino