Discussion :

[ptitsoleil87]

Bonjour,
j'aimerai savoir s'il est possible d'insérer une ligne tout en conservant les formules de la ligne que l'on recopie.
Mon code :

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
 
Private Sub InsertionLigne_Click()
Dim i As Integer
 
i = 5
 
ActiveSheet.Unprotect
 
While Cells(i, 1) <> "Total Enfants"
    i = i + 1
Wend
 
If Cells(i, 1) = "Total Enfants" Then
    If Cells(i - 1, 1) <> "" Then
        MsgBox "Il faut que la dernière ligne du tableau soit vide!", vbCritical
        Exit Sub
    Else
        Rows(i - 1 & ":" & i - 1).Select
        Selection.Insert shift:=xlDown
    End If
End If
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
End Sub

Le problème, vous l'avez compris, c'est que j'ai bien ma nouvelle ligne, mais à l'intérieur des cellules, je ne retrouve plus mes formules... (qui sont du type recherchev, nbval...)
D'avance, merci pour votre aide à tous!

[ouskel'n'or]

Hello,

Pour le principe, tu insères la ligne à insérer vide, tu sélectionnes la dernière ligne contenant les formules, tu fais copier, tu descends d'une lignes, et tu fais collage spécial -> Formules.

Code :

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

1
2
3
4
5
6
    Selection.Insert Shift:=xlDown
    NoLigne = activecell.row    'No la ligne insérée
    Rows(i).Select      'Ligne où se trouvent des formules à copier
    Selection.Copy
    Rows(NoLigne ).Select
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone

Tu dis

A+

[ptitsoleil87]

Ca marche nickel...
Merci beaucoup à toi ouskel'n'or! quel nom, dur à recopier...
Bonne fin de journée à tous.