XL 2021 arrondi nombre de jours

[Did25]

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

 

[sylvanu]

Bonjour Did,
Sans fichier pour tester, difficile d'être affirmatif.
Si c'est la valeur de Val_Temp que vous voulez arrondir au jour supérieur, alors faites :

Val_Temp = Application.RoundUp(Jours * 1.2, 0)

 

[Did25]

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

 

[sylvanu]

Alors essayez d'appliquer RoundUp à la bonne formule avec :

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 :

f1.Range("E10") = Application.RoundUp(Congés3 * 1.56, 0)

 

[Did25]

En effet je n'avait pas penser à la dernière solution ,efficace et rapide ,bravo et merci
Joyeux Noël et bonnes fêtes de fin d'année

 

[sylvanu]

Impec.
On met en vert la bonne solution, ou on ne met pas de vert du tout.
Le post en vert remonte juste après votre demande pour guider le futur lecteur directement vers la bonne solution en appuyant sur "Voir le message dans son contexte" ).
( un ex : https://excel-downloads.com/threads/format-textbox-dynamique.20080443/#post-20622755 )
Donc le mieux est de supprimer ce vert pour lever toute ambiguïté.

 

[Did25]

Oups c'est corrigé Dsl