Rechercher et afficher données dans textbox

[roseverte]

Bonjour,

J'ai crée une base de donnée qui comprend trois colonnes :
Colonne A = Fabricant
Colone B = Désignation (conporte plsieurs composants)
Colonne C = divers

j'ai crée une macro qui fait choisir par une combobox un nom de fabricant et en dessous le contenu de désignation et divers se mette dans une textbox.

Mon problème est que mon code me met uen erreur :

Private Sub ComboBox1_Change()
Fabricant = ComboBox1.Value

Columns(1).Find(Fabricant, , , , , Previous).Select
Désignation = Selection.Offset(0, 1).Value
Divers = Selection.Offset(0, 2).Value

TextBox1.AddItem "Désignation " & Désignation <= erreur à AddItem
TextBox1.AddItem "Divers " & Divers

end sub


Je voudrais aussi que quand on choisi un nouveau fabricant a textbox se remette a 0 (soit blanche!)

Merci de votre aide!

Je met un morceau de mon fichier en pièce jointe.

 

[tototiti2008]

Re : Rechercher et afficher données dans textbox

Bonjour Roseverte,

addItem sert à ajouter un élément à une listbox ou combobox, mais est interdit sur les textbox...

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,

ok merci!!Donc j'ai remplacé par un label mais ça ne le prend pas aussi en compte!

Tu peux me donner stp la syntaxe qui remplace AddItem??

Merci!

 

[tototiti2008]

Re : Rechercher et afficher données dans textbox

tu veux écrire dans ta textbox ? tu sais qu'elle ne peut contenir qu'une seule valeur, n'est-ce pas ?
Textbox1.Text = "Désignation " & Désignation

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,

ooo trop bien ça marche!!
Merci! Enfin!!
Par contre c'est pas possible de mettre aussi la colonne divers??
Et comment je peux faire pour mettre a jour mon tableau quand il y a des modifications?

En tout cas merci beaucoup ça fait un moment que je suis dessus!

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,
En fait ma question était débile j'ai trouvée!

J'ai aussi besoin d'aide pour une autre macro qui elle fait l'inverse.
C'est à dire que l'on tape dans une textbox le nom d'UN composant (sachant qu'ils sont dans la colonne B designation et qu'il y a plusieurs composants) et que l'on retourne les entreprises qui fabriquent se composant dans un label alors (je compté le retprné dans un textbox mais si on peu mettre retourné qu'une seule valeur...)

Sachant qu'il faut prendre en compte le fait que les composants peuvent d'ecrire avec majuscules/sans et avec un "s" a la fin ou pas.

Est-ce possible?

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,

dites, il y a quelqu'un??
J'en est vraimant besoin!

 

[Pierrot93]

Re : Rechercher et afficher données dans textbox

Bonjour Roseverte

regarde le code ci dessous si il peut t'aider :

Option Explicit
Option Compare Text
Sub test()
Dim plage As Range, test As String
test = Range("D3").Value
Set plage = Range("B:B").Find(test, , xlValues, xlPart, , , False)
If Not plage Is Nothing Then plage.Select
End Sub

"Option Compare Text" permet la recherche de texte quelque soit la casse.

L'argument "xlPart" de la méthode "find", permet de rechercher dans la cellule une partie d'une chaîne de caractères. La valeur recherchée ne doit pas contenir de "s" à la fin.

A adapter à ton projet.

bonne journée
@+

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,
Merci pour ton code!! Mais il ne se passe rien!
Je m'explique j'ai une userform avec deux textbox la premiere on rentre le nom du composant que l'on cherche et le nom de toutes les entreprises le produisant s'affiche dans le second textbox.

Et pourquoi ne peut on pas rechercher des motsd avc un s a la fin? car pratiquement tous mes mots finissent pas un s!

 

[tototiti2008]

Re : Rechercher et afficher données dans textbox

Bonjour à tous,

et le nom de toutes les entreprises le produisant s'affiche dans le second textbox

alors il ne faut pas travailler avec une textbox mais avec une listbox, auquel cas tes additem du début étaient justes...

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,

En fait il faut que je crée deux macros :
- la première on met le fabricant et cela trouve les composants;
- la deuxième on ecrit le composant et cela ns affiche ts les fabricants qui le crées.

la première elle est fini (fin elle est pas parfaite mais je la finiolerai apres!!) <= en fait si il y a des beugs le code par exemple tu cheche TMC et cela va tafficher les composants de PPPP TMC!

j'essai de faire la deuxième!

j'envoi un fichier joint comme sa vs comprendrai mieu!

En tout cas merci de m'aider!

 

[roseverte]

Re : Rechercher et afficher données dans textbox

Bonjour,

A se que je vois personne n'est enchantée par le sujet!!

 

[koukou40]

Re : Rechercher et afficher données dans textbox

Bonjour,

A se que je vois personne n'est enchantée par le sujet!!

On regarde le Tour de France !!!
😉

 

[roseverte]

Re : Rechercher et afficher données dans textbox

lol ok!!

C'est vrai! je n'y avais pas pensée!!

Bon tour alors!