Problèmes transfert données depuis UserForm vers tableur

Re : Problèmes transfert données depuis UserForm vers tableur

Bonsoir Hypokhampe,

Pours questions 1 et 2 : ou bien :
Pour la question 3 :
A+

Re : Problèmes transfert données depuis UserForm vers tableur

Bizarre...

UCase fonctionne très bien (c'est la première donnée à entrer dans le tableur depuis le UserForm).
CInt semble bloquer...

Voici mon code pour un click sur le bouton Enregistrer, peut-être ai-je fait une erreur.
L'erreur renvoyée est une erreur '6' (dépassement de capacité).

'--- Positionnement dans la base
ligne = Sheets("STOCKS").[E65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans STOCKS
Sheets("STOCKS").Cells(ligne, 2).Value = UCase(Me.emplacement.Value)
Sheets("STOCKS").Cells(ligne, 4).Value = CInt(Me.brutpso.Value)
Sheets("STOCKS").Cells(ligne, 5).Value = CInt(Me.reffinie.Value)
Sheets("STOCKS").Cells(ligne, 6).Value = CInt(Me.indice.Value)
Sheets("STOCKS").Cells(ligne, 8) = Me.designation
Sheets("STOCKS").Cells(ligne, 9) = Me.observations
Sheets("STOCKS").Cells(ligne, 10) = Me.projet
Sheets("STOCKS").Cells(ligne, 11) = Me.hpdl
Sheets("STOCKS").Cells(ligne, 12) = Me.ok
Sheets("STOCKS").Cells(ligne, 13) = Me.lot
Sheets("STOCKS").Cells(ligne, 14) = Me.jour & "/" & Me.mois & "/" & Me.annee
If Me.ok = "NC" Then
Sheets("STOCKS").Cells(ligne, 17).Value = CInt(Me.quantite.Value)
Else
Sheets("STOCKS").Cells(ligne, 16).Value = CInt(Me.quantite.Value)
End If
Me.emplacement = ""
Me.quantite = ""
Me.brutpso = ""
Me.reffinie = ""
Me.indice = ""
Me.designation = ""
Me.observations = ""
Me.projet = ""
Me.hpdl = ""
Me.ok = ""
Me.lot = ""
Me.jour = ""
Me.mois = ""
Me.annee = ""

Re : Problèmes transfert données depuis UserForm vers tableur

Bizarre...

UCase fonctionne très bien (c'est la première donnée à entrer dans le tableur depuis le UserForm).
CInt semble bloquer...

Voici mon code pour un click sur le bouton Enregistrer, peut-être ai-je fait une erreur.
L'erreur renvoyée est une erreur '6' (dépassement de capacité).

Re : Problèmes transfert données depuis UserForm vers tableur

Re-bonsoir,

Avec juste un bout de code incomplet, difficile de te répondre. Ensuite, j'ai répondu pour une quantité (que je supposais entière). Je vois que tu as repris le CInt pour plusieurs valeurs qui sont peut-être des nombres réels.

A toi d'adapter le fonction de conversion à ton besoin, voir l'aide EXCEL :

Les fonctions ci-dessous convertissent une expression en un type de données spécifique.
Syntaxe
CBool( expression)
CByte( expression)
CCur( expression)
CDate( expression)
CDbl( expression)
CDec( expression)
CInt( expression)
CLng( expression)
CLngLng( expression) (Valide uniquement sur les plateformes 64 bits.)
CLngPtr( expression)
CSng( expression)
CStr( expression)
CVar( expression)
L’argument expression peut être n’importe quelle expression de chaîne ou expression numérique.
Types renvoyés
Le nom de la fonction détermine le type renvoyé, comme le montre le tableau suivant :
Fonction Type renvoyé Plage de valeurs de l'argument expression CBool Boolean Toute chaîne ou expression numérique valide. CByte Byte 0 à 255. CCur Currency -922 337 203 685 477,5808 à 922 337 203 685 477,5807. CDate Date Toute expression de date valide. CDbl Double -1.79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives. CDec Decimal +/-79 228 162 514 264 337 593 543 950 335 pour les nombres sans décimales. La plage de valeurs des nombres à 28 décimales est
+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est 0,0000000000000000000000000001. CInt Integer -32 768 à 32 767 ; les fractions sont arrondies. CLng Long -2 147 483 648 à 2 147 483 647 ; les fractions sont arrondies. CLngLng LongLong -9 223 372 036 854 775 808 à 9 223 372 036 854 775 807 ; les fractions ne sont pas arrondies. (Valide uniquement sur les plateformes 64 bits.) CLngPtr LongPtr -2 147 483 648 à 2 147 483 647 sur les systèmes 32 bits, -9 223 372 036 854 775 808 à 9 223 372 036 854 775 807 sur les systèmes 64 bits ; les fractions sont arrondies pour les systèmes 32 bits et 64 bits. CSng Single -3,402823E38 à -1,401298E-45 pour les valeurs négatives ; 1,401298E-45 à 3,402823E38 pour les valeurs positives. CStr String Les valeurs renvoyées par la fonction Cstr dépendent de l'argument expression. CVar Variant Même plage de valeurs que le type Double pour les nombres et que le type String pour les chaînes non numériques.
Remarques
Si l'argument expression passé à la fonction excède la plage de valeurs du type de données cible, une erreur se produit.

Cliquez pour agrandir...

A+

Re : Problèmes transfert données depuis UserForm vers tableur

And the winner is : CDbl !

Merci FredOo ! Merci Excel Downloads !

Bonne soirée à tous !