Discussion :

[yfchauer]

Bonsoir à tous,
Je recherche comment créer une macro sous Excel qui me permettrait d'incrémenter la valeur des cellules selon le nombre saisie dans une autre cellule
Ex.
si je saisis 15 en c5
Dans la partie "Détail" il me rajoute 14 lignes
qui auront dans les cellules
C12 = c11+31 et ainsi de suite jusqu'à la dernière ligne.
D12 = d11+1 et ainsi de suite
E12; la reproduction de la formule saisie en E11
Cela m'éviterait de faire du tirer / glisser à chaque fois que les informations changent

Je ne sais même pas si cela est possible
Mais pour mieux comprendre la demande, ci-joint une copie du fichier.

Merci d'avance pour votre aide.

[QuestVba]

Bonjour,

vite fais un truc du genre

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
Sub h()
Duree = Cells(5, 3).Value
PeriodeDepart = Cells(11, 3).Row
IndexPeriode = Cells(11, 3).Value
IndexMois = Cells(11, 4).Value
 
For i = 1 To Duree - 1
    Cells(PeriodeDepart + i, 3) = Format(DateAdd("m", i, IndexPeriode), "mmmm-yy") 'incrémente ton mois
 
    Cells(PeriodeDepart + i, 4) = IndexMois + i 'incrémente NB_Mensual
 
    Cells(PeriodeDepart + i - 1, 5).Activate
    Selection.Copy
    Cells(PeriodeDepart + i, 5).Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False 'copie formule
 
    Cells(PeriodeDepart + i - 1, 6).Activate
    Selection.Copy
    Cells(PeriodeDepart + i, 6).Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False 'copie formule
 
    Cells(PeriodeDepart + i - 1, 7).Activate
    Selection.Copy
    Cells(PeriodeDepart + i, 7).Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False 'copie formule
 
Next i
 
End Sub

[yfchauer]

Bonjour QuestVba,

Merci de la réponse, cela fonctionne bien.
J'aimerais savoir s'il est possible de réinitialiser la partie "DETAIL"
à chaque saisie de nouvelles données
Cela permettrait d'avoir un tableau en adéquation avec les données saisies.
J'ai constaté que si je saisis une durée inférieure à la valeur précédente.
Dans la partie détail, l'incrémentation précédente reste visible.

En plus serait-il possible d'avoir la cellule "Total XX mois " sur la ligne +1 suivant les dernières données incrémentées?

Une fois de plus, Merci pour votre aide

[mercatog]

Bonjour
En utilisant l'évènement Change de la feuille (code à mettre dans le module de ta feuille)

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastLig As Integer, m As Integer
 
If Not Intersect(Target, Range("C5")) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If MsgBox("Voulez vous réinitialiser la feuille?" & vbNewLine & "Les données détail seront effacées", vbDefaultButton2 + vbOKCancel) = vbOK Then
        LastLig = ActiveSheet.UsedRange.Rows.Count
        If LastLig > 11 Then Rows(11 & ":" & LastLig).ClearContents
 
        m = Val(Range("C5"))
        If m > 0 Then
 
            With Range("B11:B" & m + 10)
                .Formula = "=EDATE(TODAY(),ROW()-11)"
                .NumberFormat = "mmm-yy"
                .Value = .Value
            End With
 
            With Range("C11:C" & m + 10)
                .Formula = "=ROW()-10"
                .Value = .Value
            End With
 
            Range("B" & m + 12).Value = "Total " & m & " mois"
            Range("E" & m + 12).Resize(1, 3).Formula = "=SUM(E11:E" & m + 10 & ")"
        End If
    Else
        Application.Undo
    End If
    Application.EnableEvents = True
End If
End Sub

[yfchauer]

Bonjour mercatog,

Merci de code, il fonctionne bien, malgré le décalage des mois en b11 et en c11, il m'affiche la date à partir de 1900.
Après modification, la date s'affiche à partir de c11
cela me convient,

Une de fois de plus merci de pour votre aide