Résultats pour "decimales"

65 résultats pour cette recherche

Bonjour,

Voici mon problème. Dans une cellule d'une feuille Excel, j'introduis une formule qui fait la somme d'une plage de 219 cellules. Ces cellules contiennent chacune un montant (positif ou négatif, en euros) issu d'un historique bancaire, donc à 2 décimales. Le total obtenu est : 966,21. Mais si je formate la cellule avec 24 décimales, j'obtiens : 966,209999999999000000000000. J'ai contrôlé chaque cellule pour voir s'il n'y avait pas des décimales profondes cachées. J'ai utilisé, pour cela, le formule suivante : =SI(D6=ARRONDI(D6;2);"Oui";"Non"). J'ai obtenu 219 "oui". Si j'applique cette formule sur la cellule du total, j'obtiens évidemment "non". Sur une autre série de montant, j'ai obtenu une somme avec la décimale 1 en 12e position, après les 2 premières décimales (normales) et 9 zéros. Je joins le fichier.

Qui m'expliquera ce mystère ?

5test.zip (241.15 Ko)

Bonjour à tous,

Pour mon premier post, je galère énormément car dans mon document j'ai mis un inputbox où l'entré sera à 6 decimales, hors quand j'utilise

Dim uni As Currency

uni = InputBox("UNITES D'ACHAT : ", "Unités")

Range("D8").Select

ActiveCell.Value = uni

à la sortie je me retrouve qu'avec 2 des 6 decimales tapés. C'est pas une question qu'elles soient cachés, en effet la chiffre s'arrondit à 2 dec.

Ex. je rentre 2,123456 et à la sortie il y a 2,120000.

Comment je declare le format dans l'inputBox??

Merci

Bonjour tout le monde,

Vous pourrez peut-être éclairer ma lanterne...

J'ai une Feuille de calcul avec une colonne remplie de nombres (nombres qui sont le résultat de formules entrées dans cette dite colonne). Je souhaite chercher le 6ème plus grand nombre dans cette colonne, puis ensuite trouver l'adresse de la cellule qui contient ce 6ème plus grand nombre.

Je passe tout d'abord par la fonction "large", et ensuite j'incorpore le résultat dans une fonction "find". Le problème c'est que la colonne qui contient ma série de nombres dans ma feuille excel est formatée pour que les nombres affiche tout le temps 2 décimales. Le problème c'est que le 6ème plus grand nombre que me retourne la fonction "large" est : 724.5 alors que dans ma feuille de calcul le nombre affiché est : 724.50. Donc quand ensuite je fais ma recherche avec "find" pour obtenir l'adresse de la cellule, la fonction "find" ne trouve rien.

Je tourne en rond depuis un petit moment déjà, et je n'arrive pas à transformer le résultat de ma fonction "large" (724.5) en 724.50. J'ai fait des tentatives avec les fonctions "round", "format", "cstr", ... mais je n'arrive pas à mes fins... Quelqu'un a une idée ? Merci !

Mon code :

Sub Try501()

Dim Cell As Range

Dim VAR1 As Double

Workbooks("Schedule.xlsm").Activate

Worksheets(1).Activate

VAR1 = Application.Large(Range(Cells(382, 37), Cells(382, 37).End(xlDown)), 6),

MsgBox VAR1

Set Cell = Range(Cells(382, 37), Cells(382, 37).End(xlDown)).Find(what:=VAR1, _

after:=Cells(382, 37), lookat:=xlWhole, LookIn:=xlValues, searchorder:=xlByRows, _

searchdirection:=xlNext, MatchCase:=False)

MsgBox prompt:=Cell.Address

End Sub

3schedule-xlsm.xlsx (12.86 Ko)

Salutations ,

J'essaie de fixer la position de la virgule dans les décimales des valeurs rachetées à la bourse dans le dossier de monsieur Steelson à ce sujet .

