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

ChTi160

XLDnaute Barbatruc
Bonjour Low-Wolf
Bonjour le fil,Le Forum

le problème des "MonthWiev" vient peut être du format de la date que tu veux y affecter
j'ai mis "Date" à la place de la date formatée du Control "DateCom"

VB:
DateCom = Format(Date, "dd.mm.yyyy")
Me.MonthView1 = Date
En espérant avoir fait avancer le Schimilimblick Lol
J ai constate d autres bugs toujours en rapport avec le format de tes dates"dd.mm.yyyy"
Je pense que tu devrais utiliser la propriete "Tag" des differents control TextBox ou tu sotckes tes dates
Ex: DateCom=Format(Date,"dd.mm.yyyy")
Et mettre DateCom.Tag=format(Date,"00000")
Et ainsi pour les differents control qui contiennent une Date
Bonne journée
Amicalement
Jean marie
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonjour Jean Marie :)

Comme je l'ai dit dans un précédent message, je suis en Suisse, et les paramètres par défaut des dates sont dd.mm.yyyy. Personellement, je n'ai pas ce problème avec

TextBox2 = Format(CDate(MonthView1), "dd.mm.yyyy")
TextBox3 = Format(CDate(MonthView1), "dd.mm.yyyy")

Il est clair que comme vous, vous êtes en France, il faut remplacer le point par le slash.
 

Lone-wolf

XLDnaute Barbatruc
Re à tous,

@ René: j'ai modifier certaines macros de l'UsfEtats. J'ai un souci de lenteur quand je clique sur Produits de la ListView1, pour alimenter la combobox4, pourtant j'ai bien un tableau; et aussi au clic, la sélection de la ligne se fait après quelques secondes. Ensuite pour voir l'aperçu, le classeur Data devient noir??? :eek:
 

Pièces jointes

  • Les Milles Merveilles-V12.zip
    360.2 KB · Affichages: 34

grisan29

XLDnaute Accro
bonsoir Lone-wolf, chti60 et le forum
chti60:) heureusement que ta locomotive n'est pas en panne car la mienne a oublier que notre ami est en suisse et rien que le fait de remplacer les . par / et cela a éteints les bugs d'où le classeur fonctionne bien, du moins l'essai fait sur la partie qui (bugglait) buggait trop vite
 

ChTi160

XLDnaute Barbatruc
Re
En utilisant la propriete "Tag" des divers controles , on y stocke la date sous forme long "00000" si c est possible pour Lone-Wolf, et ainsi quelque soit ton pays lol ca fonctionne.
Je suis dans le train donc pas excel ,mais je regarde cela demain
Bonne fin de soiree
Amicalement
Jean marie
 

Bebere

XLDnaute Barbatruc
bonjour Dodo,Grisan,Jean Marie
côté date déjà eut un échange avec Dodo,si la date est du texte,employé Cdate ou dateserial
pour ma part j'essaye d'utiliser le fichier comme Dodo,j'ai un problème avec monthview
qui vient de mscomtc2.ocx.Apparemment Microsoft met des versions anciennes
essais de plusieurs et aussi essai de réparation d'office
pour ma part office est en 32bits et le répertoire est c:>windows\systeme32 pour mscomtc2
fait aussi via la fenêtre exécuter la ligne de commande pour le régistre ,chaqu fois une erreur
où se niche la bonne version.J'utilise un datepicker fabrication artisanale et jamais de problème
Dodo je regarde ta demande
Un petit coup de sifflet pour démarrer la loco de Jean Marie.Petit est mieux qu'impératif

edit Dodo:mon dernier post était une réponse au code test que tu as mis
 

Bebere

XLDnaute Barbatruc
bonjourDodo,Grisan,Jean Marie
c'est la boucle qui rend du temps ,ce qui suit est plus rapide
ne pas oublier Dim a()
Code:
With WsStock
  tablo1 = .Range("c2:c" & .Range("c" & Rows.Count).End(xlUp).Row).Value
