modif vba pour arrondir au chiffre superieur

wilfried_42

XLDnaute Barbatruc

• 14 Mars 2008

• #2

Re : modif vba pour arrondir au chiffre superieur

Bonjour

essaye ca

Code:

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

Edit : bonjour Pierrejean 🙂

 

Dernière édition: 14 Mars 2008

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Mars 2008

• #3

Re : modif vba pour arrondir au chiffre superieur

bonjour zumye

Teste

Code:

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 ???

 

Dernière édition: 14 Mars 2008

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 14 Mars 2008

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Mars 2008

• #5

Re : modif vba pour arrondir au chiffre superieur

Re
Oui , verifie un tout petit peu plus haut

Code:

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

et non

Code:

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

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 14 Mars 2008

• #6

Re : modif vba pour arrondir au chiffre superieur

merci pierre jean ca marche tres bien

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 14 Mars 2008

• #7

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 14 Mars 2008

• #8

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

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 14 Mars 2008

• #9

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 14 Mars 2008

• #10

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

 

Vote positif 0 Vote négatif

Z

zumye

XLDnaute Occasionnel

• 14 Mars 2008

• #11

Re : modif vba pour arrondir au chiffre superieur

ok merci ca fonctionne

 

Vote positif 0 Vote négatif