Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche intuitive

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mgn_91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Mgn_91

Guest
Bonjour,

J'ai trouvé sur internet un fichier Excel que je souhaite adapter selon mes besoin.s

Sur le formulaire, existe une listbox qui liste tous les doublons existants dans la base de données.

En sélectionnant le nom, tous les doublons s'affichent dans la listbox. J'ai modifié le code de base pour afficher dans la listbox les 4 premières colonnes de la base de donnée. Mais en cliquant sur une ligne de la Listbox, la macro plante et le formulaire de remonte pas les informations de la base de données.

Une personne pour m'aider à résoudre ce problème ?

Merci par avance
 

Pièces jointes

Trier par date Trier par votes
pierrejean à dit:
Bonjour Mgn_91

Vois si cela va un peu mieux
Cliquez pour agrandir...
Merci énormément pour cette aide.

Afin de ne plus reproduire la même erreur, pouvez vous brièvement m'expliquer ce les lignes de code modifiées à savoir :

AD = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Set c = Sheets("Planning").Columns(4).Find(AD, LookIn:=xlValues, lookat:=xlWhole)
For n = 1 To 13
Me.Controls("Textbox" & n) = Sheets("Planning").Cells(c.Row, n)
Next

Merci
 
Vote positif 0 Vote négatif
Re

AD = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
'adresse obtenue par la liste de Listbox1 repérée par l'index et le N° de colonne
Set c = Sheets("Planning").Columns(4).Find(AD, LookIn:=xlValues, lookat:=xlWhole)
'recherche de cette adresse dans la colonne 4 de la feuille Planning
For n = 1 To 13
'mettre dans les les textbox de 1 à 13 le contenu des cellules de Planning repérées par le N° de ligne (c.row) et le N° de colonne 'allant de 1 à 13 (n)
Me.Controls("Textbox" & n) = Sheets("Planning").Cells(c.Row, n)
Next

Si pas suffisamment clair ne pas hésiter à revenir
 
Vote positif 0 Vote négatif
Merci pour ces explications.

J'ai intégré ce code à mon fichier mais je constate que les informations remontées dans les textbox ne correspondent pas aux valeurs inscrites dans la base de données. Exemple : en sélectionnant le "TEST N°2" dans la combox1, la liste de doublons apparait dans la listbox1 mais en cliquant sur la première ligne de la listbox, les valeurs des textbox ne correspondent pas aux valeurs de la base de données.

Je pense qu'il y un bug au niveau de la reconnaissance de la ligne.
Pouvez-vous m'aider à résoudre cette erreur ?

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Mgn_91, pierrejean

Je répond à la place de pierrejean qui va me vilipender 🙄🙁.


Dans Private Sub ListBox1_Click(), le N° de ligne est dans la colonne 5 donc :
AD = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)

et, puisqu'on a le N° de ligne on peut supprimer la ligne : set c=....
et modifier dans la boucle:
For n = 1 To 13
Me.Controls("Textbox" & n) = Sheets("Planning").Cells(AD, n)
Next

A+
 
Vote positif 0 Vote négatif
merci pour votre précieuse aide, je serai toujours aussi impressionnée par la réactivité des personnes et l'efficacité de ce forum !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
288
fanch55
A
  • Question Question
Microsoft 365 recherche ,remplissage userform
Réponses
3
Affichages
307
azzouziwalid
A
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
204
vgendron
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
1 K
jeff1494
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
380
KTM
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
123
finarobert
F
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
158
LaurentVasseur
L
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
J
  • Question Question
Microsoft 365 Sélectionner plage nommée via un comboBox
Réponses
3
Affichages
387
fanfan38
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
178
alexga78
A
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
761
bruno lemaire
B
  • Question Question
XL 2021 Fichier jeu "Skull King"
Réponses
3
Affichages
168
vgendron
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
J
  • Résolu(e)
XL 2019 Problème format recopie ListBox sur un UserForm
Réponses
2
Affichages
193
JLR67
J
C
  • Résolu(e)
XL 2019 Recherche infos livres sur bookfinder
Réponses
4
Affichages
170
Cloburk
C
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
545
jeff1494
P
  • Résolu(e)
XL 2010 Recuperer données listbox
Réponses
3
Affichages
614
Staple1600
V
  • Question Question
XL 2021 Planning GANTT et planification de ressources
Réponses
9
Affichages
606
Dand87
D
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
261
ralph45
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…