J'ai adapté le fichier joint pour récupérer les données de la bourse brésil , lorsque la macro importe les données, le point décimal n'est pas récupéré à la bonne position (voir l'image et le fichier joint) .

Je souhaite récupérer les valeurs d'origine de la page web, sans avoir à faire de nouveaux arrangements dans le fichier .

Je voudrais que les valeurs soient déjà excellentes dans la forme originale de la page web .

est-il possible de racheter les valeurs avec les décimales déjà dans la bonne position comme je l'ai mis manuellement dans l'image jointe ?

image

Bonjour,

Je suis actuellement en train de créer un TCD via un code VBA; Je souhaiterai que mon filtre "Différence salaires N VS N-1" décoche toutes les valeurs < 0.

Mon code fonctionne presque. Le problème est que seules les nombre entiers sont décochés. Les nombres décimaux restent cochés... Savez vous pourquoi?

F_TCD.PivotTables("TCD 1").PivotFields(Différence_salaires_N_VS_N_Moins_1).EnableMultiplePageItems = True

With F_TCD.PivotTables("TCD 1").PivotFields(Différence_salaires_N_VS_N_Moins_1)

For B = 1 To .PivotItems.Count

If .PivotItems(B) >= 0 Then

.PivotItems(B).Visible = True

Else

.PivotItems(B).Visible = False

End If

Next B

End With

Bonjour à tous

Je suis débutant en VBA et je dois réaliser un programme qui sera utilisé par d'autres personnes.

Ma question est la suivante, est ce possible d'avoir une virgule ET un point comme séparateur de décimale ? (j'ai fais une recherche au préalable mais je n'ai trouvé aucune réponse, j'ai seulement trouvé comment remplacer la virgule par le point).

Pour remettre dans le contexte, la macro fera une liste de produits sous un tableau excel et demandera notamment le prix du produit concerné. Et c'est là que le problème se pose : le programme va être utiliser par des manutentionnaires et par des intérimaires qui n'auront pas forcément le reflexe d'utiliser la virgule du clavier et utiliseront le point sous le pad numérique (ca m'arrive déjà à moi alors que c'est moi qui écrit le code ), ce qui générera une erreur...

Je pensais faire un If imbriqué dans l'Inputbox du prixht qui remplacerait automatiquement le point par une virgule mais je ne vois pas comment le faire et j'ai l'impression de chercher beaucoup trop loin... Auriez-vous une solution pour m'aider svp ?

Merci beaucoup à tous !

Si besoin, voici ci-dessous la partie du code concerné par ça :

Sub macro1()

Dim prixht, quantite, tva, total As Double

prixht = InputBox("Inscrivez ci-dessous le prix hors taxe du produit concerné (utiliser une virgule si décimale)")

quantite = InputBox("Inscrivez ci-dessous le nombre d'article(s) de ce produit")

tva = InputBox("Inscrivez ci-dessous son taux de TVA (utiliser une virgule si décimale)")

total = (prixht + (prixht * tva / 100)) * quantite

MsgBox ("Le prix total sera de " & total & " €")

End Sub

Bonjour,

Dans le fichier ci-joint, dans le feuille "Suivi_des_commandes" en cliquant sur le "F" rouge, je déclenche un formulaire.

Dans ce formulaire, en face de la TextBox "MONTANT TTC" et à l'aide du petit bouton de couleur jaune, j'appelle un autre formulaire qui doit me servir à calculer le montant total TTC (afficher dans la TextBox Montant TTC donc).

Tout fonctionne lorsque je saisis des montants HT en choisissant des taux de TVA variables, les calculs s'opèrent correctement. Seulement, j'aperçois que lorsque la TextBox "MONTANT TTC" doit recevoir des décimales (je souhaiterais avoir 2 décimales), et bien ça coince, et le résultat trouver reste à .00e ?

Exemple : si dans le formulaire où je dois saisir les montants HT + taux TVA, je saisie montant HT : 100e et Taux TVA = 5,50% et que je clique sur le bouton "CALCULER", le résultat afficher dans la TextBoxMontantTTC du premier formulaire est 105,00e. Or, le résultat exact est 105,50e ?

Quelqu'un aurait-il une idée pour afficher deux décimales quand le résultat l'exige.

Vous remerciant par avance.

bonjour à toutes et tous,

J'ai fait un petit fichier pour entrer mes achats de matériels.

Les données sont entrées à partir d'un UF.

Je fais la différence entre les achats HT et les achats TTC.

Cela fonctionne bien pour les achats TTC mais en ce qui concerne les achats HT, j'ai placé plusieurs textboxes sur l'UF afin de calculer la TVA, mais lors de la retranscription sur la feuille, les décimales ne se marquent pas. C'est sûrement un problème de format, mais

