Discussion :

[samihichem]

bonjours,
je veux créer une macro
je veux insérer des ligne par rapport a une valeur dans la ligne au_dessus
exemple
A1= 10 insérer 10 ligne
coller les données dans
C1,E1,F1
pour B1 C'est une date alors sera la date de B2=B1+1,B3=B2+1..........B10=B9+1
je vous envoi en pièce jointe la table.

Mercie d'avance!

[Marc-L]

Bonjour,

pour créer le code, activer le Générateur de macros puis effectuer les manipulations : une base est livrée sur un plateau !



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[samihichem]

Salut je suis vraiment nouveau dans le vba excel
so can u please tel me exactly se que je dois faire please

[Docmarti]

Bonjour

Essaie ceci:

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
Sub tt()
 
    Dim debut As Long, lig As Long, nbr As Long, i As Long, period As String, r
    Dim ligne As Range
 
    debut = 2
    lig = debut + 1
    period = Cells(lig - 1, 1)
    While period <> "n"
        If Val(Cells(lig - 1, 1)) > 0 Then
            nbr = Cells(lig - 1, 1)
        Else
            nbr = 0
        End If
        For i = 1 To nbr - 1
            r = lig & ":" & lig
            Set ligne = Rows(r)
            Application.CutCopyMode = False
            ligne.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Set r = Range("B" & lig - 1 & ":" & "F" & lig - 1)
            r.AutoFill Destination:=r.Resize(2), Type:=xlFillDefault
            lig = lig + 1
        Next
        lig = lig + 1
 
        period = Cells(lig - 1, 1)
    Wend
 
End Sub

[samihichem]

Bonjour Docmarti
jai essayé le code la macro march très bien
sauf un petit problème de collage
lorsque j'ai un nombre c'est ok
mais lorseque jai par exemple C1 dans la ligne ça me donne une chaine dans les lignes ci dessous
C1
C2
C3
cordialement
samihichem

[Docmarti]

sauf un petit problème de collage
lorsque j'ai un nombre c'est ok
mais lorseque jai par exemple C1 dans la ligne ça me donne une chaine dans les lignes ci dessous
C1
C2
C3
cordialement
samihichem

Avec la poignée de recopie, "C1" sera incrémenté ou pas, dépendamment de sa position dans le champs à recopier. Idem pour un nombre qui sera incrémenté ou pas selon sa position dans le champs à recopier. Pour supprimer l'incrémentation, tu n'as qu'à copier les valeurs originales vers la ligne destination.

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
Sub tt()
 
    Dim debut As Long, lig As Long, nbr As Long, i As Long, period As String, r, rc, rc2
    Dim ligne As Range
 
    debut = 2
    lig = debut + 1
    period = Cells(lig - 1, 1)
    While period <> "n"
        If Val(Cells(lig - 1, 1)) > 0 Then
            nbr = Cells(lig - 1, 1)
        Else
            nbr = 0
        End If
        For i = 1 To nbr - 1
            r = lig & ":" & lig
            Set ligne = Rows(r)
            Application.CutCopyMode = False
            ligne.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Set r = Range("B" & lig - 1 & ":" & "F" & lig - 1)
            r.AutoFill Destination:=r.Resize(2), Type:=xlFillDefault
            'Copie des valeurs qui ne doivent pas être incrémentées
            Set rc = Range("C" & lig - 1 & ":" & "F" & lig - 1)
            Set rc2 = rc.Offset(1)
            rc2.Value = rc.Value
 
            lig = lig + 1
        Next
        lig = lig + 1
 
        period = Cells(lig - 1, 1)
    Wend
 
End Sub