Formater une colonne vba

BBdolph -  
 BBdolph -
Bonjour à toutes et à tous,

Je suis sur un problème qui me tracasse et m'empêche d'avancer.
Merci d'avance à toutes les personnes qui pourront me venir en aide.

Voici le problème:
Dans une feuille excel, lorsqu'on double click dans une cellule, un userform s'ouvre. L'enregistrement se fait dans la feuille sélectionner ainsi que dans un autre classeur excel. Je souhaiterai que la valeur du textbox s'inscrive au format 0.00 dans la colonne d'arrivée pour ensuite obtenir la somme des valeurs dans une cellule précise.

Voici mon code:
Range("F" & lignevide).Value = txt_temps
Range("F:F").Select
Selection.NumberFormat = "0.00"

Le problème est que lors de l'enregistrement, la mise en forme ne se fait pas et donc le total des cellules ne peut se calculer.

Ce serait formidable si quelqu'un pouvait me sortir de cette situation.
Merci
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. Utilisateur anonyme
     
    Essaye avec la fonction formatnumber. ^^
    0
    1. BBdolph
       
      Bonjour feez,

      Merci pour ta réponse, mais c'est ma première programmation. Donc j'ai vraiment un petit niveau.
      Comment utilise-t-on cette fonction?
      0
    2. Utilisateur anonyme > BBdolph
       
      Bon, alors... Je connais pas trop .Select donc je vais essayer de t'aider comme je peux.
      Tu pourrais essayer d'écrire :

      Range("F" & lignevide).Value = txt_temps
      Range("F:F").Select
      var=FormatNumber(selection,2)

      Une fois que t'as fait ça, normalement, var devrait contenir la valeur de ta cellule et être au format 0.00
      0
    3. BBdolph > Utilisateur anonyme
       
      Désolée, ça ne marche pas.

      Il me met un code d'erreur "code 13".

      Autrement, j'avais pensé à formater directement la feuille, mais là aussi, ça ne marche pas!!!
      0
    4. Utilisateur anonyme > BBdolph
       
      Peux-tu me mettre tout ton code svp
      0
    5. BBdolph > Utilisateur anonyme
       
      Voici :

      If fab_cbo_sem <> "" Then

      chemin = ActiveWorkbook.Path

      Workbooks.Open chemin & "\PlanningFabrication.xls"
      Sheets(fab_cbo_sem.Value).Select

      lignevide = 7

      If Range("A7").Value <> "" Then
      Range("A6").Select
      Selection.End(xlDown).Select
      lignevide = ActiveCell.Row + 1
      End If

      Range("A" & lignevide).Value = txte_affaire
      Range("B" & lignevide).Value = txte_depot
      Range("C" & lignevide).Value = txte_client
      Range("D" & lignevide).Value = txte_chantier
      Range("E" & lignevide).Value = txt_type
      Range("F" & lignevide).Value = txt_temps
      Range("F:F").Select
      Var = FormatNumber(Selection, 2)
      Range("G" & lignevide).Value = txt_add

      ActiveWorkbook.Save
      End If
      0