Vba problème d'arrondi avec multiples

[Arpette]

Bonsoir à toutes et tous, je souhaiterais arrondir le résulat en fonction d'un multiple. Pour produits "A,B,C" je souhaite avoir le résultat en colonne E des multiples de 25 et pour le produit "D" des multiples de 21.
Excusez moi pour mon code, je pense qu'il n'est pas très bien structuré.

Merci pour votre aide.

With Sheets("Alimentation")
    'Pour faire les sorties, on mémorise dans DernLign le numéro de la première ligne de la feuille Alimentation
    dernLign = .Cells(.Rows.Count, 1).End(xlUp).Row
    
    If TextBox8.Value = "" Then
       TextBox8.Text = 0
    End If
    Cells(2, 12) = TextBox8.Text
       If .Cells(dernLign, 2) = "A" Or .Cells(dernLign, 2) = "B" Or .Cells(dernLign, 2) = "C" Then
            .Cells(dernLign, 5).Value = NB * Cells(2, 12) / 1000
       
            If NB * Cells(2, 12) / 1000 = 0 Then
                .Cells(dernLign, 5).Value = 0
            End If
                If NB * Cells(2, 12) / 1000 <> 0 Then
                    .Cells(dernLign, 5).Value = 25 ' Ici je souhaite avoir des multiples de 25
                End If
       End If
        
        If .Cells(dernLign, 2) = "D" Then
            .Cells(dernLign, 5).Value = NB * Cells(2, 12) / 1000
        
            If NB * Cells(2, 12) / 1000 = 0 Then
                .Cells(dernLign, 5).Value = 0
            End If
                If NB * Cells(2, 12) / 1000 <> 0 Then
                    .Cells(dernLign, 5).Value = 21 ' Ici je souhaite des multiples de 21
                End If
        End If

 

[soenda]

Re : Vba problème d'arrondi avec multiples

Bonjour le fil, Arpette

Quelques remarques sur le code qui pourront peut-être t'aider:

- Sachant qu'un TextBox contient une chaine de caractère (du texte),
- que TextBox.Value est équivalent à TextBox.Text
- et que la valeur par défaut d'un TextBox est la propriété Text, tu peux écrire

If TextBox8 = "" Then TextBox8 = "0"

- Maintenant imaginons que du fait d'une faute de frappe,
il y a un caractère non numérique dans le TextBox.
Dans ce cas, lorsque l'on essaiera de faire un calcul, il se produira une erreur.
D'ou la ligne suivante qui sort de la Sub

If Not IsNumeric(TextBox1) Then Exit Sub

- Puisque tu veux faire un calcul avec la cellule Cells(2, 12),
il est préférable de convertir le texte de TextBox8 en un nombre (ici Double)

 Cells(2, 12) = CDbl(TextBox8)

- Enfin tu peux remplacer les 18 lignes de test par les suivantes:
- Sachant que .Cells(dernLign, 2) ne doit contenir qu'un seul caractère en majuscule, compris entre "A" et "D",
tu peux utiliser le code ASCII du Caractère

If Len(Trim(.Cells(dernLign, 2))) = 1 Then X = Asc(UCase(Trim(.Cells(dernLign, 2))))

- Sachant que Asc("A") = 65 et Asc("D") = 68,
tes tests deviennent

If X >= 65 And X <= 68 Then
  X = IIf(X = 68, 21, 25)
  .Cells(dernLign, 5) = IIf(NB * Cells(2, 12) / 1000, X, 0)
End If

A plus

 

[YANN-56]

Re : Vba problème d'arrondi avec multiples

Bonsoir Arpette, soenda, et à ceux qui passeront par ici,

Je ne réponds que sur la recherche des multiples.
Au cas où cela puisse servir:

Un exemple joint.
(Ne pas oublier le "CDbl" pour le TextBox)

Amicalement

Yann