Microsoft 365 VBA création ligne en fonction d'un nombre et occurrence copier coller

[simsinaty]

Bonjour à tous chers Excel Masters,

Je tombe sur un os et fait appel à vos connaissances pour m'aider si vous le voulez bien. Je vous mets le fichier initial en pièces jointe. Si vous pouvez m'aider je vous en serai très reconnaissant. Merci à tous !

Mon tableau de base se trouve dans l'onglet BASE. Le but est de passer en une seule macro de BASE à onglet "3". Je vous fais des exemples de l'attendu à chaque étape pour plus de clarté.

Etape 1 : je souhaite insérer un nombre de lignes en-dessous de chaque ligne à partir de la ligne 2 selon la typologie en colonne R = à T2 ou U2 (résultat attendu onglet 1 avec exemple pour 2 lignes de charges et de produits). Dans mon exemple, si colonne R = charges, alors insérer 579 lignes (U2), si produits, insérer 19 lignes (T2).

Etape 2 : Toutes les lignes vides créées : remplir des mêmes valeurs que celles mises dans la ligne "maître" du dessus les valeurs pour A,B,C,D, et R (onglet 2).

Etape 3 : aller en première colonne non vide (colonne S) et :
si R = "produits",
alors copier/coller les items de facturation colonne B de l'onglet "A COLLER" pour chaque ligne( sélectionner de b2 à la fin de la liste car ces items peuvent varier en nombre)
alors colonne D = colonne T

si R = "charges",
alors copier/coller les items de facturation colonne B de l'onglet "A COLLER" pour chaque ligne, attention, ces items peuvent varier en nombre
alors copier/coller les clients colonne A de l'onglet "A COLLER" pour chaque ligne d'item

Et après ? UN grand MERCI !

Belle journée à vous.

 

[st007]

Bonjour,
Et power query, tu connais ?

 

[vgendron]

Hello
Un essai par macro

 

[simsinaty]

Hello
Un essai par macro

Hello Vgendron, un grand merci c'est presque cela. Sauf qu'en résultat final, colonne T ligne 582 (à partir de charges) je souhaite que ce soit le client blabla1 dl'item 1 à 20, puis le client blabla2 de l'item 1 à 20 , etc.... cf à partir de la ligne 42 de l'onglet 3 de mon fichier pour exemple ! Un grand merci en tout cas !

 

[simsinaty]

Bonjour,
Et power query, tu connais ?

Oui, mais pas pour ce travail qui nécessite de rester sur Excel. Je fais appel à ce forum pour m'aider sur ce problème ne particulier et pas pour passer sur un autre logiciel ! ;-)

 

[vgendron]

Hello
un nouveau test
si j'ai bien compris, dans le cas d'un produit, la colonne T = Colonne D
dans le cas d'une charge, la colonne T = Liste Client

 

[simsinaty]

Hello
Un essai par macro

Alors, c'est quasi cela à 99%. Il ne manque qu'une chose : dans ton code tu as écrit (j'ai rajouté deux onglets au lieu d'un initial c'est normal)

With Sheets("5-f")
TabClient = .Range("A2:A31").Value
End With
With Sheets("5-e")
tabitem = .Range("A2:A21").Value
End With

Pour ces dernières lignes, comment dire, prendre la dernière ligne (car liste modifiable) non vides et non = 0 ?

MErci beaucoup encore !