Re : Manipulation de données, transfert de données entre 2 tableaux au format différe
Salut,
Dans le worksheets tu peux appeler n'importe quel onglet.
J'ai ajouter quelques commentaires dans mon code:
'initialisation de la position de ta première entrée dans Table 2
ligne = 4
'boucle de la première valeur à la dernière valeur de la colonne B de table 1 se trouvant dans Feuil1
'dernière valeur calculer par un décompte de valeurs dans la colonne B de Feuil1
For i = 1 To (WorksheetFunction.CountA(Worksheets("Feuil1").Range("B:B")) - 1)
'boucle de la 4ème colonne à la 16ème colonne de la Feuil1, correspondant à ta table 1
For j = 4 To 16
'contrôle pour chaque et à chaque colonne si ta valeur est supérieure à 0
If Worksheets("Feuil1").Cells(i + 4, j) > 0 Then
'incrémentation de ta position de copie des valeurs dans la Table 2
ligne = ligne + 1
'écrit dans la Table2 (se trouvant ici dans Feuil1) les valeurs de la Table 1
Worksheets("Feuil1").Cells(ligne, 18) = Worksheets("Feuil1").Cells(i + 4, 3)
Worksheets("Feuil1").Cells(ligne, 19) = Worksheets("Feuil1").Cells(4, j)
Worksheets("Feuil1").Cells(ligne, 20) = Worksheets("Feuil1").Cells(i + 4, 2)
End If
Next j
Next i