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

zildjian71

XLDnaute Nouveau
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.

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
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
 
Dernière édition:

frangy

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

Bonjour,

Essaie en modifiant le type de ta variable temps_effectue
Code:
temps_effectue As Single
A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas