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

Calcul de nombre de jours dans un USF

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aubelix
  • 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 !

S'inscrire

aubelix

XLDnaute Impliqué
Bonjour à tous les amis du Forum.

Une question de syntaxe pour calculer le nombre de jours
entre la date du jour et des dates d'échéances dans un userform.
Et une couleur de police en fonction du nombre de jours restants.
Voir le fichier joint.

Par avance merci pour votre aide.
Cordialement.
 

Pièces jointes

Trier par date Trier par votes
Re : Calcul de nombre de jours dans un USF

Bonjour Catrice.

Merci pour ta réponse.
Pour le 1er, ça fonctionne, mais pour les autres, j'ai un message d'erreur:

erreur d'éxécution 13
incompatibilité de type.

Merci pour votre aide

Cordialement.
 
Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Re Catrice.

Le message d'erreur venait de dates vides dans mon fichier
de travail. J'ai contourné le problème par l'affichage de N/A.

Concernant le format conditionnel as-tu un idée ?
Et comment afficher un nombre entier. J'ai des 830,3 dans certains résultats
J'ai essayé de le formater, mais j'ai un message d'erreur.

Merci par avance.
Cordialement.
 
Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Bonjour à tous,

je viens d'essayer ça et ça marche chez moi...

Code: 
        'Jours restants par rapport Date du jour - Date Echéance1
        TxtBxECH1 = Int(CDate(TextBoxD_CH1.Text) - Date)
        'Jours restants par rapport Date du jour - Date Echéance2
        TxtBxECH2 = Int(CDate(TextBoxD_CH2.Text) - Date)
        'Jours restants par rapport Date du jour - Date Echéance2
        TxtBxECH3 = Int(CDate(TextBoxD_CH3.Text) - Date)
 
Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Re,

Je propose ce code (qui gere aussi les cellules vides pour eviter les NA) :

Private Sub ComboBox1_Change()
Dim cherch As String, derlign As Long
derlign = Sheets("DATA").Range("A65536").End(xlUp).Row
cherch = ComboBox1
Set cell = Sheets("DATA").Range("A2:A" & derlign).Find(cherch, lookAt:=xlWhole)
If Not cell Is Nothing Then

TextBoxD_CH1.Value = cell.Offset(0, 1)
TextBoxD_CH2.Value = cell.Offset(0, 2)
TextBoxD_CH3.Value = cell.Offset(0, 3)
If TextBoxD_CH1 <> "" Then
TxtBxECH1 = Round(CDate(TextBoxD_CH1) - Now)
TxtBxECH1.ForeColor = IIf(TxtBxECH1 < 30, &HFF00&, &HFF&)
Else
TxtBxECH1 = ""
End If
If TextBoxD_CH2 <> "" Then
TxtBxECH2 = Round(CDate(TextBoxD_CH2) - Now)
TxtBxECH2.ForeColor = IIf(TxtBxECH2 < 30, &HFF00&, &HFF&)
Else
TxtBxECH2 = ""
End If
If TextBoxD_CH3 <> "" Then
TxtBxECH3 = Round(CDate(TextBoxD_CH3) - Now)
TxtBxECH3.ForeColor = IIf(TxtBxECH3 < 30, &HFF00&, &HFF&)
Else
TxtBxECH3 = ""
End If
End If
End Sub

Voir le fichier joint
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Bonsoir tototiti2008 et Catrice.

Mille Mercis pour vos réponses.
Les problèmes sont résolus. 🙂
J'ai adapté vos réponses à mon projet.
Tout est est rentré dans l'ordre.

Je continue d'avancer grâce à vous tous.
Bonne soirée.
Cordialement.
 
Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Bonjour à tous les amis du Forum.

Je reviens vers vous pour savoir s'il était possible de poser
une troisième condition pour la couleur de police en fonction
du nombre de jours restants.

- si < 0 police en rouge (date dépassée)
- si > 0 et < 30 police en bleu
- si >= 30 police en vert

