Fonction Find et FindNext
Bonjour le forum,
Je fais à nouveau appel a vous, car toujours bien servi ici
J'ai un tableau de plusieurs entreprise avec des contacts différents, selon métier (Fonction). Il est constitué comme ça : Nom de l'entreprise; fonction de la personne de contact; nom; Prénom; N° de tél.
Dans un Userform je récupère ces valeurs et ce que j'aimerais pouvoir faire c'est de passer à la personne suivante dans la même entreprise avec des CommanButton "SUIVANT" ; "PRECEDANT". J'ai pu faire quelque chose avec ma petite connaissance en VBA, mais je n'arrive pas a passer à la personne suivante, uniquement la 1ère et la dernière.
Quelqu'un peu m'aider ?
D'avance merci.
Mais c'est TIP TOP !!
Merci pour ton aide et ton temps.
Avec la nouvelle TextBox cela me donne une idée.
Comment faire pour savoir combien de résultat trouvé ?
Pour reprendre mon fichier, si je cherche l'entreprise "Criteo". dans une TextBox j'aimerais que ça affiche 3, pour 3 occurrents trouvés
?
Merci
Salut .
- 1 ) Ajouter une TextBox7 .
- 2 ) Ajouter cette ligne à l'événement : ListBox1_Click
Me.TextBox7 = Application.WorksheetFunction.CountIf(Range("A:A"), Me.ListBox1.Text)
Bonjour,
J'ai ajouté un TextBox (TBox_NbItems). En cliquant sur un item dans la Listbox1, TBox_NbItems se met à jour.
C'est la macro CombienDItems juste en dessous de ListBox1_Click
TBox_NoLigne : j'avais prévu de le masquer et j'ai oublié ... une chance.
ric
Oui une chance
Moi aussi je me suis dis que je vais le masquer...
ça fonctionne à merveille !!!
Merci à ric et belkacem64 pour votre aide.
I'll be back !!!
Jess