je n'ai pas trouvé seul la solution, c'est la raison pour laquelle je fais appel à vous.

Si vous pouvez m'aider ???

merci par avance.

16modele.xlsm (54.58 Ko)

Bonjour,

Pour ma course de relais en EPS j'ai besoin de trouver les points correspondant à leur indice de transmission

Pour cela j'ai utilisé la formule INDEX EQUIV allant de dixième en dixième de 0,9 à -2

]Le seul problème c'est qu'une fois dans mon tableau, la fonction INDEX EQUIV ne fonctionne seulement quand les indices de transmissions sont égales à 0,5 0 -0,5 -1 -1,5 et -2

Toutes les décimales entre ces chiffres ( 0,4 / -0,8 / etc) ne fonctionnent pas et m'indiquent NA dans la case de la formule

Où se trouve mon erreur ?

Cordialement

Laurent

16relais-2nde.xlsx (39.67 Ko)

Bonjour à tous,

depuis peu, mon Excel 2010 m'affiche des nombres à décimales que je ne souhaite pas, exemple :

je tape 600, il m'affiche 0,006

je tape 700, il m'affiche 0,007

je tape 400, il m'affiche 0,004

je tape 5000000, il m'affiche 50

etc.

Pourriez-vous m'aider à résoudre le problème s'il vous plaît ?

Belle journée

Bonsoir,

C’est ma première question sur VBA Excel 2016.

Ma question est la suivante:

J’ai une combox avec une valeur en pourcentage avec deux décimales, j’ai une textbox libre pour ajouter n’importe quelle valeur monétaire et le résultat du calcul sur une deuxième textbox avec décimales.

Je n’arrive pas à faire fonctionner le calcul... 😔. Merci de votre aide! Salutations.

Bonjour à tous,

J"utilise Excel depuis de nombreuses années et il m'arrive quelque chose de nouveau....

Je m'explique

J'utilise les mêmes classeurs depuis des années. Les cellules contenant des nombres sont formatées en nombre, deux décimales et utilisation du séparateur de milliers... Sur mon ordi de bureau aucun problème. Si je tape 100 au clavier, il s'affiche 100.00. Parfait.

Par contre lorsque j'utilise les mêmes classeurs sur un ordi portable, il arrive ce qui suit :

je tape 1 dans une cellule, et cela affiche 0.01

pour obtenir 1, il faut que je tape 100 et cela affiche 1.00....

Bizarre

Si l'un de vous peut m'aider, grand merci par avance

André

j'ai trouver qu'il suffisait de multiplier la cellule contenant une heure en h:mn:sec par 24 et convertir en nombre

mais pourquoi, je n'aime faire sans comprendre

Bonjour à toutes et à tous

je fais des fiches techniques où il y a des litres Kg pièces etc.. et je veux par l'intermédiaire de la MFC modifier les décimales de ma cellule.

D69 = cellule de référence texte : pièce , kg , litre etc...

F69 = la cellule avec MFC

de façon à ce que, quand je tape 8, il affiche : 8.000 ou 8 selon si c'est pièce litre ou KG

A69 D69 E69 F69 G69

lapin KG 12€ 0.250 96 €

curry Gr 0.48€ 16 7.68 €

il n'y a que F69 que je modifie, donc si je tape 16 il doit s'afficher 16 et pas 16.000

Merci

Bonjour,

Un fichier excel de départ avec les nombres sous format =ARRONDI(E2;1)

Ces nombres sont rapatriés par collage avec lien dans le fichier Excel pour publipostage. Ce collage avec lien est également formaté sur ARRONDI avec 1 décimale. Dans ces deux fichiers, je n'ai bien qu'une décimale.

Quand je transfère vers publisher ou Word, toutes les décimales reviennent.

Pour publisher je ne sais pas mais pour word, un autre membre m'avait donné une formule. Il fallait basculer code champ et mettre { MERGEFIELD "nom du champ"\#0.0 } puis rebasculer... ça ne marche pas... Il n'y a pas d'erreur dans la formule? (quand je bascule, il n'y a déjà pas les guillemets dans la formule...).

Merci d'avance

Cath

Bonjour,

