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

Tempus

XLDnaute Junior
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
Collone_H_format_ Textbo!.PNG

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
 
Dernière édition:

Tempus

XLDnaute Junior
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?
 
Dernière édition:

Discussions similaires

Haut Bas