Bonsoir,
ptitpanda bonsoir,
Pour votre souhait, je suppose que vous avez un code qui tourne avec comme mot clé par exemple 812
Il vous suffit alors, peut-être, vu, comme le dit petitpanda, il n'y a pas de code ni de fichier, de faire ceci :
Dim TabEntrepot(1 to 3)
TabEntrepot(1)="812": TabEntrepot(2)="156": TabEntrepot(3)="123"
For LRD = 1 to 3
motclé=TabEntrepot(LRD)
' ici le reste de votre code qui correspond à un seul entrepôt
' Ici lors de la boucle LRD=1 motclé vaut 812
' une fois cet entrepôt fait le Next de LRD, motclé vaudra = 156 etc
Next LRD
Reste à voir dans le code "un seul entrepôt" s'il y a des références à des lignes qu'il faudra surveiller sinon chaque entrepôt pourrait s'écrire par dessus les précédents...
La "construction" du tableau TabEntrepot peut être plus simple si vous avez la liste des entrepôts inscrit sur une feuille
@ bientôt
LouReeD