Discussion :

[ksaier]

Bonjour à tous,

J'ai une petite question s'il vous plait c'est urgent, j'utilise actuellement une fonction pour un affichage spécifique d'une ligne en Excel.
Une de mes cellule est un montant TVA avec des chiffres après la virgule (Cells(1, 5)) , lorsque j'exécute ma macro j'ai pas l'affichage des chiffres après la virgule.
Exemple TVA = 45120.00 --> ma fonction donne 45120
Voici la fonction que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function PresenterSur4Lignes3(ByVal AireAPresenter As Range) As String
 
Dim I As Integer
 
    PresenterSur4Lignes3 = ""
    If AireAPresenter.Count = 14 Then
        With AireAPresenter
        PresenterSur4Lignes3 = "3" & .Cells(1, 2) & .Cells(1, 12) & " " & .Cells(1, 7) & " " & " " & " " & .Cells(1, 10) & .Cells(1, 5)
End With
    End If
 
End Function

la cellule concernée est : Cells(1, 5).

Merci

[Igloobel]

Bonjour,

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Application.FixedDecimal = True
    Cells(3, 1).Value = Format(4800, "#,##0.00")

et tu dis

N'oublie les Balises et les si cela te conviens

A+

[ksaier]

Bonjour Igloobel,
Merci pour ta réponse, en fait j'ai ajouté les lignes de code dans ma fonction mais pas de résultat
Toujours les zéros après la virgule ne s'affichent pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function PresenterSur4Lignes3(ByVal AireAPresenter As Range) As String
 
Dim I As Integer

    Application.FixedDecimal = True
    Cells(1, 5).Value = Format(4800, "#,##0.00")

    PresenterSur4Lignes3 = ""
    If AireAPresenter.Count = 14 Then
        With AireAPresenter
        PresenterSur4Lignes3 = "3" & .Cells(1, 2) & .Cells(1, 12) & " " & .Cells(1, 7) & " " & " " & " " & .Cells(1, 10) & .Cells(1, 5)
      End With
    End If
 
End Function

[Menhir]

Igloobel, je ne suis pas sûr qu'il soit possible de mettre un formatage de cellule dans une fonction (je suis même à presque sûr que ce n'est pas possible). Une fonction renvoie une valeur, elle ne peut pas réaliser une action.

Cela dit, en restant dans le même esprit, il y a une façon très simple de résoudre ton problème :
Clic droit sur la cellule où se troue la fonction > Format de Cellule > Onglet Nombre > Catégorie nombre > Nombre de décimales = 2 > Ok

[Igloobel]

Igloobel, je ne suis pas sûr qu'il soit possible de mettre un formatage de cellule dans une fonction (je suis même à presque sûr que ce n'est pas possible). Une fonction renvoie une valeur, elle ne peut pas réaliser une action.

Effectivement j'avais pas bien vu que c'était un fonction . moi je l'avais mis dans une sub ert chez moi cela marchais très bien donc dans une sub.
Depuis que j'ai découvert les déclarations de variables publique, j'ai quasiment plus besoin de faire des fonctions et j'en fait très très très rarement
C'est pourquoi j'ai fait une sub et j'affirme que mes deux lignes marche très bien dans une sub (j'ai testé avant de poster)

A+

[Philippe Tulliez]

Bonjour Menhir, Igloobel,
Sauf si on utilise une fonction comme formule personnalisée utilisable depuis Excel, il n'y a aucun problème de faire des actions depuis une procédure Function
J'utilise régulièrement des fonctions notamment pour faire de l'exportation. La fonction effectue l'exportation avec la méthode AdvancedFilter et me renvoie comme valeur le nombre de lignes exportées
Exemple : taper 20,23 en cellule A1 et faites tourner cette procédure SUB qui elle-même va invoquer la fonction et de plus une fonction peut-être appeler comme une sub ou comme une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function maSomme(rng As Range, Num As Double) As Double
 Dim row As Long
 For row = 2 To 10
  With rng.Offset(row, 1)
  .Value = rng * row * 2.3
  .NumberFormat = "#,##0.00"
  maSomme = maSomme + .Value
  End With
 Next
End Function

La procédure SUB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub TestA()
 maSomme Range("A1"), 10.2 ' Syntaxe 1 
 MsgBox "La somme = " & Format(maSomme(Range("A1"), 12), "#,###.00") ' Syntaxe 2
End Sub

[Igloobel]

Bonjour à tous

Petite précision si dans Option - Option avancées - Décimale fixe n'est pas coché cela ne marche pas ! Voilà pourquoi j'ai mis la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.FixedDecimal = True

A+

[Igloobel]

Pardon Pardon Pardon



J'ai dis une betise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.FixedDecimal = True

me fixe obligatoirement 2 décimales

je tape 2000 et il met 20 !!!!

Désolé d'avoir dit une grosse betise