Discussion :

[fawgood]

Bonjour

Je suis un débutant.
Pour des besoins professionnels, j'ai construit une base de données me servant à gérer des stocks (de vin) et éditer une carte de vin, plus quelques fonctionnalités pour faciliter l'inventaire.

Pour des raisons de fonctionnement en interne j'ai besoin d'utiliser des userforms afin d'incrémenter cette base de données.
Grosso modo, tout est fonctionnel (bien sur le rendu n'est pas de qualité professionnelle, c'est le rendu de quelqu'un qui a appris sur ce forum et quelques tutos).

Seul petit hic mais de taille : j'ai besoin que les valeurs entrées ou modifiées dans certaines textboxs (ou combobox) soient incrémentées en nombre et non au format texte.
En effet certaines colonnes de la base de données nécessitent un format nombre classique, avec 2 décimales.
Est ce que quelqu'un pourrait m'aider à ajouter les lignes qui me manquent dans mes codes ?

Je joins sur demande une copie du fichier sur lequel je travaille. le nb de références volontairement réduit, le fichier d'origine comprend plus de 5000 références
Je joins sur demande des captures d'écran des userform et une liste de noms des textbox pour lesquelles j'aimerais faire cette modif.

J'espère que cette bouteille à la mer trouvera un bienfaiteur

cordialement

[mat955]

Bonjour,

Voici un lien utile pour les conversions de données.

Par exempte, pour convertir la valeur d'une textbox en Integer :

Code :

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

Range("A1").value = CInt(Textebox1.Value)

[Alex020181]

Tu peux aussi faire * 1 à la valeur retournée mais attention de bien tester avant qu'il s'agit d'un nombre au format texte avec isnumeric()

[fawgood]

Merci pour vos réponses mais je n'y arrive pas...

je joins des captures d'écran pour être plus précis

-1 image du 1er userform avec entouré les textbox que je souhaite remplir,
je voudrais que celles ci incrémentent mon tableau au format nombre

-3 images du code que j'utilise lorsque je clique sur le bouton "ajouter" de mon userform
et qui donc incrémente mon tableau
Ce code fonctionne très bien mais les infos issues des textboxs entourées le sont au format texte
et je souhaiterais que cela soit un nombre dans mon tableau sans avoir à le faire
manuellement par la suite.

J'ai testé le fait d'ajouter ceci à mon code dans le

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
Private Sub btnajouter_Click()
 
Range("L:L").Select
Range("L:L").Value = CInt(txprixachat.Value)
Range("CL:CL").Select
Range("CL:CL").Value = CInt(txprixvente.Value)
Range("AK:AK").Select
Range("AK:AK").Value = CInt(txstockvente.Value)
Range("BL:BL").Select
Range("BL:BL").Value = CInt(txreserve.Value)
Range("BM:BM").Select
Range("BM:BM").Value = CInt(txstockdepot.Value)
Range("CA:CA").Select
Range("CA:CA").Value = CInt(txdepot2.Value)
Range("CB:CB").Select
Range("CB:CB").Value = CInt(txdepot3.Value)
Range("CC:CC").Select
Range("CC:CC").Value = CInt(txdepot4.Value)
Range("CD:CD").Select
Range("CD:CD").Value = CInt(txdepot5.Value)

mais cela n'a pas l'air d'être la bonne option, certainement parce que je n'ai bien compris
le fonctionnement de ce code...

Je joins aussi une version de mon fichier si cela permet de me faire comprendre...

Encore merci et j'attends toute aide avec reconnaissance

[mat955]

Bonjour,

Pourquoi ne reprends-tu pas ton code en y ajoutant la fonction CInt ?

Ex :

Code :

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

Activecell.Offset(0, 1).Value = CInt(Me.cbsousregion)