comparaison avec 1 boucle VBA Résolu

Question

Bonjour à tous

Je cherche à apprendre le VBA, et pour cela, je fais un petit programme pour arrondir des données à 0.1 pres par valeurs supérieures. Je sais que la fonction ARRONDI.SUP existe mais elle ne me permet pas de faire un tableau dynamique croisé après.

(en effet il y a des doublons. Exemple, si j'ai 2.05 et 2.1, les deux sont arrondis à 2.1 mais dans le TDC, j'ai deux cases 2.1, l'une correspondant à l'ancien 2.05 et l'autre à l'ancien 2.1)

Bref, j'ai fais le code suivant

Sub Arrondi_Calc()

Dim DerLi As Long
DerLi = Range("B" & Rows.Count).End(xlUp).Row

Dim MyRange As Range
Dim Maxi As Long
Set MyRange = Worksheets("feuil1").Range("B3:B" & DerLi)
Maxi = Application.WorksheetFunction.Max(MyRange)

For k = 3 To DerLi
    For i = (-0.2) To Maxi Step 0.1
        If Range("B" & k).Value > (i - 0.1) Then
        Range("C" & k).Value = i
        End If
        Next
        Next
End Sub
 
avec en B mes données à arrondir et en C les nouvelles valeurs sont écrites.

Le problème est le suivant : 

ça fonctionne pour toutes les valeurs sauf pour
1 qui est arrondi à 1.1 (et pas 1)
0.9 qui est arrondi à 1

Je ne connais pas bien le VBA, j'ai déjà programmé un tout petit peu dans d'autre langage, mais là je sèche. Pourquoi n'ai-je un probleme qu'avec la valeur 1?

Merci à tous d'avance

Patrice33740 · Answer

Bonjour,

Au lieu de If Range("B" & k).Value > (i - 0.1) Then

Utilises If Range("B" & k).Value >= i Then

Patrice33740 · Answer

Bonjour,

Essaies :
Option Explicit
Sub ArrondiSup_Calc()
Dim DerLi As Long
Dim MyRange As Range
Dim K As Long
Dim X As Double
  
  DerLi = Range("B" & Rows.Count).End(xlUp).Row
  Set MyRange = Worksheets("feuil1").Range("B3:B" & DerLi)

For K = 3 To DerLi
    X = 10 * Range("B" & K).Value
    If X - Int(X) > 0 Then
      Range("C" & K).Value = Int(X + 1) / 10
    Else
      Range("C" & K).Value = Int(X) / 10
    End If
  Next

End Sub
On peut simplifier :

For K = 3 To DerLi
    X = 10 * Range("B" & K).Value
    Range("C" & K).Value = Int(X + IIf(X - Int(X) > 0, 1, 0)) / 10
Next

ezor · Answer

Bonjour Patrice33740

Merci beaucoup, ça a l'air de très bien fonctionner ! 

Je cherche à comprendre ce qui donnait des erreurs dans mon code maintenant, parce que ça me semble assez étrange que toutes les valeurs donnent quelques chose de correct sauf deux ou trois, et même avec la fonction excel ARRONDI.SUP.

Peut être est-ce parce que ton code est plus "propre" et moins compliqué que le mien


Je vais maintenant pouvoir tenter de gérer le cas où une des cellules que je traites contiens du texte... 

En tout cas encore merci 
ezor

Patrice33740 · Answer

Il s'agit d'un problème de précision des calculs, voici un exemple typique :
Sub Test()
  MsgBox 1.1 - 0.1 - 1
End Sub

ezor · Answer

Je me doutais bien que ça venait de quelques chose comme ça. Merci (je n'avais même pas pensé à tester avec un MsgBox la valeur renvoyée...)

Si ça ne te dérange pas de répondre encore à une de mes questions (naïves?) : y connais tu un moyen dans les options excel ou dans le code vba, pour limiter le nombre de chiffre après la virgule (et ainsi éviter ce genre de problème) ?

Sinon ce n'est pas bien grave tu m'as déjà bien aidé ;)

Patrice33740 · Answer

Re,

«connais tu un moyen dans les options excel, pour limiter le nombre de chiffre après la virgule (et ainsi éviter ce genre de problème)  ?» Oui :
Option / Calcul / Calcul avec la précision au format affiché

Sinon tu peux aussi utiliser la fonction ARRONDI(Nombre, Nombre de décimales)

«connais tu un moyen dans le code vba, pour limiter le nombre de chiffre après la virgule (et ainsi éviter ce genre de problème) ? » Oui et non !!!
Comme dans les feuilles Excel, tu peux arrondir les valeurs, évite la fonction Round() et utilises plutôt celle-ci :  fonction Arrondi()
Cependant, avec tous les nombres décimaux (Double, Single, Currency, Decimal et Date) il y aura toujours une incertitude (infiniment petite) liée à la précision de calcul comme le msgbox ci dessus.

eriiic · Answer

Bonjour,

Je sais que la fonction ARRONDI.SUP existe mais elle ne me permet pas de faire un tableau dynamique croisé après. 

(en effet il y a des doublons. Exemple, si j'ai 2.05 et 2.1, les deux sont arrondis à 2.1 mais dans le TDC, j'ai deux cases 2.1, l'une correspondant à l'ancien 2.05 et l'autre à l'ancien 2.1) 
Très étrange, j'ai testé et as réussi à avoir le pb.
Que ça ne t'empêche pas d'apprendre vba ;-)

Plus simple (à tester) :
Sub Arrondi()
    Dim lig As Long
    For lig = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        Cells(lig, 2) = Application.RoundUp(Cells(lig, 2), 1)
    Next lig
End Sub 
 
eric

ezor · Answer

Décidément tu as réponse à tout ! 

Je vais tester ces deux cas, je verrai bien. encore merci pour le code fonctionnel.

Comparaison avec 1 boucle VBA

8 réponses

Discussions similaires

Newsletters