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.
 

Pièces jointes

  • Les Milles Merveilles.zip
    1.8 MB · Affichages: 146

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
 

Pièces jointes

  • Les Milles Merveilles.zip
    1.8 MB · Affichages: 131

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:

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
 

Pièces jointes

  • Les Milles Merveilles.xlsm
    214 KB · Affichages: 106

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.
 

Pièces jointes

  • Les Milles Merveilles.zip
    1.8 MB · Affichages: 103

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.
 

Pièces jointes

  • UsfVisualise.zip
    5.3 KB · Affichages: 131

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO