Regrouper plusieurs colonnes facturations dans une colonne

Bonsoir,

J'aurais besoin de vos conseils et vos connaissances sur Excel.

J'ai un tableau avec plusieurs échéances de facturation (en fonction du mode de facturation) et j'aimerais que de la colonne "Facturation 1" à "Facturation 20" toutes ces dates se mettent automatiquement dans une seule colonne.

Et ensuite une deuxième colonne dans laquelle apparaitrait les commissions liées aux dates.

Grace à ce forum et la communauté qui l'anime j'ai déjà réalisé des progrès mais après plusieurs essais je n'arrive toujours pas a réaliser cette manipulation.

Pouvez-vous m'aider s'il vous plait ?

Je vous remercie par avance.

Cordialement.

Salut Max_MM,

à tester

Sub RegrouperFacturations()
Dim shs As Worksheet, shd As Worksheet
Dim RemplirPlage As Variant
Dim Xshs, Yshs, Yshd As Long
Set shs = Worksheets("Base de données contrats")

' créer une nouvelle feuille "Resultat"
With ThisWorkbook
    .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Resultat"
End With

Set shd = Worksheets("Resultat")

' insérer les titres dans la feuille Resultat
RemplirPlage = VBA.Array("Nombre unique", "facturations", "Commision par facturation")
shd.Range("A1:C1").Value = RemplirPlage

Yshd = 2

    With shs
        For Xshs = 15 To 34
            For Yshs = 2 To .Cells.SpecialCells(xlCellTypeLastCell).Row
                If .Cells(Yshs, Xshs) <> "" Then
                shd.Cells(Yshd, 1) = .Cells(Yshs, 1) ' recupérer le numéro unique
                shd.Cells(Yshd, 2) = .Cells(Yshs, Xshs) ' recupérer la date de facturation
                shd.Cells(Yshd, 2).NumberFormat = "m/d/yyyy" ' formater la céllule
                shd.Cells(Yshd, 3) = .Cells(Yshs, 14) ' recupérer la Commision par facturation
                Yshd = Yshd + 1
                End If
            Next Yshs
        Next Xshs
        shd.Columns("A:C").AutoFit
    End With
End Sub

Pour trier les données, il faut ajouter ce code avant le "End Sub"

Derligne = shd.Cells(shd.Rows.Count, "A").End(xlUp).Row

With shd.Sort
    .SortFields.Add Key:=Range("A2:A" & Derligne), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("A1:C" & Derligne)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Bonne nuit

Bonjour m3ellem1,

Malheureusement je suis débutant pour le moment et en cours d'apprentissage sur Excel. Je vous avoue donc que je ne comprends pas tout ce que vous m'avez envoyé.

Est-il possible de réaliser ma demande via Power Query ?

Si non, pouvez-vous me donner un peu plus d'informations ?

Ps: ma version Excel est 16.35 sur Mac.

Cordialement.

Salut Max_MM,

voir fichier pour la macro

POur PowerQuery il faut attendre nos experts de PowerQuery

Bon dimanche

Re,

Je vous remercie pour votre temps et votre solution.

Celle-ci semble marcher parfaitement !

Cependant si je modifie une donnée ou que j'en rajoute, le tableau ne se met pas à jour automatiquement et lorsque que je clique sur votre bouton, celui-ci m'indique une erreur (après avoir cliqué une fois déjà).

Est-il possible que votre tableau s'actualise automatiquement lorsque j'alimente la base de données ?

Je vous remercie une fois de plus pour votre temps !

Cordialement.

essaie comme ca avec le bouton en faisant des changements.

Pour l'actualisation automatique: on se base sur quelle colonne?

C'est parfait ça marche parfaitement !

Savez-vous s'il est possible que les données se mettent dans un tableau pour que je puisse les re trier par la suite ?

J'ai essayé de mettre sous forme de tableau mais lorsque je rentre une nouvelle donnée et re clique sur votre bouton, le tableau disparait.

m3ellem1 a écrit :

essaie comme ca avec le bouton en faisant des changements.

test suivi contrats copie_v1.xlsm

Pour l'actualisation automatique: on se base sur quelle colonne?

Sur la colonne Facturation 1 si possible.

Re,

essaie comme ca

Je pense que c'est mieux de passer par un bouton ou d'attribuer un raccourci clavier à la macro

Pour le worksheet_change je vais pas le faire

Et bien sûr attendre la solution PowerQuery

Bonne continuation

Re,

MAGNIFIQUE !! Merci beaucoup.

Je vais essayer de décrypter comment vous avez fait tout ça afin de m'améliorer.

Si vous connaissez des tutos youtube ou autres je suis preneur.

Merci énormément pour votre temps et votre travail.

Excellent dimanche à vous !

Mais avec plaisr!

eu haut de la page du forum on a des cours excéllents dire même magnifiques!

Bon dimanche