Insérer un nombre de ligne variable (code MACRO)Fermé

Question

Bonjour à tous, 

Je voudrais insérer un nombre de ligne entre chacune de mes lignes actuelles en fonction du nombre de paramètres à ajouter. La situation étant complexe et difficile à expliquer avec des mots, le plus simple pour vous est de directement jeter un coup d’œil à mon fichier excel. J'ai distingué grâce à 3 feuilles, mon tableau actuel, le tableau de transition que je pense devoir créer (peut-être pas nécessaire), et enfin le tableau final voulu, 

Je n'ai pas une grande expérience pour le codage macro, mais je peux le comprendre si vous m'expliquez, 

Merci pour votre aide, 

Vincent.

Mon fichier excel : https://www.cjoint.com/c/GLhpcCHusbw

via55 · Answer

Bonsoir Vincent,

Macro à mettre dans un Module de l'éditeur VBA et à lancer depuis la feuille avec la tableau initial
Sub transposer()
lg = 1 'ligne des titres dans FINAL
'boucle sur lignes et colonnes du tableau initial
For x = 2 To 6
For y = 2 To 11
If ActiveSheet.Cells(x, y) <> "" Then ' si cellule non vide
lg = lg + 1 'incrementation de la ligne de recopie de 1
Sheets("FINAL").Range("A" & lg) = ActiveSheet.Cells(x, y) ' copie valeur en col A de FINAL
Sheets("FINAL").Range("B" & lg) = ActiveSheet.Cells(x, 1) 'ccpie dans FINAL de la valaur en col 1
Sheets("FINAL").Range("C" & lg) = ActiveSheet.Cells(1, y) ''ccpie dans FINAL du titre
End If
Next
Next
End Sub

Cdlmnt
Via

Insérer un nombre de ligne variable (code MACRO)

1 réponse

Discussions similaires

Newsletters