Faire une recherche d'une même valeur dans liste par rapport à un textBox
djfifi
Messages postés10Date d'inscriptionjeudi 12 mai 2011StatutMembreDernière intervention 5 juin 2011
-
16 mai 2011 à 13:52
djfifi
Messages postés10Date d'inscriptionjeudi 12 mai 2011StatutMembreDernière intervention 5 juin 2011
-
16 mai 2011 à 16:58
Bonjour,
Je recherche comment je peux écrire en VBA Excel 2010 la condition suivante.
Explication, j'ai deux feuilles excel, Sur les feuilles il y a différentes informations sauf une colonne qui est "NOM et PRÉNOM".
J'ai créé des UserForm, pour rentrer les informations sur les deux feuilles, c'est pas là le problème.
En quelque sort sur feuil1 = Numéro contrat date ...etc.
Feuil2 = Information du client donc adresse numéro Tel ...etc.
J'ai commencé à faire un UserForm pour faire une recherche information client donc la feuil2 dans cette UserForm j'ai mis un bouton supprimer un Client, c'est là qui me manque la solution.
Car je veux empêcher la supprimer un contact s'il y a un contrat dans la feuil1.
Soit exemple: Si Mr Dupond Patrick de la feuil2 est dans la liste feuil1, j'ouvre un MsgBox.
Si Mr Dupond Patrick ne figure pas dans la liste feuil1 je peux supprimer le contact.
J'espère que mon explication n'est pas trop dure à comprendre.
Merci d'avance.
A voir également:
Faire une recherche d'une même valeur dans liste par rapport à un textBox
djfifi
Messages postés10Date d'inscriptionjeudi 12 mai 2011StatutMembreDernière intervention 5 juin 2011 16 mai 2011 à 13:58
Voici déjà mon code du bouton Supprimer contact.
Private Sub BT_SUPCONTACT_Click()
Dim Rep As Integer
Dim in_c As Integer
Rep = MsgBox("Etes vous sûre de vouloir supprimer le contact ?", vbYesNo + vbQuestion, "Confirmation de supprimer contact")
If Rep = vbYes Then
' ici le traitement si réponse positive
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 16 mai 2011 à 14:49
Salut
Pas clair
"il y a différentes informations sauf une colonne qui est "NOM et PRÉNOM""
Pas facile à comprendre si tu commences par nous dire ce qu'il n'y a pas.
"Si Mr Dupond Patrick de la feuil2 est dans la liste feuil1"
Comment pourrait-il y être puisque tu nous a dit que les infos clients sont sur la feuille 2.
Revois tes explications.
On ne peut pas t'aider si on n'a pas d'information précises et fiables.
Si tu veux vérifier qu'un texte se trouve dans ta feuille 2, suffit de faire une recherche. Le résultat de cette recherche te dira s'il faut que tu fasses apparaitre une MsgBox ou pas.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
djfifi
Messages postés10Date d'inscriptionjeudi 12 mai 2011StatutMembreDernière intervention 5 juin 2011 16 mai 2011 à 16:58
Je vais essayer d'être plus claire ce n'est pas facile vu qu'on ne peut pas mettre de photo.
1 ouverture UserForm (appelé BOITE_RECH)
2 Chargement Liste de Nom et Prénom de la (feuil2 Appelé INFO CONTACT).
3 La liste de la feuil2 va dans une (ListBox1 appelé LB_CONTACT
Qui devient:
Sheets("INFO CONTACT").Select
BOITE_RECH.LB_CONTACT.AddItem Cells(IND_CONTACT, 2).Value
4 Je choisi un Nom dans la liste du ListBox1 "LB_CONTACT"
5 Après la sélection il va chercher les informations de ce Nom dans la feuil2 "INFO_CONTACT" en plus j'ai remis un (TextBox appelé TXT_NOM) qui rajoute le même Nom/Prénom du ListBox "LB_CONTACT"
J'ai rajouté un bouton Supprimer Contact, vu que j'ai emplacement des données sur la Feuil2 "INFO CONTACT"
Car j'ai l'information LB_CONTACT.ListIndex
Pour supprimer un contact de la feuil2 "INFO CONTACT" OK, mais ce que je veux ajouter c'est Interdire la suppression du contact si il y a le même Nom/Prénom sur l'autre feuille donc fuil1 appelé MAQUETTE
Ce que je n'arrive pas à faire c'est une lecture boucle dans la feuil1 MAQUETTE pour rechercher si il y a le même Nom que le TextBox "TXT_NOM"
Si il trouve le même Nom/Prénom avertir MsgBox un exemple qu'il est dans la feuille MAQUETTE et pas le supprimer.
Je tiens à préciser quand on rentre une nouvelle données, j'envoie le Nom et prénom dans la feuil1 "MAQUETTE" et la feuil2 "INFO CONTACT"