Bonjour

J'ai un problème avec un classeur, pour l'instant j'ai une macro qui quand je clic sur "B6" insert/supprime une ligne en 9. Mais je suis amené à ajouter plusieurs fois le même type de tableau alors les premier tableau n'ont plus la fonction insertion/suppression de ligne.

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$6" Then
        Application.EnableEvents = False
        Rows(9).insert
        [O8].AutoFill [O8:O9]
        [A1].Select
        Application.EnableEvents = True
    End If
 If Target.Address = "$B$7" Then
    Application.EnableEvents = False
     Rows(9).Delete
     [A1].Select
     Application.EnableEvents = True
    End If
End Sub

Serait-il possible de faire en sorte que quand je clic sur une cellule B ou il y a inscrit un "+" la macro insert une ligne 3 ligne en dessous ?