Collage spécial en VBA

AHTOUATI -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).EntireRow.Copy Worksheets("SAVBD").Range("A" & Rows.Count).End(xlUp)(2)

maintenant lorsque je valide les chiffres sont portés sur la base de donné comme une valeur texte
exemple 5 000.00 dans la base de donné elle est porté 5 000.00 étant un texte, et elle ne sera prise comme chiffre que lorsque je tappe F2 à la cellule

ma question est de m'aidé SVP de trouver un code pour ne pas tappé à chaque fois F2

merci d'avance

1 réponse

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    par exemple
    Dim texte As String, nombre As Double
    texte = Range("G4")
    nombre = CDbl(Replace(texte, ".", ","))
    --
     Michel
    0