Discussion :

[sylvestre09]

Bonjour le forum,

Voilà j'ai beau chercher à trouver une solution pour mon cas mais je n'ai rien trouvé donc je me retourne vers vous pour me donner un coup de main.

J'ai un tableau dans une feuille qui contient plusieurs cellules j'aimerais transférer quelques données de ce tableau vers un autre qui est sur la même feuille selon la valeur et la date !

Comme c'est dur à expliquer je joint un exemple !
Dans la feuilles 2 il y'a le resultat souhaité on voit très bien que la date est la valeur sont les conditions pour remplir ce tableau, la colonne C contient des ref uniques pour chaque ligne!

Toutes suggestions seront les bienvenues !

Merci d'avance

[Daniel.C]

Bonjour,

Ce n'est pas très clair pour moi. Si Feuil2 contient le résultat escompté, où se trouvent les données initiales ? Donne un exemple.

[sylvestre09]

Bonjour
Les données initiales se trouvent dans la "feuil1" le resultat doit apparaitre dans la "feuil1" aussi ! pour les exemples c'est dans la "feuil2" que ca se trouve !!!
Merci

[Daniel.C]

Bonjour,

Les données initiales se trouvent dans la "feuil1"

Il n'y a pas de données dans Feuil1, il n'y a que des entêtes (et une date).

[sylvestre09]

c'est la colonne V c'est là ou je veux remplir les données !! les données initiales sont dans la colonne C:L

voilà un debut de solution qu'on m'a proposé jusque là tout fonctionne sauf que j'arrive pas a trier et faire la séparation des opérations de chaque mois c'est a dire celle du mois de mars en face et les séparer du mois suivant ...

[Daniel.C]

Bonjour,

Mets la macro suivante dans un module standard :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Base 1
Sub test()
    Dim c As Range, Tabl(12) As String, Ctr As Double
    Dim Ligne As Long, LigneDeb As Long, LigneCred As Long
    Ligne = 2
    For Each c In Range([E4], Cells(Rows.Count, 5).End(xlUp))
        Tabl(Month(c.Value)) = "X"
    Next c
    For i = 1 To 12
        Ctr = 0
        If Tabl(i) <> "" Then
            Ligne = Ligne + 2
            Cells(Ligne, 26) = DateSerial(2012, i, 1)
            Cells(Ligne, 26).NumberFormat = "mmm-yyyy"
            LigneDeb = Ligne
            LigneCred = Ligne
            For Each c In Range([E4], Cells(Rows.Count, 5).End(xlUp))
                If DateSerial(Year(c.Value), Month(c.Value), 1) = Cells(Ligne, 26) Then
                    If c.Offset(, 2) > 0 Then
                        Cells(LigneCred, "AA") = Cells(c.Row, 3)
                        Cells(LigneCred, "AB") = Cells(c.Row, 5)
                        Cells(LigneCred, "AC") = Cells(c.Row, 8)
                        Cells(LigneCred, "AD") = Cells(c.Row, 7)
                        Ctr = Ctr + Cells(c.Row, 7)
                        LigneCred = LigneCred + 1
                    Else
                        Cells(LigneDeb, "V") = Cells(c.Row, 3)
                        Cells(LigneDeb, "W") = Cells(c.Row, 5)
                        Cells(LigneDeb, "X") = Cells(c.Row, 8)
                        Cells(LigneDeb, "Y") = Cells(c.Row, 7)
                        Ctr = Ctr + Cells(c.Row, 7)
                        LigneDeb = LigneDeb + 1
                    End If
                End If
            Next c
            Cells(Ligne + 1, 26) = Ctr
            Cells(Ligne + 1, 26).NumberFormat = "General"
            Ligne = Application.Max(LigneCred, LigneDeb)
        End If
    Next i
End Sub

PS. Au cas où les dates d'échéance sont sur plusieurs années, il faudra modifier la macro.