Insertion de ligne

Version imprimable

Insertion de ligne

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:

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 ?

Deux clics ou un, choisis celui que tu veux.
A mettre dans le module de la feuille en question

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "+" And Target.Column = 2 Then
For i = 1 To 3
ActiveCell.Offset(1).EntireRow.Insert
Next i
End If
End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "+" And Target.Column = 2 Then
For i = 1 To 3
ActiveCell.Offset(1).EntireRow.Insert
Next i
End If
End Sub

Si juste une ligne 3 lignes en dessous: voilà

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "+" And Target.Column = 2 Then
 
ActiveCell.Offset(4).EntireRow.Insert
 
End If
End Sub

Impeccable pour l'insertion de ligne (c'était comme dans ton second message)

Mais comme faire pour étirer la formule en "O"?.

Es-que quelqu'un sait comment je pourrait étirer la formule qui se trouve en colonne "P" dans la ligne qui est insérer par cette Macro (toujours en colonne "P"): ?
Code:

1 2 3 4 5 6 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "+" And Target.Column = 2 Then ActiveCell.Offset(3).EntireRow.insert [A2].Select End If End sub