Discussion :

[lilmonie]

Bonjour à tous,

Je voudrais copier un tableau qui change toutes les semaines dans une autre feuille de sorte à avoir un historique sur l'année. Du coup, le tableau se copiera dans la feuille 2 avec un écart de 2 lignes pour bien marquer le numéro de semaine. Je voudrais le faire automatiquement à partir du moment où la date inscrit dans une cellule est différente de la précédente. Du coup, chaque semaine, le tableau de la feuille1 est copié dans la feuille2.
Auriez vous une idée de macro pour le faire? Sinon est ce possible de le faire avec des formules excel?

[RomBon]

Plutôt en codant, ca sera plus simple.
Tu as un tableau en exemple ?

[Philippe Tulliez]

Bonjour,

Je voudrais copier un tableau qui change toutes les semaines dans une autre feuille de sorte à avoir un historique sur l'année. Du coup, le tableau se copiera dans la feuille 2 avec un écart de 2 lignes pour bien marquer le numéro de semaine. Je voudrais le faire automatiquement à partir du moment où la date inscrit dans une cellule est différente de la précédente. Du coup, chaque semaine, le tableau de la feuille1 est copié dans la feuille2.

Si le nombre de colonnes et les étiquettes de colonnes sont identiques une procédure toutes faites Regrouper plusieurs feuilles sur une autre. (2003-2010).
Seul bémol pour toi, il ne laisse pas de lignes vides mais très franchement cela va à l'encontre de toutes règles de bonnes pratiques pour les listes de données.
Un tableau (liste de données) dans excel doit idéalement commencer à la ligne 1 où se trouve les étiquettes de colonnes, avoir en colonne 1 de préférence une clé unique, ne pas fusionner les cellules et toutes les données des lignes 2 et suivantes doivent se suivre sans espaces et éviter les cellules vides en privilégiant les valeurs nulles aux valeurs vides.
Sinon la syntaxe est très simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExportTable sht1, shtTarget

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub testExport()
 ' Déclaration des variables
 Dim shtSource As Worksheet, shtTarget As Worksheet
 ' Affectation des variables
 With ThisWorkbook
  Set shtSource = .Worksheets("Mvt-Janv")
  Set shtTarget = .Worksheets("Export")
 End With
 ' Exportation des données
 ExportTable sht1, shtTarget
End Sub

[Thautheme]

Bonjour le fil, bonjour le forum,

Peut-être comme ça, avec la macro événementielle Change (à adapter) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OD As Object 'déclare la variable OD (Onglet de Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
 
'si le changement à lieu ailleurs que dans la cellule A1, sort de la procédure
If Target.Address <> "$A$1" Then Exit Sub 'tu adapteras à ton cas ce doit être l'adresse de la cellule contenant la date
Set OD = Sheets("Feuil2") 'définit l'onglet de destination (à adapter à ton cas)
'définit la cellule de destination DEST (A1 si A1 est vide, sinon la troisième cellule vide de la colonne 1 (=A) de l'onglet OD
Set DEST = IIf(OD.Range("A1") = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(3, 0))
Range("A1").CurrentRegion.Copy DEST 'copie la plage des cellules contiguës à A1 et la colle dans DEST
End Sub

[AlainTech]

Bonjour aux intervenants,

lilmonie a préféré nier vos réponses en disant qu'il n'en a pas reçu et a ouvert une autre discussion ici.

Je clos donc ce sujet-ci.

[lilmonie]

Par fausse manipulation, je n'ai pas ignoré la conversation. j'ai juste pas vu les réponses et c'est pour cela que j'ai ouvert une nouvelle conversation