Re : Procédure trop grande ! 880 Textbox à gérer dans 2 USF, soit 1760 TextBox, Brrrr
Bonjour,
Quelques infos complémentaires :
S'il y avait plus de TextBox, le code ne serait pas plus long, il serait le même (réserve ; Est-ce que EXCEL accepte un tel nombre de Textbox ? je ne connais pas sa limite...).
C'est le fait que tu aies choisi un tableau discontinu qui complique un peu. C'est pour cela que j'ai pensé à cette méthode. Je ne me préoccupe pas de la forme du tableau mais seulement des cellules "utiles". A cet effet, j'ai créé le "modèle" avec des 999 dans les cellules utiles. Ce modèle permet d'abord de créer facilement tes autres feuilles avec contrôle du nom (voir Sub CréationNouvelleFeuille et sub NettoyageFeuille) D'autre part, il comporte une plage nommée PlageUtile. Dans le sub CréationTableCellulesUtilesFeuille, cette plage est balayée (boucle For Each...Next) et si une cellule contient 999, on place, dans une table CellulesUtiles, les coordonnées de cette cellule (un Range comprend Ligne, Colonne...de la cellule). Dans ton cas, on met en mémoire les coordonnées de 118 cellules lues dans l'ordre "colonnes successives par ligne, puis,lignes successives". En prenant la précaution de mettre les TextBox dans le même ordre (là j'ai tout replacé car c'était le bordel!), il est ensuite facile d'aller chercher la valeur contenue dans une cellule positionnée comme l'une des 118 TextBox dans la boîte de dialogue et de la transférer dans celle-ci (C'est le travail du sub ValeurFeuilleDansTextbox). La boucle teste les contrôles en ne sélectionnant que les TextBox. Pour l'opération inverse, tu remarqueras que c'est la même procédure à une ligne près (Sub ValeursTextBoxDansFeuille).
Nota : sous réserve de garder 118 Cellules "utiles" et 118 TextBox correspondantes, tu peux modifier la forme de tes tableaux, à condition d'agrandir ou de rétrécir en gardant la plage nommée Plage utile. Tu peux ainsi ajouter des lignes avec des infos ne concernant pas notre problème.
Cordialement
Edit : si tu veux plus de détails, dis-le, je t'enverrais une version mieux commentée.