Insérer variable contenu dans textbox dans cellule

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #2

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

 

Vote positif 0 Vote négatif

R

roseverte

XLDnaute Junior

• 21 Juillet 2008

• #3

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!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #4

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

 

Vote positif 0 Vote négatif

R

roseverte

XLDnaute Junior

• 21 Juillet 2008

• #5

Re : Insérer variable contenu dans textbox dans cellule

Bonjour,

Oups me suis trompée!
le voici.

 

Pièces jointes

• classeur1.xls

  47.5 KB · Affichages: 149
• classeur1.xls

  47.5 KB · Affichages: 152
• classeur1.xls

  47.5 KB · Affichages: 151

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #6

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

 

Vote positif 0 Vote négatif

R

roseverte

XLDnaute Junior

• 21 Juillet 2008

• #7

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!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #8

Re : Insérer variable contenu dans textbox dans cellule

Re

Ton fichier modifié

 

Pièces jointes

• classeur1-1.zip

  19.6 KB · Affichages: 109
• classeur1-1.zip

  19.6 KB · Affichages: 114
• classeur1-1.zip

  19.6 KB · Affichages: 118

Vote positif 0 Vote négatif

R

roseverte

XLDnaute Junior

• 21 Juillet 2008

• #9

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #10

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é

 

Vote positif 0 Vote négatif

R

roseverte

XLDnaute Junior

• 21 Juillet 2008

• #11

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!!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #12

Re : Insérer variable contenu dans textbox dans cellule

re

petite modif

 

Pièces jointes

• classeur1-1.zip

  20.3 KB · Affichages: 93
• classeur1-1.zip

  20.3 KB · Affichages: 95
• classeur1-1.zip

  20.3 KB · Affichages: 85

Vote positif 0 Vote négatif

R

roseverte

XLDnaute Junior

• 21 Juillet 2008

• #13

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!!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #14

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 21 Juillet 2008

• #15

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

 

Vote positif 0 Vote négatif