Je suis en train de créer un nouveau planning pour mes collègues et moi et je bute sur une chose toute simple qui vous semblera, je l'espère, évidente pour vous expert d'Excel

Je voudrais faire une simple différence des heures de départ de chaque salarié par rapport à leurs heures d'arrivées pour automatiser le calcul de leurs heures de travail journalieres.

Jusque là, pas de difficulté, un simple "=somme" pourrait faire l'affaire mais dans mon cas, je voudrais (comme dans l'exemple si dessous en D3) que mon résultat n'affiche pas 3.30, mais plutôt 3.50

sans titre

En gros, je souhaiterais que le résultat prenne l'exemple de : 1H=1 unité (et donc 1H30=1,50)

Auriez-vous la solution ?

Un grand merci d'avance

Bonjour à tous,

Ce sujet n'est pas vraiment un problème en soi mais plus un constat que je n'explique pas sur Excel. J'ai tâché de faire un petit tableau très simple mettant en évidence ce souci. J'ai des % sur ma première colonne avec juste un chiffre derrière la virgule. La somme de ces pourcentages est égale à 100%. En intitulé de ligne j'ai mis des chiffres entiers de 1 à 998. Le tableau consiste juste à multiplier ces chiffres avec les pourcentages de la première colonne, donnant comme il se doit une somme égale au chiffre du haut. Je ne sais pas si je suis très claire !! J'ai rajouté une mise en forme conditionnelle sur la somme pour mettre tout de suite en évidence l'anomalie. Tout se déroule correctement sauf pour quelques chiffres, dans l'exemple le 97 dont la somme ne donne pas 97 mais un 97,00000000000000100 , le 963, le 995 ce qui n'est pas normal car une multiplication avec un nombre n'ayant qu'un chiffre derrière la virgule ne peut pas donner comme résultats un nombre infini. Bref, c'est pas très grave en soi, mais cela m'énerve de ne pas avoir d'explication rationnelle. Si quelqu'un avait une petit idée !! J'ai tenté avec d'autres pourcentages, je n'ai pas réussi spécialement à reproduire l'anomalie, ce qui me surprends encore plus d'ailleurs !!!! Merci par avance (je vous joins le fichier)

6mystere-excel.xlsx (19.68 Ko)

Bonjour à tous,

Après quelques recherche, je ne parviens pas à trouver mon problème alors voila, je me tourne vers vous!

Le problème n'est pas énorme et je ne pense pas qu'il nécessite le fichier, c'est purement lié à la fonction je crois. Enfin au cas ou, si vous voulez vraiment le fichier pas de soucis, je vous enverrai le paquet

Pour faire court, je récupère des données Excel sur un premier fichier, j'intègre ces données dans des variables tableaux et de la, je fais la moyenne, le mini et le max de mon tableau.

Sur le principe, ça fonctionne impeccablement bien!

Mais petit couac, le résultat obtenu est entier hors, je voudrais obtenir un chiffre après la virgule.

       
 ' pour l'enregistrement dans les tableaux
       ' à ce moment, les valeurs ont 2 décimales 
                For y = 1 To 5
                    date_TUSetude(y) = Cells(moy_ligne - 1 + y, 1)
                    TC1etude(y) = Cells(moy_ligne - 1 + y, 2) + TC_correction_500(1) + reccord_correction_500(1)
                    TC2etude(y) = Cells(moy_ligne - 1 + y, 3) + TC_correction_500(2) + reccord_correction_500(2)
                    TC3etude(y) = Cells(moy_ligne - 1 + y, 4) + TC_correction_500(3) + reccord_correction_500(3)
                    TC4etude(y) = Cells(moy_ligne - 1 + y, 5) + TC_correction_500(4) + reccord_correction_500(4)
                    TC5etude(y) = Cells(moy_ligne - 1 + y, 6) + TC_correction_500(5) + reccord_correction_500(5)
                    TC6etude(y) = Cells(moy_ligne - 1 + y, 7) + TC_correction_500(6) + reccord_correction_500(6)
                    TC7etude(y) = Cells(moy_ligne - 1 + y, 8) + TC_correction_500(7) + reccord_correction_500(7)
                    TC8etude(y) = Cells(moy_ligne - 1 + y, 9) + TC_correction_500(8) + reccord_correction_500(8)
                    TC9etude(y) = Cells(moy_ligne - 1 + y, 10) + TC_correction_500(9) + reccord_correction_500(9)
                    TC10etude(y) = Cells(moy_ligne - 1 + y, 11) + TC_correction_500(10) + reccord_correction_500(10)
                    TC11etude(y) = Cells(moy_ligne - 1 + y, 12) + TC_correction_500(11) + reccord_correction_500(11)
                    TC12etude(y) = Cells(moy_ligne - 1 + y, 13) + TC_correction_500(12) + reccord_correction_500(12)
            Next y

 'Ici, calcul de la moyenne, du mini et du maxi
     ' à partir de la, le contenu de moy_TC1 est entier...
                    moy_TC1 = Application.WorksheetFunction.Average(TC1etude)
                    min_TC1 = Application.WorksheetFunction.Min(TC1etude)
                    max_TC1 = Application.WorksheetFunction.Max(TC1etude)

            

