Insérer variable contenu dans textbox dans cellule

[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 avec trois textbox et un bouton trier qui doit inserer une ligne et y placer le contenu des 3 variables puis trier par order alphabétique le tableau.

Dans la premiere textbox on rentre le nom du fabricant, dans la deuxieme les composants, et dans la troisieme se que l'on veut.

j'ai crée un code pour la premiere texbox qui cherche la premiere cellule vide et y copie la valeur de la textbox dedans.

Private Sub TextBox1_Change()
Dim i As Integer
i = Selection.Offset(1, 0).Select
' selection de la case de départ
Range("A7").Select
' boucle de recherche
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop
' Copie la variable contenu dans le textbox dans la cellule
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
i = i + 1
Cells(i, 1) = CTRL End If

Next CTRL

End Sub

Mais cela me marque "erreur 1004 erreur définie par l'application ou par l'objet"

J n'arrive pas à la réparer!

merci d'avance!!

Roseverte

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

re

cela ne doit pas être le bon classeur il n'y a rien pour modifier dans celui-ci

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

oui je n'avais pas enregistré mes modifications^^

le voici!

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

Re

ton classeur modifié

Par contre 2-3 petit truc

j'ai interdit la modif du nom du fabricant car cela fait bugger

Perso j'agirai différemment

J'attribuerai un numero unique à chaque fabricant et je ferai mes relations avec ce numéro unique. Il faut que tu partes dans l'idée d'une gestion de base de données

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Merci!!!

Pour la gestion de base de donnée je n'ai pas compri se que tu voulais dire par l'attribution d'un numero a chaque fabricant en quoi ça serait mieu??

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

re

bien en fait en gestion de base tu as un numéro unique

l'avantage c'est que ce numéro ne peut être modifié mais que tu peux modifier tout le reste

par contre toi tu fais ta recherche sur le nom et si tu changes le nom cela devient embétant dans la gestion

vu ton truc perso j'aurai bien fait une petite base de données (une feuille) avec les fabricants, une feuille avec les articles, une feuille qui fasse le lien entre les 2

Malheureusement je ne peux te donner que la théorie car je n'aurai pa sle temps de te le développer

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Ben au début de mon projet je comptais faire comme ça (j'ai appris à les créer comme ça sous linux) mais je n'ai que trois colonnes pas beaucoup de requettes et je ne savais même pas que les macros et VBA existaient^^ Donc j'ai préférais faire comme cela!!

En tout cas merci beaucoup!

J'ai vérifiée si on modifie l'ortographe d'un fabricant il se met a jour automatiquement dans les variables!

En tout cas merci!!

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Re bonjour!

J'en profite pour partager mon dernier petit problème!

Donc dans ma macro chercher composant, on choisi un composant et apres toutes les entreprises fabricant se composant se place dans une listbox.

J'aimerai que quand o clique sur un de ses fabricants cela ouvre la macro chercher fabricant.

J'ai trouvé un petit code permettant de faire cela.

Mais cela me met une erreur :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer, ind As Integer
Dim txt As String
'indice du choix
ind = ListBox1.ListIndex
'texte choisi
txt = ListBox1.List(ind)
'recuperer la n° de la ligne ou se trouve le nom dans le tableau
'c'est le préfixe que j'ai conservé plus haut
i = Val(txt)
'lire les valeur de la ligne du taleau (Nom,Prenom...)
Fabricant.Value = range("A" & i).Value
End Sub

Peu etre que cela vient du fait que je clique sur une donnée de listbox pour appeler l'autre macro?

Merci d'avance!
Roseverte

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

Re

Ton fichier modifié

Sinon sans te commander je t'encourage à te mettre dans le VBA peut-être de façon plus méthodique avec un livre ou des tutos car je pense que ton code tu vas avoir du mal à t'y retrouver rapidement. De plus ce n'est pas du tout optimisé.

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bon alors d'abord merci!

Ensuite il y a des truc qui fonctionnes pas.

Sur le fichier que tu m'a renvoyé, c bon ça fonctionne par contre la macro recherche fabricant fonction pas.

Et quand j'adapte mon code avec le tien sa affiche bien la macro recherche fabricant mais ça n'affiche pas les données de la ligne!!

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

re

bah il faudrait voir mais fais attention car tu as des erreurs de code

par exemple tu as des

Private Sub UserForm1_Initialize()

alors que c'est toujours

Private Sub UserForm_Initialize()

Vérifies bien ton code

Tu mets des points d'arrêt puis tu fais du pas à pa spour voir ce qui ne marche pas

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bon alors j'ai plein de fautes ça beuge de partout!

Donc erreur la plus grave :
j'ai bien changer comme tu me l'as dit le userform1_ini... en enlevant le 1
Or, je ne peux plus acceder à ma macro recherche fabricant!
ça me marque erreur 70 acces boqué et ça me souligne


Public i As Integer

Sub Lancefabricant()
Load UserForm1
UserForm1.Show


End Sub
!!!

Pourquoi??

En rajoutant le 1 je peux accéder à la feuille mais les deux textbox ne se remplissent pas!!

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bonjour,
C'est bon j'ai trouvée! j'ai enlevé le 1 de userform_ini... ainsi que

Range("A7").Select

For Compteur = 1 To 600

ValeurFabricant = ActiveCell
ActiveCell.Offset(1, 0).Select

Me.ComboBox1.AddItem ValeurFabricant

If ValeurFabricant = "" Then
Exit For
End If
Next Compteur

qui le contenait!

j'avais aussi un code que je me servait pas il faisait des interferences!!

Non en fait je viens de me rendre compte il y a un petit probleme quand on cherche un composant on clique ensuite sur un fabricant et si tu veux modifier des données les noms des fabricants se collent dans d'autres cellules!
Merci d'avance!!

Bonne journée!

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bon j'ai trouvée le problème en fait quand tu cliques sur le fabricant apres l'avoir trouvé par la macro recherche composant il enregistre le om du fabricant et quand tu cliques sur un autre fabricant il enregistre le premier fabricant dans le deuxieme!

Pour cela j'ai mis une valeur par defaut comme ça il ecrit toujours dans la cellule. Il y aurait t-il un moyen de faire autrement?

Et il y a aussi un probleme Quand je tape un composant dans le textbox, les fabricants s'affichent dans la listbox mais si les fabricants sont a partir de la 12eme ligne dans la base de donnée (sachant que le premier fabricant est a la ligne 7) cela marque un message d'erreur "valeur de propriété non valide"

Cela correspond a quoi?

Merci!

Roseverte

 

[Lii]

Re : Insérer variable contenu dans textbox dans cellule

Bonjour,

A tester (avec codes simplifiés).
La première recherche se complète par la saisie d'un nouveau cas et la suppression d'une ligne.

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bonjour,

En fait ça a marché j'ai modifié quelques trucs et c'est bon!!

Merci Lii pour ton message!
Et merci a toute les personnes qui m'ont aidées!! surtt PascalXLD un grand merci!!

bonne journée!

Roseverte