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.

 

[ChTi160]

Bonsoir Lone-wolf
Bonsoir le Fil,Le Forum
c'est comme ceux ci

object.Add(index, key, text, width, alignment, icon

c'est la propriété "alignment" juste après la largeur de la Colonne
ColumnHeaders est l'objet

.ColumnHeaders.Add , , cel.Offset(0, i - 1), Width:=cel.Offset(0, i - 1).Columns.Width , Alignment:=(0,1 ou 2)

un lien : Ce lien n'existe plus
Ps : dans quel Userform est cette procédure ??????
une approche en aveugle Lol

Dim LValeur as Byte
For i = 1 To nbcol
LValeur = IIf(IsDate(cel.Offset(0, i - 1)) Or IsNumeric(cel.Offset(0, i - 1)), 2, 0)
.ColumnHeaders.Add , , cel.Offset(0, i - 1), Width:=cel.Offset(0, i - 1).Columns.Width ,
Alignment:=LValeur
Next i

Bonne fin de Journée
Amicalement
Jean Marie

 

[Lone-wolf]

Bonsoir Jean Marie

C'est UsfInventaire. Merci pour la soluce

Très bonne nuit et... Amicalement Votre

Edit: désolé, toujours pas ça.

 

[Bebere]

bonjour
pas vu de usfinventaire
à tester
For i = 1 To nbcol
Select Case 1
Case 5 To 13, 15
.ColumnHeaders.Add , , cel.Offset(0, i - 1), Width:=cel.Offset(0, i - 1).Columns.Width, Alignment:=fmAlignmentRight

Case Else
.ColumnHeaders.Add , , cel.Offset(0, i - 1), Width:=cel.Offset(0, i - 1).Columns.Width

End Select
Next i

 

[Lone-wolf]

Bonjour Bebere

L'usf est dans le fichier du post #29. Je viens de tester la macro, rien à faire; ça reste toujours à gauche.

 

[Bebere]

Lone-wolf là non plus

 

[Lone-wolf]

Bonsoir Bebere,

désolé, c'était le mauvais fichier. En PJ

En même temps, il y a la macro dans la feuille facturation à mettre dans l'UsfRetours. Les colonnes des montants ne se mettent pas à jour lors d'une modification. Je suis entrain de faire le nécessaire, mais j'ai un problème avec la boucle For each cel in plage.

 

[Bebere]

bonjour Lone-wolf,le forum
select case 1,il faut i
mea culpa,c'est ma faute
edit:je dois m'absenter,un exemple de code pour facturation
mis le résultat autre part pour vérification
Public Sub MontantFacture()
Dim tbl, i As Long, mondico As Object, mondico1 As Object 'dictionary

Set mondico = CreateObject("Scripting.Dictionary")
Set mondico1 = CreateObject("Scripting.Dictionary")

With Sheets("Details Commandes") 'CodeName
tbl = .Range("A2:I" & .Range("A65536").End(xlUp).Row)
End With

For i = 1 To UBound(tbl)
mondico(tbl(i, 2)) = mondico(tbl(i, 2)) + tbl(i, 8)
mondico1(tbl(i, 2)) = mondico1(tbl(i, 2)) + (tbl(i, 8) + tbl(i, 8) * 0.08)

Next i

Feuil8.[N2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
Feuil8.[O2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
Feuil8.[P2].Resize(mondico1.Count, 1) = Application.Transpose(mondico1.items)
Feuil8.[O2].Resize(mondico.Count, 1).NumberFormat = "0.00"
Feuil8.[P2].Resize(mondico.Count, 1).NumberFormat = "0.00"

End Sub

 

[Lone-wolf]

Bonjour Bebere

Désolé pour le retard. C'est Nickel , j'ai juste modifié le nom des colonnes.

@ Jean Marie (tu en marie beaucoup, Monsieur le Maire? ). Je ne sais pas si tu es l'auteur de ceci Gestion de stock et tu continue à suivre le fil. Si tu as des suggestions à faire ça serait sympa.

Edit: je viens de penser à ajouter une listbox pour afficher le montant total de chaque article qui est en stock.

En PJ

 

[Bebere]

bonjour Lone-wolf,le forum
ajoute Init_Feuilles dans UserForm_Initialize
dans Sub Init_Feuilles() ajout de Set WbBase = Workbooks("Base.xls")
tu peux aussi mettre Init_Feuilles dans l'appel du 1er userform lancé
ou dans ouvrir(il faut tester)
edit: il y a problème avec code article avec tiret dans stock , sans dans produits
ds actualiser de usfretours il y a un msgbox suivi de exit sub
et la suite du code alors
explique ce qu'il faut faire

 

[Lone-wolf]

Bonjour Bebere,

Pour le tiret, j'ai apporté des modifications au feuilles, dans les anciennes il y avait justement + et - dans les colonnes articles, j'ai corrigé ceci avec l'aide rechercher-remplacer, c'est bizarre que celui-ci soit resté. Pour le reste je vais apporter les corrections.

Merci pour le retour.

 

[Lone-wolf]

Re

La msgbox, je l'avait mit pour test, j'ai eu un problème justement à cause des + et - . Au départ j'avais pensé à utiliser "Lire et écrire dans un classeur fermé", mais j'ai trouvé cela trop compliqué. J'utilise pour l'instant le bouton qui est sur la feuille, tant que tout n'est pas mis en place sans erreurs. En PJ le fichier à utiliser en cas de modifications de codes.

 

[Bebere]

Lone-wolf pour le bouton actualiser ds usfretours tu veux supprimer toute la cde(ou contenu listview) ou 1 ligne ou une sélection
rmqour effacer des lignes ds une feuille il faut commencer par la fin

 

[Lone-wolf]

Re Bebere

Pour l'instant, j'ai laissé à une ligne, mais il est vrai aussi que le client peut retourner toute la commande. J'ai dû recorriger le code à cause d'un oubli d'enregistrement. En PJ

 

[Lone-wolf]

Bonjour Bebere

J'ai un problème pour la suppression des données dans la feuille Sauvegarde. Il faudrait ajouter la macro dans le bouton actualiser pour 1 ligne et l'autre dans le bouton Del Tous pour supprimer toute la commande.

J'ai remis à jour le fichier en supprimant des commandes manuellement, il y avait des commandes qui manquaient dans la feuille Sauvegarde. Merci infiniment.

 

[Bebere]

bonjour Lone-wolf,le forum
code de usfretours changé ,regarde le code du bouton actualiser
prévu 1 ou tout(checkbox1)
si tout(checkbox1=true) efface aussi lignes des feuilles commandes et factures
pas testé tout
si besoin tu reposeras ton problème après
rmq:avec les essais effectués,il y a peut être des incohérences dans les feuilles