Commendbuton suivant

Fermé
abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 - 28 août 2017 à 23:04
jordane45 Messages postés 38326 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 décembre 2024 - 29 août 2017 à 15:10
bonjour;
j'ai crée une application avec userform avec une petite base de donnée

et j'ai une combobox1 pour faire des recherche dans cette BD, avec se code vba
(Private Sub CommandButton3_Click()
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2

TextBox1.Value = Cells(no_ligne, 1).Value
TextBox2.Value = Cells(no_ligne, 2).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value
TextBox8.Value = Cells(no_ligne, 8).Value

End Sub

et tout fonctionne très bien, sauf que dans ma liste il y a une répétition des noms chose normal car ma BD peut comporter plusieurs fois le mème nom.....et au moment de la recherche avec le bouton "recherche" il m'affiche qu'une seule fois le nom (le premier de la lite) pourtant il existe 2 ou 3 ou même 4 fois; donc je cherche a ajouter un bouton (suivant) pour afficher les restes , en code vba. merci
cordialement abdellah

2 réponses

jordane45 Messages postés 38326 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 décembre 2024 4 712
28 août 2017 à 23:15
Bonjour,

Déjà... quel code as tu utilisé pour faire ta recherche ?
Ensuite.. si tu veux rechercher TOUTES les valeurs directement... tu peux utiliser un FIND ALL
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel#findall
0
abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
29 août 2017 à 14:59
merci pour votre aide jordane45
j'ai mentionné le code de recherche

(Private Sub CommandButton3_Click()
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2

TextBox1.Value = Cells(no_ligne, 1).Value
TextBox2.Value = Cells(no_ligne, 2).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value
TextBox8.Value = Cells(no_ligne, 8).Value

End Sub
0
jordane45 Messages postés 38326 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 décembre 2024 4 712
29 août 2017 à 15:10
1 - Tu n'as pas utilisé les balises de code pour poster ton code !!!
Pour poster du code sur le forum.. merci d'utiliser la coloration syntaxique (les balises de code).
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

2 - En quoi le code que tu nous montres effectue une quelconque recherche ??? Pour moi il ne sert qu'à remplir des textBox en fonction d'un numéro de ligne.... mais en aucun cas ça ne fait une recherche !
0