Rapport de message :*
 

Re: archivage avec userform

Titre du sujet : Re: archivage avec userform
par Guy le 26/10/2009 14:29:30

Bonjour claude40, Didier et le forum qui aurait intérêt à lire la ligne en gras,

Débutant, je veux bien. Tu n'est pas le seul, loin de là.
Je puiserai donc dans le talent pédagogique dont le destin m'a si parcimonieusement pourvu.
Quelques petites questions :

1- À quoi servent ces nombreuses plages nommés?
densité           =REF!$D$2:$D$100
densité1         =REF!$D$2:$D$5000
indice             =REF!$C$2:$C$100
indice1           =REF!$C$2:$C$5000
laser              =REF!$G$2:$G$100
laser1            =REF!$G$2:$G$5000
num_broy        =Modèle!$A$500:$A$531
numero           =REF!$L$2:$L$50
petitd             =REF!$H$1:$H$5000
plan__contrôle  =REF!$B$1:$B$300
plan_contrôle   =REF!$B$1:$B$5000
Poste             =REF!$K$2:$K$4
postes            =Modèle!$B$500:$B$532
REF               =REF!$A$2:$A$100
REF_produit     =REF!$A$1:$A$5000
refus             =REF!$F$2:$F$100
refus1           =REF!$F$2:$F$5000
Tamis            =REF!$J$1:$J$300
tamis1           =REF!$J$1:$J$5000
température   =REF!$I$2:$I$100
température1  =REF!$I$2:$I$5000
viscosité       =REF!$E$2:$E$100
viscosité1     =REF!$E$2:$E$5000

2- Dans la procédure UserForm_Initialize() du formulaire UserForm1, que peut bien, selon toi, représenter cette ligne :
ComboBox1.List = Sheets("REF").Range("A2:A200" & Range("A65536").End(xlUp).Row).Value
As-tu remarqué que la liste déroulante ComboBox1 porte deux mille (2 000) éléments. Pourquoi au juste?

3- Souhaites-tu conserver le bouton Archiver la feuille dans le classeur créé?

Pour ce qui est du principal problème qui nous occupe je dois avouer être passé à côté. Eh oui, je suis faillible moi aussi.
J'y travaille et en plus je compte nettoyer fortement le code et j'espère que tu laisseras la chose en l'espèce.
L'indentation sert à quelque chose : montrer la structure du code d'un seul coup d'œil!
Prends donc et surtout garde l'habitude de structurer ton code et laisse l'indentation du code que ma pédagogique et généreuse intervention te fournit.

En attendant les précisions sur les questions posées ici, je retourne à la recherche d'une solution et à la correction du code.

Guy