Selectionchange perd la copy (Cut, Paste)
Résolu
psychoman
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
psychoman Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
psychoman Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Selectionchange perd la copy (Cut, Paste)
- Cap cut avis - Télécharger - Montage & Édition
- Exact audio copy - Télécharger - Conversion & Extraction
- Pourquoi sfr perd des clients - Guide
- Super copy - Télécharger - Gestion de fichiers
- Copy protect - Télécharger - Chiffrement
1 réponse
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.
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.