Copie presse-papiers
Résolu
touroul
Messages postés
509
Date d'inscription
Statut
Membre
Dernière intervention
-
Aimekoffi225 -
Aimekoffi225 -
Bonjour la communauté.
J'aurais besoin de réaliser une simple copie de l'ActiveCell dans le presse-papier (pour aller le coller ailleurs).
De plus, j'aurais besoin de limiter cette fonction aux cellules B3:B20 sur les feuilles "Soudure" et "Collage".
J'en suis là :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ("B3:B20")
Then Range.ActiveCell.Value.Select
Selection.Copy
End Sub
Puis-je vous demander un coup de main ?
Merci d'avance !
J'aurais besoin de réaliser une simple copie de l'ActiveCell dans le presse-papier (pour aller le coller ailleurs).
De plus, j'aurais besoin de limiter cette fonction aux cellules B3:B20 sur les feuilles "Soudure" et "Collage".
J'en suis là :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ("B3:B20")
Then Range.ActiveCell.Value.Select
Selection.Copy
End Sub
Puis-je vous demander un coup de main ?
Merci d'avance !
A voir également:
- Copie presse-papiers
- Presse papier - Guide
- Presse papiers - Guide
- Copie cachée - Guide
- Presse papier facebook ✓ - Forum Matériel & Système
- Super copie - Télécharger - Gestion de fichiers
7 réponses
Bonjour Gyrus
C'est pour simplifier l'opération qui est réalisée de nombreuses fois tous les jours.
Un clic dans la cellule, c'est plus simple qu'un clic + 1 Ctrl-C ...
Merci à plus
C'est pour simplifier l'opération qui est réalisée de nombreuses fois tous les jours.
Un clic dans la cellule, c'est plus simple qu'un clic + 1 Ctrl-C ...
Merci à plus
Essaie avec :
Il te faudra quand même faire Ctrl + V pour le collage :D
A+
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:B20")) Is Nothing Then
ActiveCell.Copy
End If
End Sub
Il te faudra quand même faire Ctrl + V pour le collage :D
A+
Merci pour ton code.
Mais pas de succès chez moi.
Exemple : je place ma souris en B9 : je colle dans Word : rien ...
Je l'ai mis dans This Workbook, peut-être pas une bonne idée .
En tout cas merci pour l'aide, c'est sympa
@ plus
Mais pas de succès chez moi.
Exemple : je place ma souris en B9 : je colle dans Word : rien ...
Je l'ai mis dans This Workbook, peut-être pas une bonne idée .
En tout cas merci pour l'aide, c'est sympa
@ plus
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Il s'agit d'une procédure évènementielle Worksheet.SelectionChange qui s'applique à la feuille concernée.
Dans ton cas, il faut donc placer cette procédure dans le module de la feuille "Soudure" et dans le module de la feuille "Collage".
Une autre solution consisterait à placer une procédure Workbook.SheetSelectionChange dans le module ThisWorkbook. Dans ce cas, il faudrait définir dans la procédure les feuilles concernées.
A+
Dans ton cas, il faut donc placer cette procédure dans le module de la feuille "Soudure" et dans le module de la feuille "Collage".
Une autre solution consisterait à placer une procédure Workbook.SheetSelectionChange dans le module ThisWorkbook. Dans ce cas, il faudrait définir dans la procédure les feuilles concernées.
A+