Bonsoir ,
En fait vous m'aviez sorti d'affaire en copiant automatiquement le tableau de la Feuil1 dans la Feuil2. J'ai essayé de faire évoluer le fichier mais je rencontre quelques petits soucis et comme vous êtes les meilleurs ici... Je me suis dit que peut-être vous pourriez m'aider... J'ai essayer d'ajouter une partie de code qui copie la transposée de la Ligne 2 dans la 2ème colonne du tableau... (jai tenté avec une boucle ca marche bof, du coup je l'ai fait valeurs par valeurs)... Pour aller droit au but, mon problème est que : pour le tableau du site 2, je voudrais copier et transposer les valeurs de la deuxième ligne de la feuill1 dans la colonne du 2ème tableau du site 2 de la Feuil2. Pour le site 3 (quand il y en a 3), je voudrais copier et transposer les valeurs de la troisieme ligne de la feuill1 dans la colonne du 2ème tableau du site 3 de la Feuil2 etc etc...
Merci beaucoup et excellente soirée
Sub recopie()
'Création des tableaux pour la cotation
Rows("26:" & Application.Max(26, Cells(Rows.Count, 2).End(xlUp).Row)).Delete Shift:=xlUp
Range("B3:C24").Copy
With Sheets("Feuil1")
'Copie les
For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
Cells((i - 2) * 24 + 3, 2).Select
ActiveSheet.Paste
Next
End With
Application.CutCopyMode = False
Range("B3").Select
'Colle les valeurs dans le tableau de cotation
'For j = 1 To 8
'Sheets("Feuil2").Cells(3 + j, 3) = Sheets("Feuil1").Cells(2, j).Value
'Next
'For k = 1 To 2
'Sheets("Feuil2").Cells(11 + k, 3) = Sheets("Feuil1").Cells(2, 9 + k).Value
' Next
'For l = 1 To 3
'Sheets("Feuil2").Cells(l4 + l, 3) = Sheets("Feuil1").Cells(2, 1 + l2).Value
'Next
Sheets("Feuil2").Cells(4, 3) = Sheets("Feuil1").Cells(2, 1).Value
Sheets("Feuil2").Cells(5, 3) = Sheets("Feuil1").Cells(2, 2).Value
Sheets("Feuil2").Cells(6, 3) = Sheets("Feuil1").Cells(2, 3).Value
Sheets("Feuil2").Cells(7, 3) = Sheets("Feuil1").Cells(2, 4).Value
Sheets("Feuil2").Cells(8, 3) = Sheets("Feuil1").Cells(2, 5).Value
Sheets("Feuil2").Cells(9, 3) = Sheets("Feuil1").Cells(2, 6).Value
Sheets("Feuil2").Cells(10, 3) = Sheets("Feuil1").Cells(2, 7).Value
Sheets("Feuil2").Cells(11, 3) = Sheets("Feuil1").Cells(2, 8).Value
Sheets("Feuil2").Cells(12, 3) = Sheets("Feuil1").Cells(2, 10).Value
Sheets("Feuil2").Cells(13, 3) = Sheets("Feuil1").Cells(2, 11).Value
Sheets("Feuil2").Cells(14, 3) = Sheets("Feuil1").Cells(2, 13).Value
Sheets("Feuil2").Cells(15, 3) = Sheets("Feuil1").Cells(2, 14).Value
Sheets("Feuil2").Cells(16, 3) = Sheets("Feuil1").Cells(2, 15).Value
Sheets("Feuil2").Cells(16, 3) = Sheets("Feuil1").Cells(2, 46).Value
Sheets("Feuil2").Cells(17, 3) = Sheets("Feuil1").Cells(2, 48).Value
Sheets("Feuil2").Cells(17, 3) = Sheets("Feuil1").Cells(2, 48).Value
Sheets("Feuil2").Cells(18, 3) = Sheets("Feuil1").Cells(2, 49).Value
End Sub