modifications multiples et dynamiques de feuilles

Bonjour,

Je cherche a faire une macro me permettant de simplifier la vie du service Exportation ou je travaille.
Pour chaque commande, on envoie 1 ou plusieurs containers contenant un ou plusieurs produits.
Pour chaque commande, on doit créer plusieurs documents : certificats sanitaire, douane, d'origine, facture,... qui reprennent tous plus ou moins les memes infos

Je suis parti sur l'idée d'un document Excel contenant plusieurs feuilles : une pour chaque doc administratif (J ai donc passé ces docs a un format "facilement" manipulable via Excel) et une feuille Résumé/Utilisateur qui permette a l utilisateur de remplir une feuille et basta : Toutes les infos remplies vont au bon endroit dans les docs a créer grace a des formules.

Le souci c est que tant les docs administratifs comme la feuille Utilisateur doivent évoluer selon les réponses combien de containers ? et combien de produits par container ?

La tache me paraissant ardue pour mes connaissances VBA, je me suis limité a un container multiproduits.

Pour x Produits, j arrive bien a crér les x lignes sur chaque document qui doivent conserver un format donné.
J utilise ce code :

Code:

---

1 2 3 4 5 6

'CERTIFICADO DE ORIGEN Sheets("CERTIF DE ORIGEN").Select Range(Cells(26, 1), Cells(28, 6)).Select Selection.Copy Cells(26 + 3 * A, 1).Select Selection.Insert Shift:=xlDown

---

ou A est mon nombre de produits variant de 1 a NombreProduits(rentré par utilisateur)

Le document utilisateur doit aussi etre modifié pour permettre l entrée des x produits. Et la j ai un probleme, comment coller ces nouvelles infos au lignes rajoutées dans les docs administratifs

J ai essayé cela qui ne marche pas:

Code:

---

1 2 3

'CERTIFICAT SANITAIRE Sheets("CERTIF SANIT").Select Cells(20 + A, 3).Value = Selection.Offset(11, 1).Range("C75").Value

---

ou A est mon nombre de produits variant de 1 a NombreProduits(rentré par utilisateur)


Je voulais récupérer de ma feuille résumé la bonne info pour le bon produit. Pour chaque type d'info j ai un point de repere ici C75 et je décale de 11 cases car c'est le nombre d infos que j ai spécifique produit. Si C75 correspond au poids du produit 1 par exemple C86 correspondra au poids du produit 2.
Comme je vous disais ca ne marche pas (mais je n ai pas de message d erreur) : je pense que c est lié a l'utilisation que je fais de Offset() et aussi sans doute savoir a quelle feuille s'applique le Selection.Offset(11, 1).Range("C75").Value mais je vois pas comment faire autrement.

Je pensais changer completement d idee et faire une userform qui lorsque tu renseignes le nombre de produits s'adapte et te permette de remplir ces 11*nombre de produits dans la userform mais la je suis fortement dépassé.

Donc voila je ne sais pas ce que cela vous inspire.
Dans tous les cas j'aimerais bien que la solution ne ferme pas la porte a un ajout (un jour qui sait !) de la question nombre de containers avant nombre de produits par container.
Merci

reBonjour
Je vous donne un peu plus de détails parce que mon probleme n a pas l air d emballer les foules ce que je concois tout a fait d ailleurs !:P
Alors voila ce que j ai fait dans un premier temps. Je voulais pas trop tout mettre parce que c est toujours le meme code qui revient mais peut etre que ce sera plus clair de cette maniere.
En réalité, cela me permet seulement de traiter le nombre de containers mais pas celui de produits par container.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

Private Sub CommandButton1_Click() 'Récupérer le nombre de containers de la commande NContenedor = TextBox1.Value   'Traite le cas : nombre de contenedor=1 If (NContenedor = 1) Then Unload UserForm1 Else End If   Dim A As Integer For A = 1 To NContenedor - 1 'CERTIFICAT SANITAIRE Sheets("CERTIF SANIT").Select   'Ajouter tableau produits pour nouveau container Range(Cells(19, 1), Cells(21, 8)).Select Selection.Copy Cells(19 + 3 * A, 1).Select Selection.Insert Shift:=xlDown 'Me permet de distinguer le nouveau container : 'container 2 =B1 pour 2eme container premier produit 'container 3 = C1 pour 3 eme container 1er produit ... Cells(20 + 3 * A, 2).Value = Mid("1B1C1D1E1F1G1", A * 2, 2)   'Ajouter ligne description Produits pour nouveau container Range(Cells(19 + 5 + 3 * A, 1), Cells(19 + 5 + 3 * A, 8)).Select Selection.Copy Cells(19 + 5 + 3 * A + A, 1).Select Selection.Insert Shift:=xlDown Cells(19 + 5 + 3 * A + A, 2).Value = Mid("1B1C1D1E1F1G1", A * 2, 2)   'Ajouter ligne Container+Seal pour un nouveau container Range(Cells(19 + 36 + 4 * A, 1), Cells(19 + 36 + 4 * A, 8)).Select Selection.Copy Cells(19 + 36 + 4 * A + A, 1).Select Selection.Insert Shift:=xlDown Cells(19 + 36 + 4 * A + A, 2).Value = Mid("ABCDEFG", A + 1, 1)   'ADUANA Sheets("ADUANA").Select   Range(Cells(47, 1), Cells(47, 12)).Select Selection.Copy Cells(47 + A, 1).Select Selection.Insert Shift:=xlDown Cells(47 + A, 1).Value = Mid("1B1C1D1E1F1G1", A * 2, 2)   Range(Cells(47 + 6 + A, 1), Cells(47 + 6 + A, 12)).Select Selection.Copy Cells(47 + 6 + A + A, 1).Select Selection.Insert Shift:=xlDown Cells(47 + 6 + A + A, 1).Value = Mid("1B1C1D1E1F1G1", A * 2, 2)   Range(Cells(47 + 8 + 2 * A, 1), Cells(47 + 10 + 2 * A, 12)).Select Selection.Copy Cells(47 + 8 + 2 * A + 3 * A, 1).Select Selection.Insert Shift:=xlDown Cells(48 + 8 + 2 * A + 3 * A, 1).Value = Mid("1B1C1D1E1F1G1", A * 2, 2)     'PACKING LIST Sheets("PACKING LIST").Select   Range(Cells(23, 1), Cells(27, 9)).Select Selection.Copy Cells(23 + 5 * A, 1).Select Selection.Insert Shift:=xlDown     'CERTIFICADO DE ORIGEN Sheets("CERTIF DE ORIGEN").Select   Range(Cells(26, 1), Cells(28, 6)).Select Selection.Copy Cells(26 + 3 * A, 1).Select Selection.Insert Shift:=xlDown     Unload UserForm1   Next A   End Sub

---

Donc ca ca marche plutot pas mal toutes mes feuilles sont au bon format pour recevoir l'information. Mais comment est il possible d'ajouter une ligne dans chaque bloc qui vienne crér un lien entre : "les lignes rajoutées dans les docs administratifs" et les "lignes rajoutées dans le formulaire utilisateur" ???
L objectif est que l utilisateur précise son nombre de containers, de produits par container, cela actualiserait les formats et le formulaire. L utilisateur remplit ensuite le formulaire et peut automatiquement récupérer tous ces docs administratifs.
Merci de votre aide