Discussion :

[quario]

Salut à tous j'ai un petit soucis de programmation:

Un utilisateur saisie un nombre de produits finis, semis et matiere premiere dans un userform dont les chiffres se reportent sur la feuil2 dans les cases qui correspondent

Ces produits s'écrivent chacun à la ligne sur une feuille excel
je voudrais que entre chaque "intitulé" il y est un espacement de 6 lignes et que sur la droite de chaque intitulé soit marqué quelque chose

donc pour faire cours je vous montre comment c'est:

__________A__________B__________C __________D___________E
1------------------------------------------------------------------
2------------------------------------------------------------------
3------------------------------------------------------------------
4------------------------------------------------------------------
5-------------------produit 1
6-------------------produit 2
7-------------------semis 1
8-------------------etc.....

et je voudrais que ca devienne comme ca


__________A__________B__________C __________D___________E
1------------------------------------------------------------------
2------------------------------------------------------------------
3------------------------------------------------------------------
4------------------------------------------------------------------
5-------------------produit 1-----besoin brut
6--------------------------------stock debut
7--------------------------------besoin net
8--------------------------------besoin decalé
9--------------------------------stock final
10-------------------------------------------------------------------
11-------------------produit 2-----besoin brut
12--------------------------------stock debut
13--------------------------------besoin net
14--------------------------------besoin decalé
15--------------------------------stock final16
16-----------------------------------------------------------------------
17 etc....
18
19
21
22


Je vous remercie par avance et je vous joins le fichier (feuille 2, userform7)

[ouskel'n'or]

Kouichtionne : La feuille, dans ton fichier n'est pas ce que tu veux ? Parce que sinon, ça ne correspond pas à ta demande.
Tu dis

[quario]

Ca se passe sur la feuille 2

J'ai résolu le probleme de décalage, il reste plus qu'a arriver a copier sur chaque ligne ou il y a un intitulé:
besoin brut
stock debut
besoin net
besoin décalé
stock final

la programmation de la boucle est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("B7").Select
'Selection.Offset(1, 0).Select
Do
Range(Selection, Selection.Offset(5, 0)).Insert Shift:=xlDown
Selection.End(xlDown).Offset(1, 0).Select
Loop While Selection <> ""