Microsoft 365 Calcul incorrect avec Excel 365, mais correct avec Excel 2019.

[Tempus]

Bonjour,

Je suis nouveau sur ce FORUM, Je débute en langage VBA, et j'en apprend de plus en plus tous les jours grâce à vous.

Pour mon premier projet j'ai copié un code sur le net et je l'ai adapté à mes besoins.

j'ai deux PC "perso et boulot" sur le perso" avec Excel 2019", le fichier fonctionne correctement, mais sur celui du boulot "avec Excel 365", il y a un problème sur un calcul de division avec les colonnes H et I

Voici le calcul pour la colonne H =$G$2/$F$2 et celui pour la colonne I =$E$2/$H$2

Excel devrait normalement afficher 2352.1 pour H et 1.025 pour I

Malgré diverses essais, je ne trouve pas la solution.

Merci pour votre aide.

voici le code:



Private Sub CommandButton1_Click()
If TextBox9.Value = "" And TextBox10.Value = "" Then
MsgBox "Veuillez renseigner les champs "
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout de cet essai?", vbYesNo, "confirmation") = vbYes Then
Worksheets("BD").Select
ligne = Sheets("BD").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = Format(TextBox1.Value, "mm/dd/yyyy")
Cells(ligne, 2) = TextBox9.Value
Cells(ligne, 3) = TextBox10.Value
Cells(ligne, 4) = TextBox2.Value
Cells(ligne, 5) = TextBox3.Value
Cells(ligne, 6) = TextBox4.Value
Cells(ligne, 7) = TextBox5.Value


Cells(ligne, 8).FormulaLocal = "=" & Cells(ligne, 7).Address & "/" & Cells(ligne, 6).Address
Cells(ligne, 8).NumberFormat = "0.0"
Cells(ligne, 9).FormulaLocal = "=" & Cells(ligne, 5).Address & "/" & Cells(ligne, 8).Address
Cells(ligne, 9).NumberFormat = "0.000"

'Cells(ligne, 8) = TextBox6.Value ( code d'origine )
'Cells(ligne, 9) = TextBox7.Value
Cells(ligne, 10) = TextBox8.Value
Cells(ligne, 11) = TextBox13.Value

Unload UserForm2
UserForm2.Show
Else
End If
End If
End Sub

P

 

[dg62]

Bonjour,
ce n'est surement pas un problème de calcul mais davantage un problème de format.
joindre votre fichier si vous souhaitez une réponse.

 

[djidji59430]

Bonjour à tous,
Voici le calcul pour la colonne H =$G$2/$F$2 et celui pour la colonne I =$E$2/$H$2
Regarde la pièce jointe 1075531

Excel devrait normalement afficher 2352.1 pour H et 1.025 pour I
[/QUOTE]
Tu as le probléme sur quel excel ?
C'est un probléme de format de cellule

 

[Tempus]

Bonjour,

J'ai le problème avec Excel 365, je pense que le format de cellule ne doit pas être bon aussi , le format de cellule pour la colonne E est texte ?? et celui de la colonne F est sans format.

 

[Tempus]

Et celui de la colonne G est texte,

 

[dg62]

re,

essayer d'affecter la valeur de vos textbox (format texte) en faisant par exemple Cells(ligne, 6) = Cdbl(TextBox4.Value) qui convertit en numérique

 

[Tempus]

Super merci dg62, cela fonctionne, Cells(ligne, 6) = Cdbl (TextBox4.Value), mais seulement lorsque j'ajoute un nouveau calcul, si j'appuie sur le bouton modifier pour changer une valeur, le problème revient, pensez-vous que je puisse appliquer cette méthode au bouton modifier?

 

[dg62]

Re,
Vous pouvez faire la même chose sans problème.

 

[Tempus]

Bonjour,

Tout fonctionne, un grand merci à vous dg62.