Discussion :

[RDMN007]

Bonjour je suis un nouveau sur VBA
Je voudrais savoir comment faire en sorte que lorsque je tape un nombre dans une textbox il l'envoie à la cellule (linkedcell) en format nombre et le copie comme tel au clic du bouton valider qui son propre code
Merci vraiment de votre aide!

[patricktoulon]

bonjour
dans le module de la feuille ou se trouve ton textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
Range(TextBox1.LinkedCell).Value = Val(TextBox1.Value)
End Sub

par contre souhaitons que tu n'ai pas de décimal car le "." et la "," est bloqué visiblement
impossible de taper un nombre avec décimale(s)
ps:
je viens de tester cdbl ,cdec etc... rien n'y fait
le fait que la cellule est liée au textbox l'un modifie l'autre et vice et versa

pour être honnête si ce n'est que l'on obtient la cellule concernée par le linkedcell
ca n'a pas très grand intérêt de lier un textbox a une cellule vu que l'on est quand même obligé d'utiliser son événement pour modifier la cellule

[Pierre Fauconnier]

Salut

Un textbox contient du texte. Comme c'est un textbox posé sur une feuille (vu que tu as accès à LinkedCell), il envoie en temps réel la valeur du textbox en tant que texte dans la cellule.

Au lieu de gérer la transformation dans le Change du textbox, gère-là dans la perte de focus... Attention à bien utiliser le bon séparateur décimal lors de la saisie...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_LostFocus()
Range(TextBox1.LinkedCell).Value = Val(TextBox1.Value)
End Sub

[RDMN007]

Salut à tous

Merci pour vos réponses.

Mais dans la recherche des solutions, j'ai utilisé la fonction "CNUM" qui convertit une chaine textuelle en un nombre.

Ce qui se passera désormais la linkedcell sera pour moi un brouillon, et une autre cellule avec pour formule "CNUM(linkedcell)" sera la source de copie des différentes valeurs saisies dans la texbox. donc en appuyant le bouton qui doit copier et renvoyer les valeurs numériques sur une facture, la copie se fera à partir de la cellule avec formule.

j'ai essayé et ça marche.

Merci pour l'intérêt que vous avez porté à ma question

[patricktoulon]

bonjour
tu pourrais me faire un tout petit fichier exemple je suis curieux

[RDMN007]

Bonjour à vous.

Voici le petit fichier exemple, l'ergonomie n'est pas vraiment travaillée, juste pour comprendre l'action qui se réalise en validant la commande.
Ainsi dans ce fichier j'ai réussi à transformer la valeur d'une textbox à partir de sa linkedcell sans passer par VBA. J'ai juste utilisé la formule "CNUM"

Vous verrez qu'en tapant une valeur numérique dans la textbox présente, la valeur est stockée dans la linkedcell(en gris) sous format texte d'où la copie de la valeur de cette cellule via VBA avec le bouton "valider commande" pour l'inserer dans la facture dans la colonne correspondante se fait aussi en format texte.

Pour contourner cette difficulté, j'ai créé une autre cellule, "spéciale" (en jaune) dans laquelle j'ai appliquée la formule =CNUM(Linkedcell) et la valeur de la textbox stockée sous format texte dans la linkedcell est désormais transformée en format numérique. Ainsi la copie des valeurs saisies dans la textbox sont copiées à partir de cette cellule (jaune) et non à partir de la linkedcell.

Ceci marche bien avec mon application qui est lourd, que je ne peux partager ici.


J'espère que j'ai été clair. Sinon je reste disponible pour plus amples détails.
Merci

[patricktoulon]

re
bonjour alors chez moi le cnum génère une erreur
je pense que c'est plutôt cela

=CNUM(SUBSTITUE(D9;".";","))

avec ta formule


avec la mienne

d'ailleurs les chiffre sont a droite de la cellule donc c'est bon

je dirais meme pour eviter #VALEUR!" quand c'est vide

=SI(D9<>"";CNUM(SUBSTITUE(D9;".";","));"")

tu n'a plus de soucis avec le point ou la virgule et quand c'es vide c'est vide partout

et pour ta cellule total tu fait pareil

=SI(F9<>"";F9*E4;"")

comme ca il n'y a plus de "#VALEUR!"
c'est plus propre non ?

[patricktoulon]

re
je me suis permis aussi de remplacer ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub validercmd()
Application.ScreenUpdating = False
Range("F9").Select
Selection.Copy
Range("K1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("B4").Select
Selection.Copy
Range("K1048576").End(xlUp).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("E4").Select
Selection.Copy
Range("K1048576").End(xlUp).Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("C13").Select
Selection.Copy
Range("K1048576").End(xlUp).Offset(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("B9").Select
End Sub

par cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Sub validercmd()
With Range("K1048576").End(xlUp).Offset(1, 0).Resize(1, 4)
.Value = Array([F9], [B4], [E4], [C13])
End With
Range("B9").Select
End Sub

[patricktoulon]

re
j'ai remplacé aussi la combo par une liste de validation

[RDMN007]

Merci je vais prendre en compte ces contributions.
Merci encore.