Set dico = CreateObject("Scripting.Dictionary")
For k = 1 To UBound(tablo1)
dico(tablo1(k, 1)) = tablo1(k, 1)
Next k
UsfEtats.ComboBox4.List = dico.Items
derlig = .Range("c" & Rows.Count).End(xlUp).Row
'For k = 2 To derlig
a = .Range("c2:c" & k): WsVentes.Range("b4").Resize(UBound(a, 1), UBound(a, 2)) = a
a = .Range("i2:i" & k): WsVentes.Range("c4").Resize(UBound(a, 1), UBound(a, 2)) = a
'Next k
'.Range("b2") = "Vente Mensuelle  " & Format(ComboBox3, "mmmm") & " " & ComboBox1.Value
End With
 

Lone-wolf

XLDnaute Barbatruc
Bonjour René :)

Merci, je vais l'inscrire. ;)

J'ai aussi un sérieux problème avec ceci, dans l'usfModCommandes bouton Modifier. Je n'est pas chercher dans les messages, si tu as apporté les modifications, sorry. :oops:

VB:
With WsDC
plg = .Range("c" & Rows.Count).End(xlDown).Row
Set plage = plg.Find(CmbCommandes, xlValues, xlWhole)
          If Not cel Is Nothing Then
              For Each cel In plage
           Set c = cel.Offset(0, 1).Find(CmbArticles, xlValues, xlWhole)
            If c.Offset(0, 1).Value = CmbArticles.Value Then Exit For
                Ligne = c.Offset(0, 1).Row
           Next cel
           Ligne = Ligne + 1
          End If
    If MsgBox("Voulez-vous modifier cet enregistrement ?", vbYesNo, _
              "LES MILLES MERVEILLES") <> vbYes Then Exit Sub
      .Cells(Ligne, 5) = Format(TxtQte, "0")
      .Cells(Ligne, 6) = Format(TxtPrix, "0.00")
      .Cells(Ligne, 7) = Format(Pourcent, "0%")
      .Cells(Ligne, 8) = Format(TxtDif, "0.00")
      .Cells(Ligne, 9) = Format(TxtMontant, "0.00")
  End With
 

Lone-wolf

XLDnaute Barbatruc
Re René

Je viens de faire un test avec ceci, et toujours pas de modifications.

VB:
With WsDC
For Each cel In .Range("c2:d" & .Range("d65536").End(xlUp).Row)
If cel.Offset(0, 0) = NCom And cel.Offset(0, 1) = Rart Then
      cel.Offset(0, 2) = Format(TxtQte, "0")
      cel.Offset(0, 3) = Format(TxtPrix, "0.00")
      cel.Offset(0, 4) = Format(Pourcent, "0%")
      cel.Offset(0, 5) = Format(TxtDif, "0.00")
      cel.Offset(0, 6) = Format(TxtMontant, "0.00")
    End If
    Next cel
  End With
 

Bebere

XLDnaute Barbatruc
Dodo
dans le classeur Les Mille Merveilles(21),il y a des changements
en rapport avec ton problème,autre solution avec une boucle for each plus rapide
Code:
    If MsgBox("Voulez-vous modifier cet enregistrement ?", vbYesNo, _
              "LES MILLES MERVEILLES") <> vbYes Then Exit Sub

    Total = CDbl(TxtPrix) * CDbl(TxtQte)
    'Montant = Total - Dif
    'Pourcent = Val(CmbRabais) / 100
    Dif = Total * (Val(CmbRabais) / 100)    'Pourcent
    Montant = Total - Dif

    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(Val(CmbRabais) / 100, "0%")
        .Range("h" & Ligne) = Format(TxtDif, "0.00")
        .Range("i" & Ligne) = Format(TxtMontant, "0.00")
    End With
edit:y a t'il quelqu'un qui pourrait m'envoyer mscomct2.ocx compatible office2010
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec