Microsoft 365 Problème de date

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion PORCHER
  • 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
PORCHER

PORCHER

XLDnaute Occasionnel
Bonjour à tous, Je fais appel à vous pour résoudre mon problème : Je souhaiterais afficher dans un TextBox (TxtDateProchainCT) la date du prochain contrôle.
dans le TextBox il affiche 29/10/1900, c'est incohérent. Voici ci dessous la macro
Pourriez vous m'aider, merci

VB: 
Private Sub CalculValid2()
 Dim dtAujourdhui As Date
 Dim dtAutreDate As Date
 Dim Formule As Integer
 
 On Error Resume Next
    dtAutreDate = CDate(UF_Interventions.TxtDateContrôleTech.Value)
    dtAujourdhui = Now()
 On Error GoTo 0
 
 If dtAujourdhui <= dtAutreDate Then
    zv_Msg = MsgBox("La date de fin ne peut pas être antérieure à la date de début ...", 48, vb_Cprht & " - " & vs_Ori & " - Erreur")
    Exit Sub
End If

If dtAutreDate <= dtAujourdhui Then
   Formule = Day(DateSerial(Year(dtAutreDate), Month(dtAutreDate) + 24, 1) - 1)
   UF_Interventions.TxtDateProchainCT.Text = Formule
   UF_Interventions.LbSuiviPriorite1.BackColor = &HFF&  'rouge
Else: UF_Interventions.LbSuiviPriorite1.BackColor = &HFF00&: End If

If TxtDerniereVidange.Value <= dtAujourdhui Then
    UF_Interventions.LbSuiviPriorite2.BackColor = &HFF&  'rouge
    Else: UF_Interventions.LbSuiviPriorite2.BackColor = &HFF00&: End If
   
If TxtDateCourroie.Value <= dtAujourdhui Then
    UF_Interventions.LbSuiviPriorite3.BackColor = &HFF& 'Rouge
    Else: UF_Interventions.LbSuiviPriorite3.BackColor = &HFF00&: End If

End Sub
 
Trier par date Trier par votes
PORCHER à dit:
Bonjour à tous, Je fais appel à vous pour résoudre mon problème : Je souhaiterais afficher dans un TextBox (TxtDateProchainCT) la date du prochain contrôle.
dans le TextBox il affiche 29/10/1900, c'est incohérent. Voici ci dessous la macro
Pourriez vous m'aider, merci

VB: 
Private Sub CalculValid2()
 Dim dtAujourdhui As Date
 Dim dtAutreDate As Date
 Dim Formule As Integer
 
 On Error Resume Next
    dtAutreDate = CDate(UF_Interventions.TxtDateContrôleTech.Value)
    dtAujourdhui = Now()
 On Error GoTo 0
 
 If dtAujourdhui <= dtAutreDate Then
    zv_Msg = MsgBox("La date de fin ne peut pas être antérieure à la date de début ...", 48, vb_Cprht & " - " & vs_Ori & " - Erreur")
    Exit Sub
End If

If dtAutreDate <= dtAujourdhui Then
   Formule = Day(DateSerial(Year(dtAutreDate), Month(dtAutreDate) + 24, 1) - 1)
   UF_Interventions.TxtDateProchainCT.Text = Formule
   UF_Interventions.LbSuiviPriorite1.BackColor = &HFF&  'rouge
Else: UF_Interventions.LbSuiviPriorite1.BackColor = &HFF00&: End If

If TxtDerniereVidange.Value <= dtAujourdhui Then
    UF_Interventions.LbSuiviPriorite2.BackColor = &HFF&  'rouge
    Else: UF_Interventions.LbSuiviPriorite2.BackColor = &HFF00&: End If
  
If TxtDateCourroie.Value <= dtAujourdhui Then
    UF_Interventions.LbSuiviPriorite3.BackColor = &HFF& 'Rouge
    Else: UF_Interventions.LbSuiviPriorite3.BackColor = &HFF00&: End If

End Sub
Cliquez pour agrandir...
VB: 
Private Sub CalculValid2()
    Dim dtAujourdhui As Date
    Dim dtAutreDate As Date
    Dim dtProchainCT As Date
    
    On Error Resume Next
        dtAutreDate = CDate(UF_Interventions.TxtDateContrôleTech.Value)
        dtAujourdhui = Now()
    On Error GoTo 0

    If dtAujourdhui <= dtAutreDate Then
        MsgBox "La date de fin ne peut pas être antérieure à la date de début ...", 48, "Erreur"
        Exit Sub
    End If

    If dtAutreDate <= dtAujourdhui Then
        ' Ajouter 2 ans (24 mois) à la date du dernier contrôle
        dtProchainCT = DateAdd("m", 24, dtAutreDate)
        UF_Interventions.TxtDateProchainCT.Text = Format(dtProchainCT, "dd/mm/yyyy")
        UF_Interventions.LbSuiviPriorite1.BackColor = &HFF&  ' rouge
    Else
        UF_Interventions.LbSuiviPriorite1.BackColor = &HFF00& ' vert
    End If

    If CDate(TxtDerniereVidange.Value) <= dtAujourdhui Then
        UF_Interventions.LbSuiviPriorite2.BackColor = &HFF& ' rouge
    Else
        UF_Interventions.LbSuiviPriorite2.BackColor = &HFF00& ' vert
    End If

    If CDate(TxtDateCourroie.Value) <= dtAujourdhui Then
        UF_Interventions.LbSuiviPriorite3.BackColor = &HFF& ' rouge
    Else
        UF_Interventions.LbSuiviPriorite3.BackColor = &HFF00& ' vert
    End If
