Selectionchange perd la copy (Cut, Paste)
Résolu
psychoman
Messages postés
30
Statut
Membre
-
psychoman Messages postés 30 Statut Membre -
psychoman Messages postés 30 Statut Membre -
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
- Super copy - Télécharger - Gestion de fichiers
- Pourquoi sfr perd des clients - Guide
- Si je désinstalle messenger est ce que je perd tout - Forum Facebook Messenger
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.
