VBA excel : insertion de 5 lignes + transposition Résolu/Fermé

Question

Bonjour,

J'ai un programme à réaliser sur EXCEL VBA et je n'arrive pas à résoudre mon problème AU SECOURS !!!!   

J'ai un tableur du type : 
04/08/2014	164	157	154	153	153	144
04/08/2014	141	148	132	132	133	133
04/08/2014	137	135	135	141	142	136
04/08/2014	133	134	127	132	134	132
04/08/2014	125	129	124	124	123	123
04/08/2014	133	136	126	127	131	130

et souhaite insérer entre chaque ligne, 5 lignes vides, puis transposer les 5 colonnes en dessous de la colonne 2, pour avoir le résultat suivant (le tout dans la même colonne):

04/08/2014	164	157	154	153	153	144
	        157					
	        154					
	        153					
	        153					
	        144					
04/08/2014	141	148	132	132	133	133
	        148					
	        132					
	        132					
	        133					
	        133					
04/08/2014	137	135	135	141	142	136
	        135					
	        135					
	        141					
	        142					
	        136					
04/08/2014	133	134	127	132	134	132
	        134					
	        127					
	        132					
	        134					
	        132					
04/08/2014	125	129	124	124	123	123
	        129					
	        124					
	        124					
	        123					
	        123					
04/08/2014	133	136	126	127	131	130
	        136					
 	        126					
	        127					
	        131					
	        130					

J'espère que vous avez l'esprit plus logique que moi ! ;)
Merci d'avance pour vos réponses !

apprentiexcel · Answer

on ne le voit pas bien dans le message, mais je précise je souhaite transposer les chiffres des 5 dernières colonnes en dessous de la colonne 2 

Merci d'avance ! =)

michel_m · Answer

Bonjour,

combien as tu de  lignes (environ) au départ  ?

michel_m · Answer

Ben ce sera avant la soupe de châtaignes et l'omelette aux cèpes ;o)

Option ExplicitOption Base 1'--------------------------------------------------------------------------Sub transposer_5()Dim Derlig As Long, T_in, T_outDim Cptr_in As Long, cptr_out As Long, Col As Byte'----------------------------------------------------initialisations    Application.ScreenUpdating = False    'mémorisation des tableaux brut et sortie    Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row    T_in = Range("A2:G" & Derlig) ' adapter ligne départ    ReDim T_out(UBound(T_in) * 6, 7)    '---------------------------------------------------réorganisation des données    cptr_out = 1    For Cptr_in = 1 To UBound(T_in)        For Col = 1 To 7            T_out(cptr_out, Col) = T_in(Cptr_in, Col)        Next        For Col = 2 To 7            T_out(cptr_out, 2) = T_in(Cptr_in, Col)            cptr_out = cptr_out + 1        Next    Next'-----------------------restitution de la réorganisation        Columns("L:R").Clear 'transformer en A:G" après essais        Range("L2").Resize(UBound(T_out), 7) = T_out 'a transformer en A2 après essaisEnd Sub 

La maquette
http://www.cjoint.com/c/EKfrfSLt8NL

tu dis
 
 Michel