Copier coller et création de tableaux automatiques

Bonjour tout le monde,

Merci encore pour ce forum qui est très enrichissant. J'ai besoin de vos lumières mais je tourne en rond ... J'ai essayé d'enregistrer ma macro et de la travailler ensuite mais en vain...

Je vous explique :

Sur la 1er feuil j'ai des données en ligne que je veux copier sous forme de tableau sur la feuil2 de manière automatique. J'ai besoin de construire autant de tableau sur la feuil2 qu'il y a de lignes sur la feuil1. Je souhaite aussi garder le format du tableau de la feuil 2... Je ne sais pas si je suis clair j'ai mis un ptit fichier en exemple.

Merci à vous tous et à bientot :=)

Bonjour,

justement, ... il manque le fichier !

ahhh voici le fichier merciii

3testclasseur1.xlsx (11.69 Ko)

Voici pour la création des tableaux

En plus, toute modification de valeurs en Feuil1 est répercutée en Feuil2

9testclasseur1.xlsm (19.83 Ko)

hah t'es chaud merciiiiiii beaucoup !!! J'ai juste une dernière question : Lorsque que je lance la macro pour 5 tableaux, j'ai effectivement les 5 tableaux apparaissent. Si je relance pour 4 les 4 tableaux se créent jusque là c'est perferct ! mais le 5ème tableau d'avant est toujours sur la feuille. Il y a t-il moyen de "nettoyer" ou supprimer les tableaux générer lors des calculs précédents? ou je suis obligé de le faire à la main à chaque fois?

Pas de soucis ...

Sub recopie()
Rows("15:" & Application.Max(15, Cells(Rows.Count, 2).End(xlUp).Row)).Delete Shift:=xlUp
Range("B3:C13").Copy
With Sheets("Feuil1")
    For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
        Cells((i - 2) * 13 + 3, 2).Select
        ActiveSheet.Paste
    Next
End With
Application.CutCopyMode = False
Range("B3").Select
End Sub
12testclasseur1.xlsm (21.10 Ko)

suuuppeeeeerrrr merci beaucoup

Re! Jessaie de re adapter le code histoire we progresser. Le 15 de la 1er ligne de code signifie quoi exactement ? jai changé sa valeur pour tester mais ca casse tout et change la taille du bouton....

Bonjour,

15 est la ligne à partir de laquelle tout doit être effacé pour être réinitialisé.

Ceci pour répondre à ton souhait :

Si je relance pour 4 les 4 tableaux se créent jusque là c'est perferct ! mais le 5ème tableau d'avant est toujours sur la feuille. Il y a t-il moyen de "nettoyer" ou supprimer les tableaux générer lors des calculs précédents?

Pour la taille du bouton il faudrait changer ses propriétés pour maintenir la taille.

capture d ecran 101

super merci!! t'es pédagogue en plus c'est un plaisir. Merci beaucoup

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
3testcotations.xlsm (25.93 Ko)

Bonjour,

5testcotations.xlsm (24.03 Ko)
Rechercher des sujets similaires à "copier coller creation tableaux automatiques"