XL 2010 filtre date pour tableau de données

[chakershaker]

Bonjour, j'utilise une formulaire pour effectuer la saisie de l'inventaire journalier dans la feuille inv.jour. Le problème c'est que si je charge le tableau par filtre date à l'aide de bouton modifier les données ne chargement pas. si et seulement si je modifie manuellement la date dans l'onglet inv.jour mais à partir du formulaire non. donc il s'agit de problème de format date je crois.
De plus, dans l'onglet corr.inv.jour et après modification je ne peux pas modifier les données pour la même raison.
quelqu'un pourrait m'aider svp.

 

[Rouge]

Bonjour,

Dans vos macros, remplacez:

If Application.CountIf(.Range("f:f"), CDate(TextBox1)) > 0 Then

par

If Application.CountIf(.Range("f:f"), CDate(TextBox1)) > 0 Then

C'est curieux parce qu'à certains endroits vous l'avez écrit correctement et d'autres non.

Cdlt

 

[chakershaker]

oui ca marche j'ai essayé avec la date 03/03/2021 par exemple. j'ai chargé le tableau avec le bouton modifier. mais après modification si j'appuis sur bouton modifier le message apparaît comme étant la date n'est pas trouvée

Voici le code de modification

Dim dat, tablo, I&
dat = [F3]
With Sheets("inv.jour")
    tablo = .Range("A1", .UsedRange).Resize(, 6) 'matrice, plus rapide
    For I = 1 To UBound(tablo) - 2
        If tablo(I, 6) = dat And tablo(I + 2, 1) = "Mois" Then Exit For
    Next
    If I = UBound(tablo) - 1 Then MsgBox "Date non trouvée !", 48: Exit Sub
    .Cells(I + 2, 1).CurrentRegion.EntireRow.Delete 'RAZ
    .Rows(I + 2).Resize([A5].CurrentRegion.Rows.Count).Insert 'insère des lignes vides
    [A5].CurrentRegion.EntireRow.Copy .Rows(I + 2) 'copier-coller
    .Visible = xlSheetVisible 'au cas où...
    Application.Goto .Cells(I, 1), True 'cadrage
    .Cells(I, 6).Select
End With
MsgBox "Modification effectuée", vbCritical

 

[Rouge]

Que cherchez-vous ici?
If tablo(I, 6) = dat And tablo(I + 2, 1) = "Mois" Then Exit For

 

[chakershaker]

Que cherchez-vous ici?
If tablo(I, 6) = dat And tablo(I + 2, 1) = "Mois" Then Exit For

je cherche la date selectionnée(cellule f3) dans la colonne 6 dans l'onglet" inv.jour" et ceci pour pouvoir modifier le tableau correspondant à cette date

 

[Rouge]

N'est-ce pas plutôt tablo(I, 1) à la place de tablo(I, 6)

 

[chakershaker]

OUI mais dans tablo(I, 6), "I" est une variable,
donc à la prochaine boucle ce sera quoi?

ah oui il faut modifier mois par date

 

[Rouge]

J'ai rectifié mon message entre temps

 

[chakershaker]

Merci beeaucoup, je crois que le problème est resolu