Reporter cellules non vides avec les en-têtes

Bonjour à tous,

C'est mon premier post sur le forum J'ai un gros fichier qui m'est exporté et pour lequel je dispose de milliers de ligne (une ligne par numéro, associé à une date d'inscription) et qqls centaines de colonnes (qui correspondent chacune à une date). Ce qui me donne une grosse matrice dans laquelle quelques cellules sont remplies avec des "montants payés".

Si on le lit manuellement on obtient des associations (Numéro ; Date d'inscription ; Date paiement ; Montant). Il peut y avoir plusieurs paiements (donc plusieurs fois le même numéro).

Le fichier étant très lourd, les opérations sont trop lourdes pour les formules matricielles d'excel et je souhaites passer par du VBA, mais je suis pas un grand champion !

Je voudrais obtenir sur ma seconde feuille, une table (Numéro ; Date d'inscription ; Date paiement ; Montant) pour chaque montant non vide.

J'ai essayé la chose suivante, sans succès :

Sub Traitement()

Dim xlSheet As Excel.Worksheet
Set xlSheet = Worksheets("Resume")
Dim i As Long

Dim maPlage As Range
Dim DernLigne As Long, DernColonne As Integer
Dim c As Range

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set maPlage = Range(Cells(2, 3), Cells(DernLigne, DernColonne))

Set i = 2
For Each c In maPlage

    If c <> "" Then

      xlSheet.Cells(i, 1) = Cell(ActiveCell.Row, 1)
      xlSheet.Cells(i, 2) = Cell(ActiveCell.Row, 2)
      xlSheet.Cells(i, 3) = Cell(1, ActiveCell.Column)
      xlSheet.Cells(i, 4) = c

      i = i + 1

    End If

End Sub

Je vous mets un exemple tronqué en pj pour que vous puissiez avoir une idée!

Merci beaucoup pour votre aide

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Une proposition avec "Récupérer et transformer" (Power Query).

A te relire.

Cdlt.

Hello tous,

une tentative

Oups: pas vu les réponses de mes camarades de classe et qui en ont de la classe

PQ va devenir un (ton) standard il semble, Jean-Eric

J'ai pas pensé à l'essayer ici mais ça s'y prêtait de fait ...

P.

RE,

@ Patrick,

Power Query va devenir incontournable, si ce n'est pas déjà le cas. C'est, il me semble une évolution majeure d'Excel.

Dans de nombreux cas de figures, VBA ne sera plus utile.

Maintenant, apprendre VBA ou Power Query (langage M), c'est pas gagné!...

Cdlt.

Nota : Veux-tu que je tente de t'expliquer le fichier envoyé?

Jean-Eric a écrit :

@ Patrick,

Nota : Veux-tu que je tente de t'expliquer le fichier envoyé?

Si tu veux oui en MP et on verra ensuite s'il est utile de mettre ça ici, étant donné que je risque de poser pas mal de questions, autant ne pas allonger un fil de discussion ici , si ça te va

Merci

P.

patrick1957 a écrit :

Si tu veux oui en MP

Dommage ! J'aurais bien aimé en profiter...

Tant pis !

gmb a écrit :

patrick1957 a écrit :

Si tu veux oui en MP

Dommage ! J'aurais bien aimé en profiter...

Tant pis !

Hello GMB,

Attends, ce n'est pas pour cacher quoi que ce soit ou ne pas partager , mais plutôt pour ne pas allonger ce fil avec une conversation ressemblent un peu à un tchat; si je propose ça c'est juste dans ce but

Si J-E est d'accord, on fera un exemple et on tentera de montrer la marche à suivre

P.

Bonjour à tous !

Merci à tous pour vos réponses et vos idées Elles fonctionnent toutes parfaitement avec mon besoin!

Je mettrai mention spéciale à Jean-Eric pour la simplicité de l'utilisation de PQuery ! Je l'utilise un petit peu déjà pour faire de la visualisation et c'est vraiment un super outil (et très facile à comprendre).

Thx à tous,

Bonjour,

@ Patrick, gmb,

Des explications dans le fichier pour reproduire la chose...

Cdlt.

Bonjour à tous

Merci Jean--Eric, je vais regarder ça avec beaucoup d'intérêt.

Bye !