Bouton chercher/suivant
Bonsoir !
Je travaille actuellement sur la création de formulaire et je suis bloquée sur le code d'un des boutons.
Je vous explique : j'ai un formulaire où l'on remplit des informations sur une personnes : identifiant, nom, prénom, téléphone et les informations sont ensuite rentrées dans ma feuille Excel, pour cela pas de soucis! A présent je dois créer un formulaire qui me permettra de chercher une personne (en appuyant sur un bouton chercher/suivant) à partir de son nom, afficher les informations saisies auparavant dans le formulaire et l'utilisateur pourra ensuite les modifier.
Voici ce que j'ai déjà fait sur le codage du bouton chercher/suivant :
Private Sub ButtonChercheSuivant_Click()
Set pers = Worksheets("Les Personnes")
Dim i As Integer
i = 2 'ma ligne 1 est une entête
Do While Cells(i, 2).Value <> TbNom.Text
i = i + 1
Loop
If Cells(i, 2).Value = TbNom.Text Then
TbId = Cells(i, 1).Value
TbNom = Cells(i, 2).Value
TbPrenom = Cells(i, 3).Value
TbTel = Cells(i,4).Value
End If
End Sub
Le problème c'est que j'ai des individus qui peuvent avoir le même nom de famille, donc j'aimerais que lorsque l'utilisateur clique sur "chercher/suivant" l'individu suivant ayant le même nom s'affiche à son tour. Pour l'instant mon code m'affiche seulement le premier individu avec le nom je n'arrive pas à trouver de solution pour passer au suivant...
En espérant avoir été claire !!
Je remercie par avance les personnes qui m'aideront !
Belle soirée à vous
Bonjour et bienvenue sur le forum
Tu devrais joindre ton fichier...
Bye !
Bonjour, même remarque que GMB d'autant q'une textbox pour rechercher dans une base de données n'est pas forcément la meilleurs solution.
( formatage du nom ) si le nom est différent à cause d'un accent , d'un espace, d'un trait d'union ou autre alors votre code passera à coté.
Une combobox qui charge la liste des noms de personnes serait sans doute plus adaptée.
Super ça fonctionne merci beaucoup !
Bonne journée à vous!!