Commendbuton suivant
abdellah_tadjine
Messages postés
203
Statut
Membre
-
jordane45 Messages postés 40050 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 40050 Date d'inscription Statut Modérateur Dernière intervention -
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
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
A voir également:
- Commendbuton suivant
- Chaque paragraphe doit être espacé de 0,42 cm ou 12 pt du paragraphe suivant libre office - Guide
- Publipostage enregistrement suivant ne fonctionne pas - Forum Word
- À l’aide des tableaux ci-dessous, trouvez le mot dont le code ascii est le suivant : 72 65 6a 6f 69 6e 64 72 65 - Forum C
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ? ✓ - Forum Photoshop
- Reproduction d'un dessin - Forum Graphisme
2 réponses
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
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
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
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
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 !
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 !
