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 |
Forums