selectionchange perd la copy (Cut, Paste) Résolu/Fermé

Question

Bonjour,
Sur Excel 2007
 j'ai fait un code pour vider une colonne quand la sélection change de sellule.

par contre je ne peux plus utiliser la fonction copier coller (Ctrl C, Ctrl V)

voici mon code 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Selection.Copy
COP = Selection
AA = Selection.Address
Sheets("T-off Tuyau").Range("F1") = COP

Sheets("Feuil1").Range("M3:M51").ClearContents
Sheets("Feuil1").Range("N3:N51").ClearContents
Sheets("T-off Tuyau").Range(AA).Copy


End Sub


J'ai essayé plusieurs trucs mais je n'y arrive pas.
Pouvez vous m'aider. 

merci.

Vince

psychoman · Answer

Bonjour,

J'ai réglé mon problème en isolant le code sur les 2 colonnes nécessaires en mettant une fonction si. pour laisser la fonction copier coller disponible sur les autres colonnes. voici le code : 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Column = 14 Then
Sheets("Feuil1").Range("M3:M51").ClearContents
Sheets("Feuil1").Range("N3:N51").ClearContents
End If
If Selection.Column = 15 Then
Sheets("Feuil1").Range("M3:M51").ClearContents
Sheets("Feuil1").Range("N3:N51").ClearContents
End If


End Sub

a+
Vince.

Selectionchange perd la copy (Cut, Paste)

1 réponse

Discussions similaires