A voir également:
- Comment adapter une macro à plusieurs boutons
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Lancer une macro dans une macro - Astuces et Solutions
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
28 oct. 2011 à 09:28
28 oct. 2011 à 09:28
Plutôt que de mettre des dizaines de boutons, le plus simple serait d'utiliser une macro événementielle (par exemple sur clic droit) pour copier les cellules désirées.
Il faudrait que tu nous dises à quel endroit de la feuille « Devis de référence » il faut copier ces informations.
Voici un exemple qui copie les 4 formules (ne serait-ce pas plutôt les valeurs qu'il faut copier ?) en A1 de « Devis de référence »
Fais un clic droit sur l'onglet de la feuille ou se trouvent les valeurs à copier / visualiser le code / et copie y le code ci-dessous.
Un clic droit dans la cellule F5 (ou F6, ou ...) copie les valeurs
Il faudrait que tu nous dises à quel endroit de la feuille « Devis de référence » il faut copier ces informations.
Voici un exemple qui copie les 4 formules (ne serait-ce pas plutôt les valeurs qu'il faut copier ?) en A1 de « Devis de référence »
Fais un clic droit sur l'onglet de la feuille ou se trouvent les valeurs à copier / visualiser le code / et copie y le code ci-dessous.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns("F")) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
Target.Resize(1, 4).Copy
Sheets("Devis de référence").Cells(1, 1).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Cancel = True
End Sub
Un clic droit dans la cellule F5 (ou F6, ou ...) copie les valeurs
28 oct. 2011 à 09:44
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns("F")) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
Target.Resize(1, 4).Copy
Sheets("Devis de référence").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Cancel = True
End Sub
En tout cas merci encore, tu m'as réconcilié avec mon ordi et les forums sur internet par la même occasion ;-) Bonne journée à toi.