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.
c'est la propriété "alignment" juste après la largeur de la Colonne ColumnHeaders est l'objet
VB:
.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
VB:
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
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
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.
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)
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.
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
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.
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.
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
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
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.
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