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

XL 2021 arrondi nombre de jours

  • Initiateur de la discussion Initiateur de la discussion Did25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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)
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 :
VB:
Val_Temp = Application.RoundUp(Jours * 1.2, 0)
 
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

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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
45
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
213
Réponses
4
Affichages
332
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
481
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…