Discussion :

[Accessifiante]

Bonjour,

Dommage que personne n'ait répondu à cette discussion, celle-là m'intéresserait bien aussi. Je n'ai pas besoin de diviser les montants cependant, juste de créer autant de lignes qu'il y a de mois entre les deux dates, avec en prime, bien sûr, le mois en question en colonne A par exemple. Parce que à faire à la main pour 350 enregistrements dont les dates diffèrent toutes (jusqu'à 140 mois pour certains), ça va être long.....

Bonne journée tous !

[joe.levrai]

Bonjour,

comment se présentent les données source exactement ? (une description, pas un fichier en pj svp ... une copie écran à la rigueur)

à quel endroit et comment doivent se présenter les données de sortie ?

par exemple, sur la copie écran du premier message, un code VBA sera une usine à gaz, il faut préparer le terrain :

- modifier le format des dates début et fin : utiliser 01/XX/XXXX
- éventuellement ajouter une colonne avec le nombre de mois d'intervalle, via la fonction DATEDIF(Date_Debut;Date_Fin;"m") ... bien qu'à la rigueur en VBA ça se fait facilement
- sortir la plage de sortie de l'onget pour le mettre ailleurs OU (mais pas conseillé) avoir la plage de sortie à côté de la plage source (séparée d'une ou plusieurs colonnes vides)

[Accessifiante]

Bonjour Joe,

Merci beaucoup d'avoir répondu !

En prévision d'une création "manuelle", j'avais déjà fait tout ce que tu as dit ! J'avais calculé mon nombre de mois avec Datedif pour chaque enregistrement et je comptais inserer les lignes nécessaires à la main (par groupe de 10 ou 20 tout de même ! ).... Donc voici un exemple du tableau de départ :



La macro pourrait envoyer les données sur un autre onglet, ça ne me dérange pas. Le résultat devrait ressembler à ceci (avec toutes les autres "Références" l'une à la suite de l'autre) :



Je bricole légèrement en VBA et ce cas-là est trop compliqué pour moi malheureusement.

Encore merci !

[Theze]

Bonjour,

Un truc dans ce genre ? A adapter aux besoins :

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
42
43
44
45
46
47
48
49
50
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
    Dim DateDebut As Date
    Dim DateFin As Date
    Dim NBMois As Long
    Dim Lgn As Long
 
    'défini la plage en feuille "Feuil1" sur la colonne A à partir de A2
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    'feuille qui va recevoir le tableau
    Set Fe = Worksheets("Feuil2")
 
    'entêtes
    Fe.Range("A1:B1").Value = Array("Références", "Dates")
 
    'ligne de début
    Lgn = 2
 
    For Each Cel In Plage
 
        'calcul du nombre de mois
        DateDebut = Cel.Offset(, 1).Value
        DateFin = Cel.Offset(, 2).Value
        NBMois = DateDiff("m", DateDebut, DateFin, vbMonday)
 
        With Fe
 
            'inscrit la référence en cours
            .Range(.Cells(Lgn, 1), .Cells(NBMois + Lgn - 1, 1)).Value = Cel.Value
 
            'inscrit les deux première dates de la série
            .Cells(Lgn, 2).Value = DateDebut
            .Cells(Lgn + 1, 2).Value = DateSerial(Year(DateDebut), Month(DateDebut) + 1, Day(DateDebut))
 
            'tire vers le bas
            .Range(.Cells(Lgn, 2), .Cells(Lgn + 1, 2)).AutoFill .Range(.Cells(Lgn, 2), .Cells(NBMois + Lgn - 1, 2))
 
            'pour la référence suivante
            Lgn = Lgn + NBMois
 
        End With
 
    Next Cel
 
End Sub

[Accessifiante]

Bonjour Theze !

D'abord merci pour la réponse !

Mais avec une semaine de dingue, je n'avais pas pu tester le code jusqu'à aujourd'hui...

Alors j'ai un tableau test de 5 lignes en tout, dont la première donnée est bien en A2 (Référence1 en l'occurrence).

J'obtiens le message suivant lorsque j'essaye de rouler la macro : L'indice n'appartient pas à la sélection. VBA ne pointe vers aucune ligne du code. D'où ça vient ?

Merci encore !