saisie via userform

[nrdz83]

Bonjour à tous voila mon problème j'ai une base de données avec saisie via un userform ça fonctionne trés bien voici le code
' Mise en place des valeurs saisies
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(DerLig, 1) = TextBox1
Cells(DerLig, 2) = ComboBox2
Cells(DerLig, 3) = ComboBox3
Cells(DerLig, 4) = ComboBox4
Cells(DerLig, 5) = ComboBox5
Cells(DerLig, 6) = ComboBox6
Cells(DerLig, 7) = ComboBox7
Cells(DerLig, 8) = ComboBox8
Cells(DerLig, 9) = ComboBox9
Cells(DerLig, 10) = ComboBox10
Cells(DerLig, 11) = ComboBox11
Cells(DerLig, 12) = ComboBox12

Et mon problème est le suivant lorsque dans ma base de données je fais ma formule =somme(b2:L2) il n'y a rien qui s'affiche.
Et si dans ma base de données je rentre les chiffres directement via le pavé numérique la formule somme fonctionne d'ou cela peut il provenir?
A tous merci d'avance et bonne fin de week end , amitiés 🙄

 

[gfortin9]

Re : saisie via userform

Allô!

Dans un userform, ce sont des champs texte.
En ajoutant .value les données devraient passer en chiffre au lieu d'en texte.

Cells(DerLig, 1).value = TextBox1
Cells(DerLig, 2).value = ComboBox2


.

 

[Bebere]

Re : saisie via userform

bonjour Gfortin,Nrdz
si numérique Cells(DerLig, 1).value = cdbl(TextBox1)
si date Cells(DerLig, 1).value = cdate(TextBox1)
idem pour combobox et listbox
à bientôt

 

[nrdz83]

Re : saisie via userform

merci pour votre aide berbere et gfortin 9 ça fonctionne impec, maintenant , mais pas contre si j'ai une combobox de vide alors ça provoque un erreur , ne faut il pas modifier le code ?
voici mon code actuel >>>>>
' Mise en place des valeurs saisies
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(DerLig, 1) = TextBox1
Cells(DerLig, 2).Value = CDbl(ComboBox2)
Cells(DerLig, 3).Value = CDbl(ComboBox3)
Cells(DerLig, 4).Value = CDbl(ComboBox4)
Cells(DerLig, 5).Value = CDbl(ComboBox5)
Cells(DerLig, 6).Value = CDbl(ComboBox6)
Cells(DerLig, 7).Value = CDbl(ComboBox7)
Cells(DerLig, 8).Value = CDbl(ComboBox8)
Cells(DerLig, 9).Value = CDbl(ComboBox9)
Cells(DerLig, 10).Value = CDbl(ComboBox10)
Cells(DerLig, 11).Value = CDbl(ComboBox11)
Cells(DerLig, 12).Value = CDbl(ComboBox12)
Cells(DerLig, 13).Value = CDbl(ComboBox13)
Cells(DerLig, 14).Value = CDbl(ComboBox14)
Cells(DerLig, 15).Value = CDbl(ComboBox15)
Cells(DerLig, 16).Value = CDbl(ComboBox16)
Cells(DerLig, 17).Value = CDbl(ComboBox17)
Cells(DerLig, 18).Value = CDbl(ComboBox18)
Cells(DerLig, 19).Value = CDbl(ComboBox19)
Cells(DerLig, 20).Value = CDbl(ComboBox20)
Cells(DerLig, 21).Value = CDbl(ComboBox21)
' On décharge le formulaire
Unload Me
d'avance merci à tous 😕

 

[Roland_M]

Re : saisie via userform

bonsoir, essais avec Val()
------------------------
Cells(DerLig, 1) = Val(TextBox1)
Cells(DerLig, 2) = Val(ComboBox2)
Cells(DerLig, 3) = Val(ComboBox3)
Cells(DerLig, 4) = Val(ComboBox4)
etc...

Roland

 

[nrdz83]

Re : saisie via userform

Bonsoir roland merci pour ton code mais ça ne fait plus bugger le code par contre ça fait comme avant les données ne sont pas reconnues comme des chiffres.

 

[gfortin9]

Re : saisie via userform

Allô!

Aurais-tu un p'tit fichier exemple sans données sensibles ?
Ça aiderait tout le monde à t'aider 8- ))))


A+
G

 

[nrdz83]

Re : saisie via userform

voici mon lien pour le classeur , pour afficher l'userform il faut cliquer sur l'encrier en haut à gauche de la feuille base de données et ensuite sur formulaire
Cijoint.fr - Service gratuit de dépôt de fichiers

d'avance merci

 

[Bebere]

Re : saisie via userform

