[Resolu] Insertion valeur dans cellule avec VBA, ma valeur change a l'arrivee

[zildjian71]

Bonjour a tous,

je viens vous voir car j'ai petit probleme dans l'insertion d'une valeur dans une cellule d'une autre feuille.

La valeur change et je ne sais pas pourquoi.

Voici mon code :

Sub prise_astreinte()

 Dim index_ligne As String, HH As String, MM As String, temps_effectue As String
 
 index_ligne = Cells(6, 4)
 HH = Cells(15, 3)
 MM = Cells(15, 5)
 temps_effectue = Cells(18, 4) ' la valeur est de 1,875 '


If index_ligne <> Empty Then
  If HH <> Empty Then
    If MM <> Empty Then
      If temps_effectue <> Empty Then
      
      

Sheets("BDD").Range("K" & index_ligne).Value = temps_effectue

Beep

      End If
    End If
   End If
  End If

   End Sub

La valeur inscrite dans ma feuille BDD dans la colonne K est 1 875.

Je ne comprend pas pourquoi, j'ai ajouter un espion pour bien confirmer que la valeur récupérer de ma cellule est bien 1,875.

Merci d'avance

Le format de la cellule de destination est standard, il y a un lien avec mon problème ?

 

[pierrejean]

Re : Insertion valeur dans cellule avec VBA, ma valeur change a l'arrivee

Bonjour zildjian

Tester avec

temps_effectue As Double

 

[zildjian71]

Re : Insertion valeur dans cellule avec VBA, ma valeur change a l'arrivee

Bonjour,

Essaie en modifiant le type de ta variable temps_effectue

temps_effectue As Single

A+

Bonjour zildjian

Tester avec

temps_effectue As Double

As single renvoie 2
as double renvoie 2

 

[pierrejean]

Re : Insertion valeur dans cellule avec VBA, ma valeur change a l'arrivee

Re

Ajouter:

Sheets("BDD").Range("K" & index_ligne).NumberFormat = "0.000"

 

[zildjian71]

Re : Insertion valeur dans cellule avec VBA, ma valeur change a l'arrivee

Bonne reponse !!!

merci beaucoup