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

format de dates

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

T

toinish

Guest
bonjour,
a l aide d une macro je souhaite comparer des dates contenues dans un tableau avec des dates saisies a l aide de combobox (1 pour le jour, 1 pour le mois et 1 pour l annee)
pour assembler cette valeur (appelée opdf) j utilise la fonction suivante:

Dim opdf As Date
opdf = ComboBox5.Value & '-' & ComboBox6.Value & '-' & ComboBox7.Value

les test comparent les valeur du tableau avec cette valeur

2 types de valeurs dans le tableau au format:
- JJ/MM/AAAA HH:mm:ss
- et JJ/MM/AAAA

je n arrive pas a comparer dans un cas comme dans l autre!!
Merci d avance pour les merveilleuses reponses que vous allez m apporter!!
 
Bonjour

j'aurais plutot mis

opdf = ComboBox5.Value & '/' & ComboBox6.Value & '/' & ComboBox7.Value

voir
opdf = cdate(ComboBox5.Value & '/' & ComboBox6.Value & '/' & ComboBox7.Value)

Bon courage
 
ca ne marche pas non plus pas d erreur mais mon filtre ne fonctionne pas voici le test en entier si qque chose te choque n hesite pas!

If CheckBox6.Value = True Then
cldf = CDate('1/' & ComboBox19.Value & '/' & ComboBox10.Value)
cldt = CDate('1/' & ComboBox14.Value & '/' & ComboBox15.Value)


Sheets('data').Activate
Sheets('data').Visible = True
last = Range('A65536').End(xlUp).Row
For n = last To 6 Step -1
If Cells(n, 6).Value cldt Then
Cells(n, 6).EntireRow.Hidden = True
End If
Next n

End If
 
en preparant un exemple je me suis rendu compte que celui ci fonctionnait
va comprendre.... il me reste a trouver pourquoi dans mon fichier principal ca ne marche pas
!!!!

merci quand meme!
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
994
Réponses
9
Affichages
2 K
D
Réponses
20
Affichages
4 K
Débutant79
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…