Discussion :

[Argonan]

Bonjours à tous...

J'ai un problème relativement simple (du moins à expliquer ).

J'ai un tableau (voir le fichier ci-joint) dans laquelle j'ai une macro qui insere une ligne vierge apres les samedis et les dimanches...

Je souhaiterais juste que les lignes qui sont inserées contiennes les formule de la ligne du dessus...

Si vous avez une solution, n'hesitez pas...

merci d'avance pour vos lumières

[d0n32]

Salut,

Regarde du côté de la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

taCellule.FormulaR1C1

qui te permet d'entrer la formule à insérer dans ta cellule
L'enregistreur de macro peut t'aider pour la syntaxe à adopter

[mercatog]

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
Sub Insert()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    If LastLig > 3 Then
        For i = LastLig To 4 Step -1
            If IsDate(.Range("A" & i).Value) Then
                If DatePart("w", .Range("A" & i).Value, vbSaturday) <= 2 Then
                    .Rows(i).Copy
                    .Rows(i + 1).Insert
                    Application.CutCopyMode = False
                    On Error Resume Next
                    .Rows(i + 1).SpecialCells(xlCellTypeConstants).ClearContents
                    On Error GoTo 0
                End If
            End If
        Next i
    End If
End With
End Sub

[Argonan]

Merci beaucoup, cela m'a ennormément fait avancer !!!