modif vba pour arrondir au chiffre superieur

[zumye]

bonjour le forum

j'ai ce vba :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target - Int(Target) > 0 Then
Target = Int(Target) + 1
End If
End If
End Sub

il me permet d'arrondir les chiffre de la colonne 7 au chiifre sup (ex3.2, il arrondit a 4)

mais je n'arrive pas a modifier ce vba pour qu'il arrondisse au dixieme sup (ex3.31 je voudrait 3.4)

j'ai changé +1 en 0.1 mais ca ne marche pas

quelqu'un a t il une idée?
merci

 

[wilfried_42]

Re : modif vba pour arrondir au chiffre superieur

Bonjour

essaye ca

If int(Target*10) - Int(Target*10) > 0 Then 
   Target = (Int(Target*10) + 1 )/10
End If

Edit : bonjour Pierrejean 🙂

 

[pierrejean]

Re : modif vba pour arrondir au chiffre superieur

bonjour zumye

Teste

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
  If Target * 10 - Int(Target * 10) > 0 Then
   Target = (Int(Target * 10) + 1) / 10
  End If
End If
End Sub

Salut Wilfried 🙂

Edit : plus rapide Wil mais.....

int(Target*10) - Int(Target*10) ça fait combien ???

 

[zumye]

Re : modif vba pour arrondir au chiffre superieur

BONJOUR
J ai donc rentré :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Int(Target * 10) - Int(Target * 10) > 0 Then
Target = (Int(Target * 10) + 1) / 10
End If
End If
End Sub

mais ca ne fais rien, ai-je une erreur?
merci

 

[pierrejean]

Re : modif vba pour arrondir au chiffre superieur

Re
Oui , verifie un tout petit peu plus haut

If Target * 10 - Int(Target * 10) > 0 Then

et non

If [COLOR=red]Int([/COLOR]Target * 10[COLOR=red]) [/COLOR]- Int(Target * 10) > 0 Then

reflechis a la question que j'ai posée a Wil

 

[zumye]

Re : modif vba pour arrondir au chiffre superieur

merci pierre jean ca marche tres bien

 

[zumye]

Re : modif vba pour arrondir au chiffre superieur

mais comment faire maintenant pour que ca marche sachant que le chiifre a arrondir est le resultat d'un calcul?
merci

 

[wilfried_42]

Re : modif vba pour arrondir au chiffre superieur

Re:

Tu as raison pierrejean, j'ai du mal à refflechir aujourd'hui, je rentre du boulot lol, je vais bientot aller me coucher

Merci pour la rectif

 

[zumye]

Re : modif vba pour arrondir au chiffre superieur

mais comment faire maintenant pour que ca marche sachant que le chiifre a arrondir est le resultat d'un calcul?
merci

 

[wilfried_42]

Re : modif vba pour arrondir au chiffre superieur

Re:

Pourquoi ne pas utiliser la formule normale et faire une macro ?

=ARRONDI.SUP(ta formule de calcul;1)

Si la fonction n'est pas connue, activer la bibliotheque Utilitaires d'analyse
Menu Outils / Macros complémentaire : Cocher la bibliotheque

 

[zumye]

Re : modif vba pour arrondir au chiffre superieur

ok merci ca fonctionne