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

Lone-wolf

XLDnaute Barbatruc
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.
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Rebonjour,

désolé, j'ai parlé trop vite :oops:

Pour les entrées je pense que c'est ok. Mais pour les sorties, il manque la macro pour comptabiliser le même article sorti à la même date et je ne sais pas comment m'y prendre.

par exemple: Pantalon jeans, Homme, Taille 38 - Date sortie le 22.05.2016 - Nombre Total = 10
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Bonjour à toutes et à tous

Désolé de vous ennuier avec ça, mais sincèrement je n'y arrive pas. Si quelqu'un peux m'aider sur la demande en post #3, même avec une formule, ça serait sympa.
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir à toutes et à tous. :)

Et bien... c'était temps. Mais auparavant, il a fallu modifier les colonnes dates qui causaient problèmes. Et le code est à adapter bienentendu.

Pour celles ou ceux qui seraient interéssés voici le code. Fonction SOMME.SI.ENS transposée en VBA.

VB:
Sub SommeParDates()
Dim jours As Range, article As Range, qte As Range,  lig%,  total
With Feuil1
Set jours = .Range("i2:i65536")
Set article = .Range("c2:c65536")
Set qte = .Range("d2:d65536")
End With

With Feuil2
lig = .Range("a65536").End(xlUp).Row + 1

.Cells(lig, 1) = lig - 1
.Cells(lig, 2) = Format(Feuil1.Cells(lig, 9), "dd.mm.yyyy")
.Cells(lig, 3) = Feuil1.Cells(lig, 3)
total = Application.SumIfs(qte, jours, .Cells(lig, 2), article, .Cells(lig, 3))
.Cells(lig, 4) = total
End With
End Sub

Private Sub ComboBox1_Click()
Call Sorties
End Sub

Private Sub Sorties()
Dim sItem As ListItem, cel As Range, premaddress
Application.ScreenUpdating = False
With Me.ListView1.ColumnHeaders
.Clear
.Add , , "Date", 1
.Add , , "Articles", 195
.Add , , "Sorties", 50, fmAlignmentRight
End With

On Error Resume Next
ListView1.ListItems.Clear
With Feuil2.Range("b2:b65536")
Set cel = .Find(ComboBox1, , xlValues)
   If Not cel Is Nothing Then
   premaddress = cel.Address
   Do
        Set sItem = ListView1.ListItems.Add(Text:=cel.Offset(0, 0))
          sItem.SubItems(1) = cel.Offset(0, 1)
         sItem.SubItems(2) = cel.Offset(0, 2)
    Set cel = .FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> premaddress
      End If
  End With
End Sub

'----------------------------------------------------------
'Et pour supprimer les doublons; à mettre dans un module standard

Option Explicit

Sub Suppr_Doublons()
Dim m As Object, i As Long, z As Variant, sh As Worksheet
Set sh = Feuil2
With sh
  Set m = CreateObject("Scripting.Dictionary")
  For i = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
  z = .Cells(i, 2) & .Cells(i, 3)
  If Not m.Exists(z) Then m.Add z, z Else .Rows(i).Delete
  Next i
  End With
End Sub
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonjour Bebere :)

et bien, ça faisait un petit moment n'est-ce pas?

Je vais l'adapter à mon dernier fichier que j'ai modifié depuis. Merci encore pour ta collaboration sur mon projet.

Mes amitiés

Lone-wolf :cool:
 

Bebere

XLDnaute Barbatruc
Oui Lone-wolf je t'ai un peu perdu de vue
j'ai oublié de te transmettre un fichier que je joins
concerne usfstock ,code principal dans module1 basé sur dictionary (en rapidité imbattable)
le code fait un tableau d'index lignes qui sert dans usfstock
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Re Bebere,

je t'avoue que je suis un peu perdu. la macro ListeFournCat est à mettre avec la combo catégories?? Et elle remplace la macro Liste_Categories??
 

Bebere

XLDnaute Barbatruc
oui Lone-wolf
je regarde si c'est la dernière version ou si j'en trouve une plus complète
eut problèmes avec pc,peut être perdu la dernière version
autrement je complète cette version
en principe je voulais faire une cascade cmbcat qui initialise cmbfrn et fournisseur la listbox
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Bebere,

en PJ le fichier avec les modifications du formulaire UsfVisualise (ancien UsfGestionES) + ajout de code pour les feuilles Stock et Sorties dans le formulaire UsfModCommandes.
 

Fichiers joints

Bebere

XLDnaute Barbatruc
bonjour Lone-wolf,le forum
Je complète le fichier envoyé que je t'ai envoyé
pas retrouvé la dernière version?
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir Bebere,

pas retrouvé la dernière version? que veux-tu dire par là?? Si c'est le fichier où il y a la macro pour la combo catégories, je ne c'est pas comment l'adapter, je ne vois pas de feuille de référence dans celle-ci. En PJ juste le formulaire UsfVisualise avec ajout d'une listbox pour voir les produits non vendus.
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Bonjour Bebere,

je viens de faire un copier-coller de tous les codes de UsfStock dans mon dernier fichier et j'ai ce message d'erreurerreur.gif

Tu voudrais bien faire un test sur mon dernier fichier? Sur celui que tu as mis, je n'ai pas d'erreur.
 

Fichiers joints

ChTi160

XLDnaute Barbatruc
Bonjour Lone-Wolf
Bonjour Le Fil , Le Forum

je suis ce fil , ne pourrais tu nous dire a quel moment de l'utilisation de Ton projet , tu as l' affichage de ce Message
moi je n'ai encore rien trouvé Lol , lors de mes essais .
Bonne Journée
Amicalement
Jean Marie
 

Lone-wolf

XLDnaute Barbatruc
Bien le bonjour Jean Marie :)

C'est lorsque je fais un changement avec la combobox fournisseurs. Et là je ne comprends pas pourquoi toi tu n'as pas d'erreur vus qu'on as la même version Excel. Pourrais-tu faire un test sur ce fichier?
 

Fichiers joints


Haut Bas