bonjour à tous
tu fais un test
if ComboBox2<>"" then Cells(DerLig, 2).Value = CDbl(ComboBox2)
ou
if isnumeric(ComboBox2) then Cells(DerLig, 2).Value = CDbl(ComboBox2)

à bientôt

 

[gfortin9]

Re : saisie via userform

Allô!

Vive les fichiers exemples. Ils démontrent bien des choses.
Quand on clique sur le bouton "Valider" il y a une ligne de trop dans le code de ce bouton qui inscrit "rien" dans la colonne du total, effaçant ainsi la formule.
C'est la ligne : Cells(DerLig, 21).Value = CDbl(ComboBox21)
La colonne 21 est la colonne "U" celle où est inscrit la formule de la somme de la ligne.

Pour améliorer la saisie, si on utilise que le clavier, revoir l'ordre des tabulations. Présentement c'est dans le désordre.
En passant les combobox à la file, change l'ordre de tabulation dans la fenêtre des propriétés. Tu peux tester directement dans le Userform en mode VBE sans l'activer.

A+

 

[nrdz83]

Re : saisie via userform

bonsoir à tous et à gfortin bienvu effectivement j'avais une colonne d etrop et les combobox pas mis dans l'ordre, voila j'ai rectifié, malheureusement j'ai toujours la même erreur si je remplis que partiellemnent les combobox voila ce que j'ai comme erreur/
' Mise en place des valeurs saisies
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(DerLig, 1) = TextBox1
Cells(DerLig, 2).Value = CDbl(ComboBox2) Cells(DerLig, 3).Value = CDbl(ComboBox3)
Cells(DerLig, 4).Value = CDbl(ComboBox4)
Cells(DerLig, 5).Value = CDbl(ComboBox5)
Cells(DerLig, 6).Value = CDbl(ComboBox6)
Cells(DerLig, 7).Value = CDbl(ComboBox7)
Cells(DerLig, 8).Value = CDbl(ComboBox8)
Cells(DerLig, 9).Value = CDbl(ComboBox9)
Cells(DerLig, 10).Value = CDbl(ComboBox10)
Cells(DerLig, 11).Value = CDbl(ComboBox11)
Cells(DerLig, 12).Value = CDbl(ComboBox12)
Cells(DerLig, 13).Value = CDbl(ComboBox13)
Cells(DerLig, 14).Value = CDbl(ComboBox14)
Cells(DerLig, 15).Value = CDbl(ComboBox15)
Cells(DerLig, 16).Value = CDbl(ComboBox16)
Cells(DerLig, 17).Value = CDbl(ComboBox17)
Cells(DerLig, 18).Value = CDbl(ComboBox18)
Cells(DerLig, 19).Value = CDbl(ComboBox19)
Cells(DerLig, 20).Value = CDbl(ComboBox20)
' On décharge le formulaire
Unload Me


Ensuite au travail j'ai essayé sur excel 2000 et voila ce que j'ai comme erreur;
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1 et un paneau d'erreur avec mentionné dessus "erreur de compilation projet ou bibliothèque introuvable"
Voila d'avance merci à tous amitiés 😎

 

[Bebere]

Re : saisie via userform

bonsoir à tous
tu as la solution dans ma précédente réponse
les combobox ne sont pas dans l'ordre croissant et une de trop(erreur,objet inexistant)
"erreur de compilation projet ou bibliothèque introuvable" tu as un objet marqué manquant
décoche le et cela ira

le code du bouton

Private Sub Cmdok_Click()
Dim I As Byte

' Mise en place des valeurs saisies
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(DerLig, 1) = TextBox1
For I = 2 To 20
If Controls("ComboBox" & I) <> "" Then Cells(DerLig, I).Value = CDbl(Controls("ComboBox" & I))
Next I
' On décharge le formulaire
Unload Me

End Sub

à bientôt

 

[nrdz83]

Re : saisie via userform

bonsoir berbere merci pour tes lumières , j'ai supprimer la ligne en trop et remis dans l'ordre les combobox.

"erreur de compilation projet ou bibliothèque introuvable" tu as un objet marqué manquant
décoche le et cela ira

Peux tu m'expliquer ou je dois decocher l'objet marqué manquant stp d'avance merci.
je viens d e mettre ton code que du bonheur, je le crois pas toi en 4 ligne tu a s fait le code et moi il m'en a fallu une vingtaine et en plus ça bugg lol.
D'avance merci , amitiés 🙄

 

[Bebere]

Re : saisie via userform

Nrdz
sous vbe menu outils,références si tu as 'manquant:' dans la liste, tu décoches la checkbox
à bientôt

 

[nrdz83]

Re : saisie via userform

merci berbere je vais tester sous 2000 demain et te tiendrai au courant si ça fonctionne amitiés et bonne soirée😎