Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 arrondi nombre de jours

Did25

XLDnaute Occasionnel
Bonjour le forum XLD ,je remet en service un fichier de calcul de jours de travail qui à été fait en grande partie par les intervenants de ce forum ,et je souhaite le modifier notamment dans la formule ci-dessous je souhaite que le calcul de jours soit arrondi au chiffre supérieur , merci de votre aide

'Placement des Congés
If Jours > 0 Then
Val_Temp = (Jours * 1.2)
Reste_Jours = Val_Temp
Set Date_en_Cours2 = Nothing
For Compteur = 0 To 10000
If Not Date_en_Cours.Offset(-Compteur, 1).Value = 1 Then
Val_Temp = Val_Temp - 1
End If
If Day(Date_en_Cours.Offset(-Compteur, 0).Value) = 1 Then
Set Date_en_Cours2 = Date_en_Cours.Offset(-Compteur, 0)
Reste_Jours = Val_Temp
End If
If Val_Temp = 0 Then Exit For
Next Compteur
If Not Date_en_Cours2 Is Nothing Then
Do
If Not Date_en_Cours.Offset(0, 1).Value = 0 Then Date_en_Cours.Offset(0, 2).Value = "Congés"
Set Date_en_Cours = Date_en_Cours.Offset(-1, 0)
Loop Until Date_en_Cours.Value = Date_en_Cours2.Offset(-1, 0).Value
End If
 
Solution
Alors essayez d'appliquer RoundUp à la bonne formule avec :
VB:
f1.Range("E10").FormulaR1C1 = Application.RoundUp(Congés3 * 1.56, 0)
Petite question : Pourquoi mettre en E10 un FormulaR1C1 alors qu'on y met une valeur ?
Pourquoi ne pas mettre simplement :
VB:
f1.Range("E10") = Application.RoundUp(Congés3 * 1.56, 0)

Did25

XLDnaute Occasionnel
Bonjour Sylvanu en effet c'est plus facile avec le fichier ,j'ai testé ça ne fonctionne pas ,j'ai modifier mon fichier ,ce que je cherche à obtenir ,c'est le calcul "congés3" ,il est multiplié par 1,56 et je souhaite que le résultat retranscrit en E10 sur la feuille de calcul soit arrondi systématiquement a l'unité supérieur quel que soit le résultat .Merci de votre aide
 

Pièces jointes

  • Fichier de calcul .xlsm
    526.5 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Alors essayez d'appliquer RoundUp à la bonne formule avec :
VB:
f1.Range("E10").FormulaR1C1 = Application.RoundUp(Congés3 * 1.56, 0)
Petite question : Pourquoi mettre en E10 un FormulaR1C1 alors qu'on y met une valeur ?
Pourquoi ne pas mettre simplement :
VB:
f1.Range("E10") = Application.RoundUp(Congés3 * 1.56, 0)
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…