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!