textbox et format nombre sur cellule

[Guigui]

hello le forum,

J'ai un textbox, un bouton qui transfere la donnée du textbox sur une cellule

je tape un nombre dans le textbox et une fois le transfere effectué,
j'ai dans ma cellule mon nombre mais au format texte.
alors que je le voudrai en nombre

je vous joint un fichier d'exemple.

Merci d'avance pour votre aide
A+
Guillaume [file name=exemple_20050809172916.zip size=9290]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20050809172916.zip[/file]

 

[cissou]

Bonjour,

Je n'ai pas le mérite d'etre expert mais ce que je te propose ci-dessous, même si pas très beau comme code, a le mérite de fonctionner



Private Sub CommandButton1_Click()
Dim A As Integer
Dim B As Integer
A = TextBox1
B = TextBox2

Range('B1').Value = A
Range('B2').Value = B

End Sub

 

[Guigui]

re le forum, cissou,

Merci beaucoup pour ta soluce, par contre, j'ai 20 textbox ...
Ya pas d'autre moyen que de passé par des Dim ?

Merci d'avance
A+
Guillaume

 

[Guigui]

re Cissou

voici mon code :

Private Sub VALIDER_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim R As Integer
Dim S As Integer
Dim T As Integer
A = Nbre1
B = Nbre2
C = Nbre3
D = Nbre4
E = Nbre5
F = Nbre6
G = Nbre7
H = Nbre8
I = Nbre9
J = Nbre10
K = Nbre11
L = Nbre12
M = Nbre13
N = Nbre14
O = Nbre15
P = Nbre16
Q = Nbre17
R = Nbre18
S = Nbre19
T = Nbre20


If REPJOUR = 'LUNDI' Then
Sheets(7).Range('B2') = A
Sheets(7).Range('B2').Offset(1, 0) = B
Sheets(7).[B2].Offset(2, 0) = C
Sheets(7).[B2].Offset(3, 0) = D
Sheets(7).[B2].Offset(4, 0) = E
Sheets(7).[B2].Offset(5, 0) = F
Sheets(7).[B2].Offset(6, 0) = G
Sheets(7).[B2].Offset(7, 0) = H
Sheets(7).[B2].Offset(8, 0) = I
Sheets(7).[B2].Offset(9, 0) = J
Sheets(7).[B2].Offset(10, 0) = K
Sheets(7).[B2].Offset(11, 0) = L
Sheets(7).[B2].Offset(12, 0) = M
Sheets(7).[B2].Offset(13, 0) = N
Sheets(7).[B2].Offset(14, 0) = O
Sheets(7).[B2].Offset(15, 0) = P
Sheets(7).[B2].Offset(16, 0) = Q
Sheets(7).[B2].Offset(17, 0) = R
Sheets(7).[B2].Offset(18, 0) = S
Sheets(7).[B2].Offset(19, 0) = T

End If

et j'ai une erreur de' d'incompatibilité de type'

a savoir que j'ai if REPJOUR = 'LUNDI' et à la suite ... meme chose avec If REPJOUR ='MARDI' ....

Merci d'avance pour ton aide .
A+
Guillaume

 

[Creepy]

Hello all, Guigui,

Tu trouveras en PJ mon petit code pour copier la valeur des 20 textbox dans les cellules de B1 à B20

La seule condition c'est que tes textbox doivent toutes avoir le même nom suivi d'un chiffre de 1 à 20.

Voila

++

Creepy

PS: Qu'est ce que c'et ce code tout pas beau !!! Tu vaus nou facher

:angry:

Je plaisante : mais c'est pas tres beau quand même ::

[file name=exempleGuiguiadditionTextbox.zip size=10357]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exempleGuiguiadditionTextbox.zip[/file]

 

[Guigui]

re tous le monde ...

:whistle:
Oui je sais Creepy ... lol mais je suis depuis cet aprem dans le VBA, j'en puiplus ... je percute pu rien alors qd j'ai eu ce probleme, j'ai fait à la barbare... tu verrais mon code complet ....... mon dieu ...

Bref,

Merci en tous les cas pour ton code. par contre si j'ai une textbox vide, j'ai un bug. ...

Y'a t il une solution.. merci d'avance.

Est-ce que toncode marche a l'envers, je veut dire pour copier B1 à B20 dans les 20 textbox ...

Merci d'avance pour votre aide
A+
Guillaume

Ps: Creepy, j'ai reposté un mess sur le fil des processus... :whistle:

 

[Creepy]

Re !!

Effectivement si tu t'y mets seulement depuis quelques heures ! je te pardonne lol.

Qu'est ce que je diarais moi qui en fait tous les jours toute la semaine lol. Et je remets ca le soir pour aider les âmes en peine

Pour ton message d'erreur avec une condition qui vérifie qu'il y a quelque chose dans la textbox, pas de souci :

For compteur = 1 To 2 ' Mettre To 20 si 20 textbox à consition qu'elles
    ' s'appellent toutes textbox1, textbox2, etc...
&nbsp; &nbsp; If Controls('TextBox' & compteur).Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; Feuil1.Range('B' & compteur).Value = CDbl(Controls('TextBox' & compteur).Value)
&nbsp; &nbsp; End If
Next

Pour l'inverse : C'est possible !!!! Cf Fichier joint.

Pour ton code n'hesite pas à me le poster je regarderais ce que je peux faire pour l'optimiser avec pleins de commentaires pour que tu puisses suivre et comprendre.

ET pour le processus actif je regarderais ca mais le soir j'ai pas trop la tête à me plonger dans des gros codes !!

++

Creepy
[file name=exempleGuiguiadditionTextbox_20050809215627.zip size=11392]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exempleGuiguiadditionTextbox_20050809215627.zip[/file]

 

[Guigui]

salut creepy,

Merci pour ton aide une fois de plus ...

J'arrivais a transferer tous ca sur mon miniprojet pi au moment au j'ai voulu le mettre sur mon mega projet (lol le meme que mini mais plus gros) bahhhh j'ai \\'variable non définie\\' sur compteur !!!

Comprend po, j'ai fais un copier coller !!

Un ti coup de pousse stoplé... :unsure:

Merci A+ guillaume

j'essaie de t'envoyer mon fichier si tu veux

 

[Guigui]

re,

Mon fichier fait 780ko, comment je peux faire pour te l'envoyer ?

Merci
A+
Guillaume

 

[Guigui]

essaie d'envoie de mon fichier