XL 2010 [Résolu] Afficher résultats par dates dans Listview

[Lone-wolf]

Bonjour à toutes et à tous 🙂

En PJ et dans le formulaire UsfGestionES, j'aissaie d'afficher par dates les entrées et les sorties des différents articles. Je ne sais pas se qui se passe, la listview n'affiche aucuns résultas malgré une recherche avec Find.

J'ai aussi un souci concernant le format Date dans les Combobox's, elles affichent le format "dd/mm/yyyy" et moi j'aimerais qu'elles soient au format "dd.mm.yyyy". Les feuilles sont "Entrees" et "Sorties" du classeur Base qui se trouve dans le sous-dossier.

Merci d'avance pour l'aide que vous apporterez.

 

[Lone-wolf]

Bonsoir René 🙂

Moi c'est Domenico, mais tu peux aussi m'appeller Dodo 😉 . Mais dans le premier code, ce n'est pas .Cells(2, 1) qu'il faut inscrire? Et que vient faire Accueil??? C'est Détails commandes non?

EDIT: on as tout faux, pour partir de la 2ème ligne c'est .Cells(0, 1).

EDIT 2: ooooouuuupppss! Donc, à partir de la feuille c'est .Cells(0, 1) et à partit du formulaire .Cells(1, 1).

 

[Bebere]

bonjour Dodo
c'est Lr qui donne la ligne et dans cette ligne cells(1,1) case 1,cells(1,2) case 2,etc
il n'y a pas de zéro dans une feuille
pour accueil c'est du côté feuille excel à côté de fichier,2ème ligne au-dessus

 

[Lone-wolf]

Bonjour René

pour accueil c'est du côté feuille excel à côté de fichier,2ème ligne au-dessus

Toujours pas compris, désolé 😳

 

[Bebere]

Dodo
pièce jointe

 

[Lone-wolf]

Hello René,

Pour les tableaux, c'est ce que j'avais prévu au tout début du projet. Je les avait créé pour toutes les feuilles. Mais je n'avait pas pensé à listobject. Et comme j'avais des problèmes avec le remplissage, j'ai tout supprimé.

 

[Lone-wolf]

Bonjour René 🙂

J'aimerais ajouter un filtre puis un aperçu des lignes visibles pour la feuille "Sauvegarde", et comme condition le nom du client. Vu que les données sont décalées, je ne sais pas comment l'appliquer. Tank you so much.

 

[Bebere]

bonjour Dodo,le forum
pour la dernière demande,tu parles d'un filtre dans la feuille ou dans un userform

pour le bouton enregistrer de usfcommande

Sub NomColStock() '1
    Dim DerL As Long

    Init_Feuilles 'mis pour essai

    DerL = WsDC.Range("c" & Rows.Count).End(xlUp).Row
    WsDC.Range("c2:c" & DerL).Name = "ColC" 'article
    WsDC.Range("d2:d" & DerL).Name = "ColD" 'q

End Sub

Sub UpdateStock()    '2
    Dim L As Long, DerL As Long
    Init_Feuilles    'mis pour essai

    With WsStock
        DerL = .Range("c" & Rows.Count).End(xlUp).Row
        tbl = .Range("A2:O" & DerL)

        For L = 1 To UBound(tbl)
            tbl(L, 9) = tbl(L, 9) - Evaluate("SumIf(colc,""" & tbl(i, 3) & """, cold)")
            tbl(i, 11) = tbl(i, 5) - tbl(i, 9)    '.Range("e" & x) - .Range("i" & x)
            '            If .Range("k" & x) <= 0 Then .Range("l" & x) = .Range("k" & x)
            If tbl(i, 11) <= 0 Then tbl(i, 12) = tbl(i, 11)
        Next x

        .Range("A2").Resize(UBound(tbl, 1), UBound(tbl, 2)) = tbl
    End With


End Sub    '.Range("i" & x)'.Range("k" & x)

 

[Lone-wolf]

Bonsoir René 🙂

Oui, c'est un filtre dans la feuille Sauvegarde. En ce moment, je suis entrain de refaire le projet. Dans la feuille Détails commandes j'ai déplacé la colonne date dans la colonne B. Dès que tout est OK, je remet le nouveau fichier.

A+

 

[Bebere]

bonjour Lone-wolf,le forum
explication dans feuille sauvegarde
bonne soirée

 

[Lone-wolf]

Bonjour Vené, désolé je suis tvès envhumé 😳

Il y a eu un malhentendu. Il s'agit bien de la feuille Sauvegarde, mais la macro est à utiliser dans un formulaire, encore une fois désolé. En PJ, les fichiers mis à jour. Plus de lenteur pour la prise de commande.

EDIT: là j'en reviens pas le fichier Base à lui seul fait plus de 3 Mo, et mon dossier complet d'après Windows 475Ko??? 😵

 

[Bebere]

bonsoir Lone-wolf
enregistre base en binaire(xlsb) il diminuera de moitié

 

[Lone-wolf]

Bonjour René 🙂

Je ne sais plus où donner de la tête avec le formulaire UsfModifCommandes, je pensais avoir résolu le problème, mais non. Ce matin en assayant de modifier les deux dernières lignes, j'ai vu que je me suis complètement planté. Impossible de les modifier. Tu veux bien regarder ce qui ne vas pas dans le code? Merci infiniment. 😳


Note: voici le dernier code que j'ai testé, mais sans résultats.

With WsDC
Set cel = .Columns("C").Find(CmbCommandes, , , xlWhole)
  If Not cel Is Nothing Then
cel.Offset(0, 1) = CmbArticles
Set cel = .Columns("D").Find(cel.Offset(0, 1), , , xlWhole)

    If MsgBox("Voulez-vous modifier cet enregistrement ?", vbYesNo, _
              "LES MILLES MERVEILLES") <> vbYes Then Exit Sub
    ligne = cel.Row
  Else
   Exit Sub
  End If
  .Range("d" & ligne) = CmbArticles
  .Range("e" & ligne) = Format(TxtQte, "0")
  .Range("f" & ligne) = Format(TxtPrix, "0.00")
  .Range("g" & ligne) = Format(Pourcent, "0%")
  .Range("h" & ligne) = Format(TxtDif, "0.00")
  .Range("i" & ligne) = Format(TxtMontant, "0.00")
  End With

 

[Bebere]

Dodo du calme,prend la colonne B

 

[Lone-wolf]

Re René

Je ne peux pas. Elle est déjà mariée LOL 😀

Trève de plaisenteries. Je ne comprends pas ce que tu veux dire par là. Vu que la plupart des lignes sont en doublons, que je prenne la B ou la F, je ne sais pas comment m'y prendre. 😳 Le dernier code que je viens de poster c'est le 5ème que je teste.

 

[Bebere]

dans le code plus haut .Columns("C").Find(CmbCommandes
n°commande est en B,à moins qu'il y a un autre problème
en C c'est l'article