saisie via userform

gfortin9

XLDnaute Occasionnel

• 3 Août 2008

• #2

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


.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 3 Août 2008

• #3

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 3 Août 2008

• #4

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 😕

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Août 2008

• #5

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 3 Août 2008

• #6

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.

 

Vote positif 0 Vote négatif

gfortin9

XLDnaute Occasionnel

• 3 Août 2008

• #7

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 3 Août 2008

• #8

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Août 2008

• #9

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

 

Vote positif 0 Vote négatif

gfortin9

XLDnaute Occasionnel

• 4 Août 2008

• #10

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+

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Août 2008

• #11

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 😎

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Août 2008

• #12

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Août 2008

• #13

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.

PHP:

"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 🙄

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Août 2008

• #14

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 4 Août 2008

• #15

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😎

 

Vote positif 0 Vote négatif