Une idée?

Bonjour ,

J'ai besoin d'aide pour la problématique suivante.

J'ai trouvé pas mal de solutions mais je n'ai pas su adapter à mon cas.

je voudrais saisir dans une textbox des nombres relatifs entiers ou décimaux.

  • Si nombre négatif doit être unique et au début
  • ne pouvoir insérer qu'une seule fois le séparateur de décimales (point ou virgule)
  • uniquement 2 chiffres après le séparateur de décimales

Le code ci-dessous fonctionne mais il est incomplet.

J'ai ajouté le signe '-' avec les nombres mais ne fonctionne pas (InStr("1234567890-", strpass) .

c-à-d le signe moins ne s'inscrit pas.

Option Explicit
'''pour gestion saisie numerique textbox'''''''''''''''''''''''''''''''''
Const entrees_decimales_permises = "-.,0123456789" & vbCr & vbBack      '
Const entrees_entieres_permises = "0123456789" & vbCr & vbBack          '
Const Point = "."                                                       '
Const Virgule = ","
Const Moins = "-"
Private Function ChainePasOK(strpass As String) As Boolean
    If strpass = "" Then Exit Function
    If Len(Replace(strpass, ".", "")) <> Len(strpass) Then ChainePasOK = True: Exit Function
    If Len(strpass) = 1 And InStr("1234567890", strpass) = 0 Then ChainePasOK = True: Exit Function
    strpass = Replace(strpass, ",", ".")
    If Len(CStr(Val(strpass))) <> Len(strpass) Then ChainePasOK = True
End Function
'-----DECIMAL----------------------------------------------------------------------------------------
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Dim Pos As Long

   If KeyAscii = Asc(Point) Then
      If InStr(TextBox1, Virgule) = 0 Then
         KeyAscii = Asc(Virgule)
      Else
         KeyAscii = 0: Beep
      End If

   ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then        '1
      KeyAscii = 0: Beep

   ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
   ElseIf InStr(TextBox1, Moins) > 0 And KeyAscii = Asc(Moins) Then

      KeyAscii = 0: Beep

   ElseIf InStr(TextBox1, Virgule) > 0 Then
      Pos = InStr(TextBox1.Text, Virgule)
      If Len(TextBox1.Text) = Pos + 2 Then
         TextBox1.Text = Left$(TextBox1.Text, Len(TextBox1.Text) - 1): Beep
      End If
   End If

   If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
End Sub

En vous remerciant par avance.

Bon week-end

Edit: Merci beaucoup mais j'ai trouvé la solution. (code corrigé)

Bonjour à toutes & tous

Espère que vous avez aussi beau ciel bleu qu'ici en Bretagne. Ma 'tite question du jour : dans une colonne où j'ai des chiffres entiers et d'autres avec des décimales, j'aimerais savoir comment faire pour que les chiffres entiers s'affichent automatiquement sans virgule. Plus précisément :

1,258 ça c'est ok

mais 1,000, je le voudrais en 1 tout court.

Par avance merci

Bizzzzzzzzzzz

Recherches récentes

caissehypertextecompter visibles plagedashboardvba caissesavdanieldonnees independantesite webqcmimpression feuille listbox dateimprimer listbox datesecurite incendieplanificateuraudit securitecolorier selectionligne colonnegestion stock fifofifo stockemplois temps