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

Lone-wolf

XLDnaute Barbatruc

• 20 Septembre 2016

• #76

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).

 

Dernière édition: 20 Septembre 2016

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 21 Septembre 2016

• #77

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Septembre 2016

• #78

Bonjour René

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

Cliquez pour agrandir...

Toujours pas compris, désolé 😳

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 21 Septembre 2016

• #79

Dodo
pièce jointe

 

Pièces jointes

• Capture d’écran (1).png

  155.7 KB · Affichages: 48

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Septembre 2016

• #80

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é.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Septembre 2016

• #81

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.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 23 Septembre 2016

• #82

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

Code:

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)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Septembre 2016

• #83

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+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 25 Septembre 2016

• #84

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

 

Pièces jointes

• Base.xlsm

  3.3 MB · Affichages: 46

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Septembre 2016

• #85

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??? 😵

 

Pièces jointes

• Les Milles Merveilles.zip

  443.9 KB · Affichages: 37

Dernière édition: 26 Septembre 2016

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 26 Septembre 2016

• #86

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Septembre 2016

• #87

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.

VB:

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 27 Septembre 2016

• #88

Dodo du calme,prend la colonne B

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Septembre 2016

• #89

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.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 27 Septembre 2016

• #90

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

 

Vote positif 0 Vote négatif