Probleme comparaison date VBA

  • Initiateur de la discussion Initiateur de la discussion isaray
  • 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 !

isaray

XLDnaute Nouveau
Bonjour à tous !

Voici mon souci :

Sachant que Trim(Cells(i, 1).Value) renvoie la valeur 02/05/2008
et que Trim(date_fin.Value) renvoie la valeur 04/04/2008

pourquoi il m'affiche la ligne ???


Code:
 If Trim(date_debut.Value) < Trim(date_fin.Value) Then
        
        For i = 7 To colA 
        
        MsgBox (Trim(Cells(i, 1).Value))

        If Trim(Cells(i, 1).Value) <= Trim(date_fin.Value) Then
   
        Rows(i).Hidden = False 'Affiche la ligne de la date selectionnée
        
        End If
        
        Next i
        
      Else: MsgBox ("Les dates sélectionnées ne sont pas valides")
      
      End If

Merci d'avance ! Bonne journée 🙂
 
Re : Probleme comparaison date VBA

La fonction Trim enlève les espaces inutiles, cela me permet de récupérer la date en format jj/mm/aaaa sans être embéter.

Voici la procédure entière :

Code:
Private Sub Filtre_date_Click()

Dim colA, i 'Création des variables

colA = 65000 'initialisation
i = 7 

Rows(i & ":" & colA).Hidden = True 'Effacement des lignes

If Trim(date_debut.Value) = Trim(date_fin.Value) Then 'on a selectionné qu'une seule journée

   For i = 7 To colA

   If Trim(Cells(i, 1).Value) = Trim(date_debut.Value) Then
   
   Rows(i).Hidden = False 'Affiche la ligne de la date selectionnée
   
   End If

   Next i
   
   Else
      If Trim(date_debut.Value) < Trim(date_fin.Value) Then
        
        For i = 7 To colA 
        
        MsgBox (Trim(Cells(i, 1).Value))

        If Trim(Cells(i, 1).Value) <= Trim(date_fin.Value) Then
   
        Rows(i).Hidden = False 'Affiche la ligne de la date selectionnée
        
        End If
        
        Next i
        
      Else: MsgBox ("Les dates sélectionnées ne sont pas valides")
      
      End If
 
 End If
 
 Date_seule.Hide
 
 Range("A6").Select 'positionner le curseur en A6
  
End Sub

Oualou...
 
Re : Probleme comparaison date VBA

Bonjour

je suppose que tes date_debut et date_fin sont des textbox

Alors il faut bien comprendre qu'il s'agit de texte

Il faut donc utiliser cdate(date_debut) et cdate(date_fin) pour bien lire des dates dans tes textbox
 
- 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
Microsoft 365 Export données
Réponses
4
Affichages
481
Réponses
2
Affichages
370
Retour