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

[zildjian71]

Bonjour a tous,

J'ai petit bout de code qui me permet de recuperer des valeur d'une feuille et qui me permet de les reintegrer dans une autre feuille.

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

Lorsque j'execute ma fonction, ma variable prend bien la bonne valeur ( j'ai confirmé par un espion ) mais ma valeur affichee dans ma feuille BDD est 1 875.

Le format de ma cellule d'arrivé est Standard

Merci d'avance

 

[frangy]

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+

 

[zildjian71]

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

Oupsss j'ai fait un double post. j'ai cru que j’avais pas valide la premiere fois vue que je ne le retrouvais pas

Voir ce sujet

https://www.excel-downloads.com/thr...-avec-vba-ma-valeur-change-a-larrivee.200690/.

Merci de fermer celui la.