End Sub
 
Vote positif 0 Vote négatif
halecs93 à dit:
VB: 
Private Sub CalculValid2()
    Dim dtAujourdhui As Date
    Dim dtAutreDate As Date
    Dim dtProchainCT As Date
   
    On Error Resume Next
        dtAutreDate = CDate(UF_Interventions.TxtDateContrôleTech.Value)
        dtAujourdhui = Now()
    On Error GoTo 0

    If dtAujourdhui <= dtAutreDate Then
        MsgBox "La date de fin ne peut pas être antérieure à la date de début ...", 48, "Erreur"
        Exit Sub
    End If

    If dtAutreDate <= dtAujourdhui Then
        ' Ajouter 2 ans (24 mois) à la date du dernier contrôle
        dtProchainCT = DateAdd("m", 24, dtAutreDate)
        UF_Interventions.TxtDateProchainCT.Text = Format(dtProchainCT, "dd/mm/yyyy")
        UF_Interventions.LbSuiviPriorite1.BackColor = &HFF&  ' rouge
    Else
        UF_Interventions.LbSuiviPriorite1.BackColor = &HFF00& ' vert
    End If

    If CDate(TxtDerniereVidange.Value) <= dtAujourdhui Then
        UF_Interventions.LbSuiviPriorite2.BackColor = &HFF& ' rouge
    Else
        UF_Interventions.LbSuiviPriorite2.BackColor = &HFF00& ' vert
    End If

    If CDate(TxtDateCourroie.Value) <= dtAujourdhui Then
        UF_Interventions.LbSuiviPriorite3.BackColor = &HFF& ' rouge
    Else
        UF_Interventions.LbSuiviPriorite3.BackColor = &HFF00& ' vert
    End If
End Sub
Cliquez pour agrandir...
Merci halecs93, problème résolu. La macro fonctionne parfaitement. Merci, Merci
 
Vote positif 0 Vote négatif
Bonsoir le Fil
sans fichier , pas facile ......
j'ai modifié ainsi !
VB: 
Private Sub CommandButton1_Click()
    Dim dtAujourdhui As Date
    Dim dtAutreDate As Date
    Dim dtProchainCT As Date
With UF_Interventions
    On Error Resume Next
          dtAutreDate = CDate(.TxtDateContrôleTech.Value)
    ' Ajouter 2 ans (24 mois) à la date du dernier contrôle
        dtProchainCT = DateAdd("m", 24, dtAutreDate)
        dtAujourdhui = Date
    On Error GoTo 0

    If dtAujourdhui <= dtAutreDate Then
        MsgBox "La date de fin ne peut pas être antérieure à la date de début ...", 48, "Erreur"
        Exit Sub
    End If  
           .TxtDateProchainCT.Text = IIf(dtAutreDate <= dtAujourdhui, Format(dtProchainCT, "dd/mm/yyyy"), dtAutreDate)
      
           .LbSuiviPriorite1.BackColor = IIf(dtAutreDate <= dtAujourdhui, &HFF&, &HFF00&) '  rouge ou vert
           .LbSuiviPriorite2.BackColor = IIf(CDate(.TxtDerniereVidange.Value) <= dtAujourdhui, &HFF&, &HFF00&) ' rouge ou vert
           .LbSuiviPriorite3.BackColor = IIf(CDate(.TxtDateCourroie.Value) <= dtAujourdhui, &HFF&, &HFF00&) ' rouge ou vert
End With
End Sub
Bonne fin de Soirée
Jean Marie
 
Vote positif 0 Vote négatif
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

patricktoulon
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
Usine à gaz
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
494
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
237
nabilexcel2007
N
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
696
TooFatBoy
TooFatBoy
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
596
fanch55
fanch55
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
668
Oneida
Oneida
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
R1-
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
307
R1-
R1-
Chaton77
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
513
Chaton77
Chaton77
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
2 K
Mody200
M
D
  • Question Question
Fond textbox si date du jour
Réponses
12
Affichages
689
gbinforme
G
PORCHER
  • Question Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
413
Dranreb
Dranreb
petitbuzuc
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
764
fanch55
fanch55
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
668
arnoldbrice19
A
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
623
ChTi160
ChTi160
T
  • Question Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
454
sylvanu
sylvanu
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
805
Excellearning
E
L
  • Résolu(e)
XL 2019 Formulaire Excel - TxtBox avec couleur de la celle associée
Réponses
4
Affichages
724
Lindsay_RBD
L
cathodique
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
patricktoulon
Retour