Création de date dans le titre d'1 copie d'une feuille excel

Salut,

Si tu as une macro dans tes fichiers (et là c'est le cas car on fait une copie du classeur contenant la macro), il convient de les enregistrer en .xlsm au lieu de .xlsx.

Mais bon, ce n'est pas la bonne solution car tu va reproduire x fois une macro, dans x classeurs, alors que cela ne t'es d'aucune utilité.

Solution 1
Ce que tu peux faire, c'est te créer un classeur vierge, ne contenant que la macro.
Par contre, il te faudra légèrement modifier cette dernière pour qu'elle :
1- vérifies si le classeur "source" de tes données est ouvert,
2- s'il est fermé, qu'elle l'ouvre.

Solution 2
La mieux adaptée à ton cas...
Placer ta macro dans le classeur Perso.xls.
Pour se faire, suit ce tuto : http://www.info-3000.com/vbvba/oumacrostockee.php chapitre : Dans le classeur de macros personnelles PERSO.XLS (Classeur masqué par défaut)

merci Franck.

J'ai de nouveau une colle.

je souhaiterai rationaliser la liste suivante au niveau des dates, je pense qu'il faudrait faire plusieurs boucle afin de valider le sku1, puis le sku 2 , puis le types de remises, puis le taux pour enfin élimner les dates qui se suivent afin d'avoir qu'une seule ligne par exemple pour la premieres ligne 111111 123 A 0,034 30/12/2013 19/01/2014

l'exemple ci dessous
SKU 1 SKU 2 Remises TAUX Périodes
111111 123 A 0,034 30/12/2013 31/12/2013
111111 123 A 0,034 01/01/2014 05/01/2014
111111 123 A 0,034 06/01/2014 12/01/2014
111111 123 A 0,034 13/01/2014 19/01/2014
111111 123 A 0,000 01/02/2014 02/02/2014
111111 123 B 2,000 30/12/2013 31/12/2013
111111 123 B 2,000 01/01/2014 05/01/2014
111111 123 B 2,000 06/01/2014 12/01/2014
111111 123 B 2,000 13/01/2014 19/01/2014
111111 123 B 2,000 20/01/2014 26/01/2014
111111 123 B 2,000 01/02/2014 02/02/2014
111111 123 D 0,000 30/12/2013 31/12/2013
111111 123 D 0,000 01/01/2014 05/01/2014
111111 123 D 0,000 06/01/2014 12/01/2014
111111 123 D 0,000 13/01/2014 19/01/2014
111111 123 D 0,000 20/01/2014 26/01/2014
111111 123 D 0,000 01/02/2014 02/02/2014
222222 321 A 0,101 06/01/2014 12/01/2014
222222 321 A 0,101 20/01/2014 26/01/2014
222222 321 A 0,101 27/01/2014 31/01/2014
222222 321 B 2,000 06/01/2014 12/01/2014
222222 321 B 2,000 20/01/2014 26/01/2014
222222 321 B 2,000 27/01/2014 31/01/2014
222222 321 C 8,320 06/01/2014 12/01/2014
222222 321 C 8,320 20/01/2014 26/01/2014
222222 321 C 8,320 27/01/2014 31/01/2014
333333 444 A 0,297 20/01/2014 26/01/2014

merci d'avance

Bonjour,

Soyons clairs...
Tu veux sur une seule ligne la date de début et la date de fin si les colonnes SKU1 SKU2 Remises et Taux sont identiques?
Si oui, de qu'elles colonnes parle t'on ? A B C et D? dates en E et F?
tu veux ta "récap" dans la même feuille? une autre?

Salut Franck ,

Désolé de se retour tardif, merci de ton aide en tout cas. Les macros sont super évoluées, je connaissait pas.
Malheureusement le code ne fonctionne pas.
Il semblerait que ça consolide quelques valeurs au début, mais les lignes qui deviennent du coup inutiles ne disparaissent pas.
Egalement j'ai l'impression qu'il ne prend pas en compte les petits intervalles (Soit supérieur à un jour entre deux dates).
Comment faire pour t'envoyer le fichier. Peut être que ça pourrait facilité ce que j'essai de te dire.
Merci d'avance,
Laurent

en cherchant sur les forum j'ai trouve cijoint.com pour déposer le fichier.
le lien est le suivant : https://www.cjoint.com/?3LnkNcLVbvI
le document s'appel rangement modif MD

Salut,

Tes données ne sont pas triées.....

3538280054743	613823	A	1,000	01/01/2014
3538280052756	613812	B	1,000	01/01/2014
3538280052756	613812	B	1,000	06/01/2014
3538280052756	613812	B	1,000	13/01/2014
3538280052756	613812	B	1,000	20/01/2014
3538280052756	613812	B	1,000	27/01/2014
3538280052756	613812	B	1,000	03/02/2014
3538280052756	613812	B	1,000	10/02/2014
3538280054743	613823	B	1,000	01/01/2014
3538280054743	613823	B	1,000	06/01/2014
3538280054743	613823	B	1,000	13/01/2014
3538280054743	613823	B	2,000	20/01/2014
3538280054743	613823	B	2,000	27/01/2014
3538280054743	613823	B	2,000	03/02/2014
3538280054743	613823	B	2,000	10/02/2014
3538280054743	613823	A	1,000	06/01/2014
3538280054743	613823	A	1,000	13/01/2014
3538280054743	613823	A	1,000	20/01/2014
3538280054743	613823	A	1,000	27/01/2014

Trop fort le gars... l'oeil de lynx. désolé,
J'ai refait le tri. et effectivement ça marche mieux. Cependant, entre deux lignes dans certains cas, y a un trou de deux jours. la macro fait pas la différence, elle va jusqu'à la fin. J'ai mis en couleur dans le fichier cette fois si.
Egalement comment faire pour faire disparaître les lignes qui deviennent inutiles?
nouveau lien : https://www.cjoint.com/?3LnmiyrJHsd nom: Rangement MD Modif V1
Merci

Cependant, entre deux lignes dans certains cas, y a un trou de deux jours. la macro fait pas la différence, elle va jusqu'à la fin.
Euh ça n'était pas précisé....
Attention aux demandes qui évoluent, certains moments il n'est plus possible de faire en sorte que le code soit adaptable.
Bon ici, ça à l'air de rouler.
Dis moi...

Sub Regroupe()
Dim Dico As Object, Donnees(), Temp(), T_Out()
Dim i As Long, ind As Long
Dim DepartTemp As Date, FinTemp As Date

Set Dico = CreateObject("Scripting.Dictionary")
ind = 0
Donnees = Range("A2:F" & Range("A" & Rows.Count).End(xlUp).Row)

For i = LBound(Donnees) To UBound(Donnees)
    If Not Dico.exists(Donnees(i, 1) & "¤" & Donnees(i, 2) & "¤" & Donnees(i, 3) & "¤" & Donnees(i, 4)) Then
        Dico(Donnees(i, 1) & "¤" & Donnees(i, 2) & "¤" & Donnees(i, 3) & "¤" & Donnees(i, 4)) = ""
        ind = ind + 1
        ReDim Preserve T_Out(1 To 6, 1 To ind)
        T_Out(5, ind) = Donnees(i, 5)
        T_Out(6, ind) = Donnees(i, 6)
    Else
        If Donnees(i, 1) & Donnees(i, 2) & Donnees(i, 3) & Donnees(i, 4) = Donnees(i - 1, 1) & Donnees(i - 1, 2) & Donnees(i - 1, 3) & Donnees(i - 1, 4) Then
            DepartTemp = Donnees(i - 1, 5)
            FinTemp = Donnees(i - 1, 6)
            If Donnees(i, 5) > FinTemp + 1 Then
                ind = ind + 1
                ReDim Preserve T_Out(1 To 6, 1 To ind)
                T_Out(1, ind) = "BIP"
                T_Out(5, ind) = Donnees(i, 5)
                T_Out(6, ind) = Donnees(i, 6)
            Else
                If Donnees(i, 5) < DepartTemp Then T_Out(5, ind) = Donnees(i, 5)
                If Donnees(i, 6) > FinTemp Then T_Out(6, ind) = Donnees(i, 6)
            End If
        End If
    End If
Next i

Temp = Dico.Keys
ind = 1

For i = LBound(Temp) To UBound(Temp)
    Do While T_Out(1, ind) = "BIP"
        T_Out(1, ind) = Split(Temp(i - 1), "¤")(0)
        T_Out(2, ind) = Split(Temp(i - 1), "¤")(1)
        T_Out(3, ind) = Split(Temp(i - 1), "¤")(2)
        T_Out(4, ind) = Split(Temp(i - 1), "¤")(3)
        ind = ind + 1
    Loop
    T_Out(1, ind) = Split(Temp(i), "¤")(0)
    T_Out(2, ind) = Split(Temp(i), "¤")(1)
    T_Out(3, ind) = Split(Temp(i), "¤")(2)
    T_Out(4, ind) = Split(Temp(i), "¤")(3)
    ind = ind + 1
Next i

With Sheets("MODIF MD")
    If .Range("A" & Rows.Count).End(xlUp).Row > 1 Then .Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Delete
    .Columns("A:A").NumberFormat = "@"
    .Range("A2").Resize(UBound(T_Out, 2), UBound(T_Out, 1)) = Application.Transpose(T_Out)
End With
End Sub

y a probleme au niveau du tri, y une reference qui apparait a la fin hors elle devrait etre avec l'avant dernier groupe de ref
y a une erreur déja identifiée dans la macro au niveau de 'balayage des colonnes de l'onglet conso
TbIntermediaire(4, l) = TbOngletConso(6, k) 'valeurs modifiées, au lieu du 6 c'est i
au niveau des dates il y a inversion en entre le jour et le mois pour toutes les valeurs qui ont comme mois janvier

On avance.
C'est bien.

Qu'en penses tu :
https://www.cjoint.com/c/CLsmKGx2AFo

ps : le regroupement par période n'est pas encore fait...

OUI C CLAIR :)) merci ça à l'air bon

plus qu'à regrouper par périodes.....

A tester...
https://www.cjoint.com/c/CLsnOKT7sl3