Comment former un décimal à partir de deux entiers?

Question

Bonjour,

   Je cherche à savoir comment, à partir de deux entiers de tailles variables situés dans deux cellules excel, je peux obtenir un décimal dont la partie entière correspond au premier entier et dont la partie décimal au second.

ex : j'ai 94 et 98953 => je veux 94,98953

Pour l'instant le code que j'ai et qui marche pas est celui-ci :

   Cells(1,1).Value = Cells(1,2).Value & "," & Cells(1,3).Value

Merci pour vos réponses

Big200148 · Answer

il aut que tu transforme les valeur qui sont dans les cellules en String

papenjoin · Answer

Oui c'est une idée à laquelle j'avais pensé mais je n'obtiens le résultat attendu non plus.

Peut-être que ça vient de mon code : 

   Cells(1,1).Value = CStr(Cells(1,2).Value) + "," + CStr(Cells(1,3).Value)

Big200148 · Answer

et tu obtien quoi avec ton code?

papenjoin · Answer

Avec 94 et 6 146 200 j'obtiens : ---- 946 146 200 En détaillant le calcul j'ai tout d'abord 94 puis 94, et finalement 946 146 200 !!

Big200148 · Answer

fait le avec une variable.
exemple:

Dim MaVal as String
MaVal= CStr(Cells(1,2).Value) + "," + CStr(Cells(1,3).Value)
 Cells(1,1).Value=CInt(MaVal)

papenjoin · Answer

Avec CInt j'ai que la partie entière mais avec CDec ça a l'air de marcher :)

Merci

Big200148 · Answer

oui dsl j'avais oublié le fait que tu voulais un decimal

papenjoin · Answer

Lol ya pas de soucis et merci pour le coup de main ;)

cs_MPi · Answer

Tu pourrais utiliser une formule directement dans la cellule de ta feuille
=CNUM(A1 & "," & B1)

MPi

papenjoin · Answer

En réalité mon code est un peu plus compliqué que ça et les cellules en question appartiennent à un autre classeur. En fait, en fonction des x fichier(s) que j'ai j'ouvre x classeur(s) un par un, effectue un traitement et les referme donc je pense pas que ça puisse marcher. Mais tu pouvais pas savoir :p en tout cas merci pour l'info.

42wawa42 · Answer

Hello papenjoin

Une autre approche du probléme pour toi.

Option Explicit
Private Sub Form_Load()
'j'ai 94 et 98953 => je veux 94,98953
Dim strDeux As String
Dim lonDeux As Long
lonDeux = 98953
strDeux = CStr(lonDeux)
Text1.Text = 94 + (lonDeux / (10 ^ Len(strDeux)))


End Sub

A Plus sur VBFrance
42wawa42

cs_MPi · Answer

Le même principe de concaténation peut fonctionner sous VB.
Il s'agit juste de le transformer en chiffre.
Il faut comprendre que la concaténation retourne une String par défaut...

    Dim Num1 As String, Num2 As Long
    Dim Nombre As Double
    
    Num1 = "94"
    Num2 = 98953
    Nombre = CDbl(Num1 & "," & Num2)
    
    If IsNumeric(Nombre) Then MsgBox Nombre  'pas d'erreur, c'est un chiffre

MPi

papenjoin · Answer

Ok merci à vous deux je testerai également vos méthodes ;)

Comment former un décimal à partir de deux entiers?

13 réponses

Votre réponse

Discussions similaires