Inversion de dates

cp4

XLDnaute Barbatruc

• 19 Février 2018

• #16

Staple1600 à dit:

Re

Madame leti
Vous croyez qu'à 23h et des brouettes, je me préoccupe de rapidité !
Non seul m'importe de retrouver mon pyjama en pilou et ma tite couette.

Cliquez pour agrandir...

Là, tu as raison. On va tous se coucher. Bonne nuit et de beaux rêves.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 19 Février 2018

• #17

re 🙂

demoiselle 🙂 & no madame pour l'instant😛😛
seulement pour te taquiner l'ami😀😀

moi aussi aller me coucher lever tot demain salut cp4😉

 

Dernière édition: 19 Février 2018

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 19 Février 2018

• #18

Bonjour cp4
Bonjour le Fil , le Forum
Pour participer pendant que vous récupérez Lol
tu dis :
Quand

VB:

 j= 1 ----> d.item(t(1,1) = cells(2,1) ' là pas compris 1ère ligne de t on prend 2ème ligne feuille?

soit :

Cells(2,1)= Cells(J+1,1)

Cliquez pour agrandir...

J+1 pour prendre la Deuxième Ligne de la Colonne A ou se trouve la première Date .
en espérant avoir compris la question Lol
Bonne fin de Nuit LOL
Amicalement
Jean marie

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 19 Février 2018

• #19

Bon_jour

Pour l'erreur signalée par l'image, cp4, ton 'VBA' a dû subir comme parfois, une modification.

En supprimant ton code et en le remplaçant par

VB:

Private Sub CommandButton1_Click()
'Dim D
Set d = CreateObject("Scripting.Dictionary")
  For Each C In [A2:A13]: d(C.Value2) = "": Next
  [D2:D13] = ""
  [D2].Resize(d.Count) = Application.Transpose(d.keys)
  [D2].Resize(d.Count).NumberFormat = "m/d/yyyy"  'si la colonne n'est pas formatée
End Sub

il n'y a plus, chez moi, d'erreur décelée sauf dans certains cas avec la transposition (problème connu n'est-ce pas Léti 🙂, JM 1 😉, JM 2 😉?).

On peut alors passer par un filtre avancé

VB:

Private Sub CommandButton2_Click()
  [F2:F13] = ""
  [A2:A13].AdvancedFilter 2, , [F2], 1
End Sub

mais la vitesse d'exécution peut s'en ressentir.

Nota : Dim D est un passe-partout (avec Option Explicit) que j'utilise quand j'ai les doigts engourdis.

 

Pièces jointes

• Dico Filtre Dates.xlsm

  21.8 KB · Affichages: 27

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 19 Février 2018

• #20

Merci à vous, très gentil de votre part (@ChTi160).

Bonne semaine.

 

Dernière édition: 20 Février 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Février 2018

• #21

Bonjour le fil, le forum

MADAME Leti 😉
J'y peux rien , j'y suis obligé 😉

Sinon, personne pour éclairer ma lanterne sur mon questionnement du message#12, svp ?

ChTi160 a répondu à ta question cp4 😉
(qu'il en soit remercié)
Je confirme: le décalage c'est à cause de Dates en A1 (qui n'est pas une date 😉

Si...: Même question:
Why d(C.Value2) = "" ?

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 19 Février 2018

• #22

bonsoir tous🙂

MADAME Leti😡😡😡 😉 a plusieurs explications possible dans ce cas de figure

code test on remarque beaucoup de chose intére.....

VB:

Sub es()
Dim d As Object,a,b,i as long
Set d = CreateObject("scripting.dictionary")
For Each C In [A2:A13]
d(C.Value) = C.Offset(, 1).Value2
'd(C.Value2) = C.Offset(, 1).Value2
'd(C.Value) = ""
Next C
     a = d.keys: b = d.items
   For i = 0 To d.Count - 1
   MsgBox a(i)
   MsgBox b(i)
   Next i
d.RemoveAll
End Sub

que remarque col b vide mais pas d'importance!!!

d(C.Value) = C.Offset(, 1).Value2

d(C.Value) avec offset ou pas ..... chargera quand meme le dico. keys .....items vide col2 vide
bien sur sans offset d(C.Value) = ""

msgbox a(i) nous avons no clés & pas d'inversion de date avant transpose
MsgBox b(i) vide
on peut confirmer que c'est transpose qui fout le ca..
.
dans le cas 2

d(C.Value2) = C.Offset(, 1).Value2
d(C.Value2) = ""

msgbox a(i) nous avons no clés mais sous forme standard..... chiffre
puis transpose en date

le mieux eviter d' utiliser transpose surtout depuis 2007 limitation ect..

voila🙂 voilou🙂

d(C.Value2) = d(C.Value2) + 1 idem d(C.Value2)=""

 

Dernière édition: 19 Février 2018

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 20 Février 2018

• #23

Bonjour,😀😀😀

Je constate suite à cette discussion très instructive que encore beaucoup de choses à apprendre en VBA et même Excel. Je ne me suis pas encore habitué à utiliser les tableaux vba et les dictionnaires, que je me trouve confronter à cette histoire de dates. Quelle chance, ils ont les anglophones, un souci en moins.

Merci à vous pour toutes vos explications et votre patience.

Bonne journée😎

 

Vote positif 0 Vote négatif