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

Bonjour

Ce serait plus facile avec ton fichier exemple et des données bidons

sinon tu t'es trompé d'évènemetn car là à chaque lettre ajouter dans ton textbox ta macro va se lancer et je ne pense pas que c'est ton souhait

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bonjour,

Oui j'ai vu mais je n'es pas trouvée d'autre maniere!
Voici le ficher joint.
Merci!

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

RE

il n'est pas joint et pour la manière tu peux le faire soit sur un bouton de validation soit sur l'evenement exit du textbox

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Bonjour,

Oups me suis trompée!
le voici.

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

Re

ton problème vient de ta variable i qui s'initialise à -1

donc -1 +1 = 0

mais cells (i,1) n'existe pas car pas de ligne 0 sous excel

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

ok j'ai remplacé dans i = i + 1 le 1 par un 2 ça fonctionne!
Merci!!
Par contre je voudrais que ma variable s'ecrive dans la premire cellule vide mais en partant de A7 et çela ne commence pas a A7 comment je peux faire??

Merci d'avance!

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

Re

Ton fichier modifié

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Ok alors j'ai choisi de créer un bouton validation qui rajoute les données puis tri le tableau.

Donc les données se mettent en première ligne du tableau.

Le problème c'est que pour remplir la colonne b et c il rempli les cellules dans le tableau A.
Donc les données dans le premier textbox se mette enn A1 (bon), les données dans texbox2 se mette en A3 et les donnes dans textbox3 se mette en A5.

Private Sub CommandButton1_Click()

Dim Feuille As Worksheet, Reponse As Boolean
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 + 2
Cells(i, 1) = CTRL
End If

Next CTRL

Set Feuille = ActiveSheet
Limite = Range("A2000").End(xlUp).Row

TrierFeuille Feuille

End Sub


Function TrierFeuille(ByVal Lafeuille As Worksheet)

Lafeuille.Select
Cells.Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select



End Function



Merci d'avance!

Roseverte

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

Re

Nos posts se sont croisés

Regardes mon fichier car j'ai changé toute ta façon d'ecrire si je ne me suis pas trompé

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Oui c'est exactement ça merci beaucoup!

Par contre (c'est un detail!) mais quand on execute le tri le tableau remonte vers le haut et au bout d'un moment ça va bloquer et sa passe en dessous des macros! Donc comment je peux faire pour que rien ne passe au dessus de A6 (fabrication designation divers)?

En tout cas merci!!

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

re

petite modif

 

[roseverte]

Re : Insérer variable contenu dans textbox dans cellule

Ok ben alors la merci beaucoup ça fait un moment que je bataillais pour se tri!! dit ta changé quoi?
MatchCase:=True Juste le false par un true? car j'avais éssayé.

Une autre question ( pour ma culture^^) :
ça sert a quoi "ByVal Cancel As MSForms.ReturnBoolean" ?


Et j'ai un autre petit probleme (mais lui il est minime!) c'est pour la macro chercher fabricant elle fonctionne mais defois elle donne pas la bonne ligne! (elle est dans le ficher).
Je m'explique : il y a une combobox avec le nom de toutes les entreprises et en en choisisant une elle met sa designations et son divers correspondant.

ça sa marche!

mais par exemple je cherche ODU et cela me marque la designation de MODULAR DEVICES ce qui pose problème.

Sais tu ou est le problème?

Merci d'avance!!

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

Re

Pour mon changement il faut démarrer sur le tri avec range("A7").select et non cells.select comme tu le faisais

Pour le reste je regarde

 

[PascalXLD]

Re : Insérer variable contenu dans textbox dans cellule

re

pour le "ByVal Cancel As MSForms.ReturnBoolean"

Excel te le mets automatiquement et cela permet d'annuler l'acrtion d'en certains cas par exemple ici l'exit