Merci pour votre aide.
Cordialement

Nota: pour votre info, le code de Catrice fonctionne
mais uniquement sur 2 conditions
 
Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Bonjour à tous les amis du Forum 🙂

Je reviens de nouveau vers vous pour améliorer mon projet.
J'ai ajouté des feux clignotants : rouges et verts.

J'aurais aîmé les afficher en fonction du nombre de jours restants.
Voir le fichier joint. Le chemin est C:\TEMP pour les GIF animés.

Afficher les feux verts clignotants si Nb jours restants >= à 45 jours
Afficher les feux rouges clignotants si Nb jours restants < à 45 jours

Merci pour votre aide.
Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Bonjour matinal à tous. 🙂

Je me permets de vous demander si quelqu'un peut me donner
un coup de mains à résoudre mon problème.

Par avance merci
Cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Calcul de nombre de jours dans un USF

Bonjour,

Ci-joint une solution un peu adaptée.

Soit le feu est vert soit il est rouge.
Au démarrage, les feux ne sont pas présents. Si une TextBox est vide => pas de feu.

J'ai modifié également la taille de l'objet WebBrowser dans les propriétés et dans le code.
33 = taille réelle et 28 pour que ça s'ajuste. C'est un peu tordu mais ça fontionne
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

H
  • Question Question
XL 2010 calcul du nombre de jours en fonction des dates
Réponses
8
Affichages
398
job75
D
  • Question Question
XL 2021 Tableau de chronologie
Réponses
4
Affichages
242
Did25
D
A
  • Question Question
XL 2013 Création de planning en 3x8 pour 11 agents
Réponses
0
Affichages
211
Atexide
A
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
298
Kristelle1555
K
B
  • Question Question
XL 2021 [Résolu] Date de départ et calcul des jours ouvrés
Réponses
4
Affichages
307
Bibinaire
B
M
  • Question Question
XL pour MAC Affichage de valeurs selon la date
Réponses
8
Affichages
398
Malko67
M
A
  • Question Question
XL 2013 Création d'un planning en 3x8 sur l'année 2026
2
Réponses
29
Affichages
1 K
Atexide
A
F
  • Question Question
Microsoft 365 Somme d'occurrence en fonction du lieu
Réponses
12
Affichages
431
gosselien
  • Question Question
XL 2019 nombres de jours entre deux articles identiques commandés
Réponses
3
Affichages
219
Hecatonchire
H
S
  • Résolu(e)
Microsoft 365 Calcul retard paiement en montant et nombre facture
Réponses
5
Affichages
440
Seydina
S
D
  • Question Question
Microsoft 365 Lecture de données Arduino dans un USF Excel
Réponses
3
Affichages
227
sylvanu
W
  • Question Question
Microsoft 365 compter le nombre d'articles expédiés un jour donné
Réponses
2
Affichages
293
Wilmouth Michel
W
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
293
sylvanu
M
  • Résolu(e)
Autres calcul de présence
Réponses
3
Affichages
306
micke32
M
  • Question Question
XL 2019 Nombre de jours entre deux dates
Réponses
7
Affichages
346
ThierryP
T
M
  • Résolu(e)
XL 2021 Tentatives de modifier aléatoirement l'ordre dans une colonne de cellules, le nombre de cellules concernées pouvant varier.
2 3 4
Réponses
57
Affichages
2 K
job75
B
  • Résolu(e)
Microsoft 365 Calcule durée moyenne : Formule et TCD
Réponses
6
Affichages
347
BSF
B
T
  • Résolu(e)
XL 2019 calcul Delta Date ( et A ou( B C D E ))
Réponses
4
Affichages
240
TooFatBoy
  • Résolu(e)
Microsoft 365 Calcul dates d'échéances rappel et probation avec condition
Réponses
5
Affichages
410
JHA
J
D
  • Résolu(e)
Microsoft 365 Modifier formule pour simplifier un calcule de date et comptage categories
2 3
Réponses
37
Affichages
1 K
Piment
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…