XL 2010 filtre date pour tableau de données

chakershaker · 24 Février 2021

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 · 24 Février 2021

Bonjour,

Dans vos macros, remplacez:

VB:

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

par

Code:

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

Rouge · 24 Février 2021

Bonjour,

Dans vos macros, remplacez:

VB:

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

par

Code:

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 · 24 Février 2021

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

VB:

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 · 24 Février 2021

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

chakershaker · 24 Février 2021

Rouge à dit:
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 · 24 Février 2021

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

chakershaker · 24 Février 2021

Rouge à dit:
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 · 24 Février 2021

J'ai rectifié mon message entre temps

chakershaker · 24 Février 2021

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

XL 2010 filtre date pour tableau de données

chakershaker

XLDnaute Junior

Pièces jointes

Rouge

Rouge

XLDnaute Impliqué

chakershaker

XLDnaute Junior

Pièces jointes

Rouge

XLDnaute Impliqué

chakershaker

XLDnaute Junior

Rouge

XLDnaute Impliqué

chakershaker

XLDnaute Junior

Rouge

XLDnaute Impliqué

chakershaker

XLDnaute Junior

Discussions similaires