Recherche un nom dans un tableau

[eduraiss]

Bonsoir au forum

je joins un fichier pour mieux comprendre.

Une liste de noms et un tableau j'aimerais une alerte qui s'affiche si un noms ecrit dans la liste est retaper dans le tableau ou que ce soit

Merci a vous

 

[eduraiss]

Re : Recherche un nom dans un tableau

voici le fichier desolé

 

[jp14]

Re : Recherche un nom dans un tableau

Bonsoir

Ci joint un fichier avec une macro qui devrait répondre au problème.

A tester et à modifier

JP

 

[Robert]

Re : Recherche un nom dans un tableau

Bonsoir Eduraiss, bonsoir le forum,

Je te propose une macro événementielle Change dans ton fichier modifié.



Édition :

Ooops bonsoir JP14. Désolé je n'avais pas rafraichi...
JP j'ai testé et des fois il faut taper deux fois dudu a pour que ça marche...

 

[eduraiss]

Re : Recherche un nom dans un tableau

Bonsoir et merci a vous deux

j'ai essayé les deux fichiers mais il bug dés que je veux faire des copier coller ensuite pour certains noms il ne m'affiche aucune alerte, fichier de jp14

Merci quand même

A+

 

[jp14]

Re : Recherche un nom dans un tableau

Bonsoir

Bonsoir Robert

JP j'ai testé et des fois il faut taper deux fois dudu a pour que ça marche...

Il faut supprimer dans la macro la ligne
"If ligne2 <> ligne1 Then" et le End if correspondant.
Cette ligne sert lorsque on cherche une info qui est repété plusieurs fois dans une ligne (La recherche se faisant ligne par ligne SearchOrder:=xlByRows).

Ce qui n'est pas dans cette application
Code à modifier

Do
            'ligne2 = cel.Row à supprimer
            'If ligne2 <> ligne1 Then à supprimer ' on vérifie que la valeur n'a pas été trouvé sur la ligne
' remplir la listbox ou combobox ou Listview 
            If cel.Address(0, 0) = ad1 Then
            
            Else
                
            Select Case MsgBox("Le nom  a été trouvé" _
                               & vbCrLf & "" _
                               & vbCrLf & "Cellule " & cel.Address(0, 0) _
                               , vbOKCancel Or vbCritical Or vbDefaultButton1, "Nom trouvé dans le tableau")
            
                Case vbOK
            
                Case vbCancel
                    Exit Sub
            End Select
            End If
            'End If à supprimer
            Set cel = .FindNext(cel) 'cellule suivante

JP

 

[eduraiss]

Re : Recherche un nom dans un tableau

re
désolé jp14 mais ça ne fonctionne pas

a+

 

[eduraiss]

Re : Recherche un nom dans un tableau

Bonjour je reviens avec ce message

je peux me passer dans le message d'alerte de la nomination de la celule et uniquement avoir un message "cette personne est dans la liste"


Merci

Coardialement

 

[Jocelyn]

Re : Recherche un nom dans un tableau

Bonjour le Forum,
Bonjour eduraiss, jp14, Robert,

Un essai sans passer par les macro mais par validation. il ne donne pas la position dans la liste

Jocelyn

 

[jp14]

Re : Recherche un nom dans un tableau

Bonsoir
Bonsoir Jocelyn

Ci joint le fichier modifié, la première version ne tenait pas compte de la liste de nom.
A tester et à modifier

JP

 

[eduraiss]

Re : Recherche un nom dans un tableau

Bonjour au forum désole pour le retard mais j'avais un gros problème avec le fichier.

merci JP14 mais le problème est que lorsque je veux selectionner des noms ou faire des copier coller sa bug
la solution de Jocelyn est sympa mais je n'arrive pas a la faire fonctionner j'ai bien créer "liste" dans definir et NB.SI dans validation mais cela ne fonctionne pas bien
ou je ne peux rentrer aucun noms dans le tableau ou il ne me dit pas qu'il y a ce nom dans la liste

Il doit y avoir un truc

Merci a vous
Cordialement