Discussion :

[trezz]

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 ?

[EngueEngue]

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

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
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 :

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

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

[trezz]

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 :

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

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