Un nouveau problème trouver sur la feuille StocksEnTension lors de l'édition de celui-ci. Rajoute systématiquement en bas de la feuille ce qui fait que c'est compliqué très rapidement on se retrouve dans la difficulté pour imprimer. Solution trouver une macro pour "reset" la page . encore merci pour votre travail .
Bonjour
Merci de me donner plus de précisions
Avant de lancer l'édition , je "nettoie" la feuille StockEnTension
VB:
With Sheets("StocksEnTension")
.Range("A2:H10000") = ""
DerlignePlus1 = .Range("A65536").End(xlUp).Row + 1
For I = 0 To Me.ListBoxTension.ListCount - 1
.Range("A" & DerlignePlus1) = Me.ListBoxTension.List(I, 0)
.Range("B" & DerlignePlus1) = Me.ListBoxTension.List(I, 1)
.Range("C" & DerlignePlus1) = Me.ListBoxTension.List(I, 2)
.Range("D" & DerlignePlus1) = Me.ListBoxTension.List(I, 3)
.Range("E" & DerlignePlus1) = Me.ListBoxTension.List(I, 4)
.Range("F" & DerlignePlus1) = Me.ListBoxTension.List(I, 5)
.Range("G" & DerlignePlus1) = Me.ListBoxTension.List(I, 6)
.Range("H" & DerlignePlus1) = Date
DerlignePlus1 = DerlignePlus1 + 1
Next
End With
la ligne .Range("A2:H10000") = "" le fait
A moins qu'il y ait plus de 10000 lignes ?
En fait je ne comprends pas trop ta question
J'ai testé et ne vois pas le pb ( sans nier qu'il y en ai un)
peux tu SVP donner un exemple et poster sur ce fil ton fichier que je contrôlerai
Bonjour
Merci de me donner plus de précisions
Avant de lancer l'édition , je "nettoie" la feuille StockEnTension
VB:
With Sheets("StocksEnTension")
.Range("A2:H10000") = ""
DerlignePlus1 = .Range("A65536").End(xlUp).Row + 1
For I = 0 To Me.ListBoxTension.ListCount - 1
.Range("A" & DerlignePlus1) = Me.ListBoxTension.List(I, 0)
.Range("B" & DerlignePlus1) = Me.ListBoxTension.List(I, 1)
.Range("C" & DerlignePlus1) = Me.ListBoxTension.List(I, 2)
.Range("D" & DerlignePlus1) = Me.ListBoxTension.List(I, 3)
.Range("E" & DerlignePlus1) = Me.ListBoxTension.List(I, 4)
.Range("F" & DerlignePlus1) = Me.ListBoxTension.List(I, 5)
.Range("G" & DerlignePlus1) = Me.ListBoxTension.List(I, 6)
.Range("H" & DerlignePlus1) = Date
DerlignePlus1 = DerlignePlus1 + 1
Next
End With
la ligne .Range("A2:H10000") = "" le fait
A moins qu'il y ait plus de 10000 lignes ?
En fait je ne comprends pas trop ta question
J'ai testé et ne vois pas le pb ( sans nier qu'il y en ai un)
peut tu SVP donner un exemple et poster sur ce fil ton fichier que je contrôlerai
Bonjour, le fait d'avoir "reset" mon problème à disparu en faite quand je rentrer des nouvelles références , au moment édition "StocksEnTension" je retrouver le listing au bas de la feuille en seulement 2 édition avec (20 articles max) j'avais plus de 254 pages soit plus de 1000 lignes .Pour pouvoir voir les articles. En espérant que j'ai réussi à vous faire comprendre le problème rencontrer je pense que devriez proposer un clean de la feuille après chaque édition.
Bonjour
merci de poster ton fichier , sinon je ne pourrais pas voir ton pb ( on ne peut pas être plus clair !)
toujours pas compris
c'est quoi ton reset ?
et pourtant ton pb m'intéresse énormément
le clean de la feuille s'effectue à la création de l'édition
Pour cause de confidentialité de l'entreprise je suis pas en mesure de partager le fichier trop d'information sont rentrer désolé.
Si pour vous aider à trouver le problème je veux bien essayer de rentrer des articles et tester sur un nouveau fichier.
Et mon reset , j'ai insérer une image puis créer la macro qui efface tout ce qu'il y a dans la feuille. Et la plu de problème.
bonsoir
oui bien sur avec des données bidon et un exemple de ton pb
sinon pour moi RAS
je ne vois pas le pb
Pour moi ta macro : ok , mais cela ne m'explique pas le pb !
par contre une autre version plus évoluée est en préparation.
le reset : cells clear : efface toutes les cellules de la feuille ?
Bonjour JM27, C'est super ce que tu fait , j'aurais souhaiter avoir ton aide pour améliorer mon application " Gestion, Achat, Vente " . j'aimes bcp la présentation de tes applications,
Merci à toi
itzik92 isaachanan92@gmail.com
2 versions
1/protégée pour des utilisateurs multiples ( sécurisation de l'application par la création à chaque utilisation de feuilles "Image" sur lesquelles on peut intervenir sans dommage pour l'appli.
1/ version non protégée ou l'on peut agir directement sur les feuilles (non recommandée) .
Evolution:
Mémorisation de la date de mouvement et de la destination à la création du panier entrée/sortie.
Possibilité de saisir des quantités décimales.
Méthode de gestion des coût par CUMP (Cout...
Bonsoir Jean-Marcel,
Je me permet de revenir vers toi, car lorsque je désire faire une "entrée/sortie de matériel", soit entrée, soit sortie, en utilisant le "type de recherche par code article", j'ai ce message, ci-dessous.
Merci pour ton aide.
Patrick
PS: Sur la version 7 c'est le même message.