Discussion :

[supercopain]

Bonjour tout le monde,
pas très doué en VBA...
J'ai trouvé ce code ci-dessous qui fonctionne très bien avec un simple classeur excel, par contre j'essai de le faire fonctionner avec un tableau de donnée la macro plante au moment de supprimer et décaler la ligne,

comment je peux lui indiquer que j'utilise un tableau de données?

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("I:I")) Is Nothing Then
    If Target = "R" Then
        Target = "£"
    ElseIf Target = "£" Then
        Target = "R"
    Else
        Target = "£"
    End If
    If Target.Column = 9 Then
        Range(Cells(Target.Row, "A"), Cells(Target.Row, "i")).Copy
        With Sheets("Feuil2")
            .Range("A" & .Range("A" & Rows.Count).End(xlUp)(2).Row).PasteSpecial xlPasteAll
        End With

        Range(Cells(Target.Row, "A"), Cells(Target.Row, "i")).Delete Shift:=xlUp

    End If
End If
End Sub

[EricDgn]

Bonjour,

Avec ma version Excel 365, votre macro fonctionne. Elle pourrait cependant être simplifiée et ramenée à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 9 Then
        If Target = "£" Then
            Target = "R"
        Else
            Target = "£"
        End If
        Range(Cells(Target.Row, "A"), Cells(Target.Row, "i")).Copy
        Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteAll
        Rows(Target.Row).Delete Shift:=xlUp
    End If
End Sub

Cordialement.