[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:

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal