Discussion :

[Moldude]

Bonjour,
J'ai fait une petite macro pour mettre sous forme de "base de données" mes données. Sauf que je la trouve très lourde (le mot est faible).
Je vous mets en lien un fichier excel exemple pour illustrer mes types de données :

https://fil.email/CVWBQLxo

Actuellement comme je ne sais pas bien manipuler la variable de dernière ligne (en gros je ne sais pas comment utilisé un truc du type range("b2":derlig)). Je copie des range assez large puis colle aux différentes adresses bout à bout et ensuite je supprime toute les ligne vides.

La macro que j'ai fait est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub macro()
Sheets.Add(after:=Worksheets(1)).Name = "export"
Sheets(1).Select
Range("A2:A12").Copy Worksheets("export").Range("A1")
Range("B2:B12").Copy Worksheets("export").Range("C1")
Sheets("export").Range("B1:B10").Value = Range("B1")
Range("A2:A12").Copy Worksheets("export").Range("A11")
Range("C2:C12").Copy Worksheets("export").Range("C11")
Sheets("export").Range("B11:B21").Value = Range("C1")
 
'....ect jusqu'a la fin de mes colonnes
Sheets("export").Activate
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
End Sub

Elle fonctionne mais le problème c'est que mes fichiers n'ont pas tous le même nombre de colonnes ça veut dire aussi ajout manuel de bout de code en plus.

Voila si quelqu'un a une idée pour améliorer tout ça.
Merci d'avance

Cordialement,

[mfoxy]

Hello,

Il nous serait plus facile de t'aider en expliquant ,captures d'écran en prime, ce que tu souhaites faire, ce que tu as et ce que tu souhaites avoir.

Pour ce qui est pièces jointes dès le premier post du sujet, il vaut mieux éviter, très peux de contributeurs ouvrent celles-ci pour des raisons de sécurité.

Bat,

[niniylle]

Hello,

D'après ton message tu cherches à copier coller toute ta plage A:C de la ligne 1 à la dernière ligne de ton tableau.

Voici ce que je te propose :

Code :

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

1
2
3
4
5
6
Derligne=sheets("LE NOM DE TA FEUILLE SOURCE").Range(a1).End(xlDown).Row
 
Sheets("NOM FEUILLE SOURCE").Range(Cells(1,1),Cells(Derligne,3)).Copy
Sheets("NOM FEUILLE DESTINATION").Range("A1").Paste 'A voir quel paste tu veux
 
Application.CutCopyMode = False 'histoire de vider le presse papier

NB: Cela suppose que dans ta colonne A de ta feuille source, il n'y a pas de cellule vide entre ta première et ta dernière ligne du tableau.
S'il y en a, la plage copiée s'arrêtera à la première cellule vide

NB2 : Dans ton code, je vois que tu supprimes les lignes vides à l'origine. Ne s'agirait-il donc pas d'un couper/coller au lieu d'un copier coller?
Dans l'affirmative, il faut remplacer l'instruction

Code :

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

.Copy

par

Code :

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

.Cut

En espérant d'avoir donné une piste

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Salut ami foxy

Elle fonctionne mais le problème c'est que mes fichiers n'ont pas tous le même nombre de colonnes ça veut dire aussi ajout manuel de bout de code en plus.

L'avantage des tableaux structurés est qu'il n'est pas nécessaire de connaître l'adresse de la cellule de destination

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public Sub copy_tablostruc()
 
Worksheets("Feuil1").ListObjects("Tableau1").ListColumns("parent").DataBodyRange.Copy _
        Destination:=Worksheets("Feuil2").ListObjects("Tableau2").ListColumns("Parent").DataBodyRange
Application.CutCopyMode = False
 
End Sub

Ici, le champ "parent" peut être placé dans n'importe quelle colonne au sein des 2 feuilles.

Bien entendu, comme toujours, ce processus nécessite une rigueur dans l'organisation des données.

Autre avantage: aucune nécessité de gérer la dernière ligne. La propriété

Code :

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

Listrows.Count

suffit

[Moldude]

Bonjour à touts et toutes et merci d'avoir pris le temps de me répondre.
@niniylle :
Sur le fond je cherche à (dans un nouvel onglet)
copier ma première colonne (qui est ma colonne "date") -> coller le tout en colonne A de l'onglet "export"
ensuite je récupère le contenu de la première ligne de la deuxième colonne (qui est le nom du premier paramètre) je le duplique autant de fois que j'ai de date ( en pratique je copie "large")
je replace les résultats
je recommence le processus autant de fois que j'ai de paramètres
cela donne sur les conseil de mfoxy :


@Marcel intéressant cette histoire de tableaux mais est-ce aussi plastique pour remodeler les colonnes a notre guise ? Et par exemple remettre tout bout à bout ?

bonne journée

[mfoxy]

Re,

Maintenant que l'on voit mieux ton besoin, et si ta version excel est supérieure à 2010.
Je dirais utilisation de PowerQuery, dépivoter les colonnes paramètre et tu a ton tableau...

Soit 4 clics, en cas d'ajout de donnée dans la table source, un simple refresh de la querytable et résultat mis à jour.
Je ne suis pass ur mon pc, ou je t'aurais filer un fichier exemple.

Bat,

[MarcelG]

Salut,

intéressant cette histoire de tableaux mais est-ce aussi plastique pour remodeler les colonnes a notre guise ? Et par exemple remettre tout bout à bout ?

Tout à fait.

Comme je te l'ai reporté, tu peux effectuer la copie d'un champ de tableau structuré vers 1, 2, 3... autres.

Puis compiler 2, 3, 4.... tableaux.
Pour ce faire, tu peux consulter cette discussion et surtout celle-ci.

Je me répète. Un tel processus, comme tous les autres, nécessite une grande rigueur au niveau des données (Tableau structurés bien définis).

C'est ce processus que j'adopte pour tous mes reporting de synthèse.

Sans vouloir paraître présomptueux, je dirais qu'il est plus rigoureux que celui qui consiste à voir large pour ensuite supprimer des lignes en trop.

[Alex020181]

Bonjour,

Voici une solution en VBA.

C'est du code simple comme je pense que tu pourras le comprendre en voyant le code que tu as déjà dans ton fichier d'origine.
On pourrait améliorer le temps de traitement en utilisant des tableaux mais avec ce code tu pourras déjà te former.

Tu peux ajouter autant de lignes et de colonnes que tu le souhaites.

Teste et dis-nous.

[Moldude]

Bonjour à tous et merci. Votre aide m'a été d'un (très) grand secours.
@Alex020181 c'est exactement ce qu'il me fallait. Y a tout et même des explications pour adapter à ma sauce. Merci beaucoup

[MarcelG]

Salut,

Pour ma part, le code proposé est plus que discuttable.

Pourquoi écrire une boucle alors que la copie peut s'effectuer d'un bloc
Quant à

Code :

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

1
2
3
4
'défiltrer éventuellement "nom variable"
On Error Resume Next
Sheets("nom variable").ShowAllData
On Error GoTo 0

C'est l'exemple même de la mauvaise gestion d'erreur.

Code :

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

1
2
3
With WorkSheets("nom variable")
     If .FilterMode = True Then .ShowAllData
End With

Je reste persuadé que la gestion d'une table de données (Tableau Structuré) répond mieux à ce type de besoin.
Certes, elle nécessite une certaine remise en cause de nos habitudes, mais, une fois acquise, elle offre des possibilités telles que cet investissement est très vite amorti.

Pour reprendre l'exemple précédent

Code :

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

1
2
3
With Worksheets(1)
        If .FilterMode = True Then .ListObjects("Tableau1").AutoFilter.ShowAllData
End With

[Alex020181]

C'est exact Marcel. J'utilise on error trop facilement parce-que j'ai la flemme de faire mieux (retenir certains mots clés comme filtermode par exemple) et je ne me prend pas la tête.

Même chose pour la suppression de la feuille de résultat précédente. Je la supprime "à la barbare" plutôt que de boucler sur les feuilles du classeur pour tester son existance avec if feuille.name mais là encore c'est de la fainéantise.

Je ne dis pas que c'est ze solution mais ça fonctionne sans me prendre la tête.