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

zildjian71

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

pierrejean

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

Bonjour zildjian

Tester avec

Code:
temps_effectue As Double
 

pierrejean

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

Re

Ajouter:

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

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