Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour copier coller des formules d'une cellule à une autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Barbapapa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Barbapapa

XLDnaute Occasionnel
Bonjour à tous ! j'ai encore grand besoin de vous. N'étant pas arrivé à résoudre mon problème tout seul je m'en remet à vous... une nouvelle fois.
Dans un tableau, j'ai besoin d'une macro pour pouvoir copier/coller le contenu de cellules au moyen du double clic.
Comme il est toujours très compliqué de s'expliquer j'ai mis un fichier avec un exemple et une explication détaillée.

Je vous remercie d'avance et vous souhaite à tous une très bonne journée ! 🙂
Frédéric
 

Pièces jointes

Trier par date Trier par votes
Re : Macro pour copier coller des formules d'une cellule à une autre

Bonjour Barbapapa,

Je pense que si ta formule est dans la case dessous, toujours la même, et qu'elle ne sert quà être recopiée,
pourquoi ne pas la mettre dans la macro ?
Un exemple en PJ, si je me trompe, tu aura toujours le code...
Cdlt
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour copier coller des formules d'une cellule à une autre

Bonjour et merci sixair pour ton aide, tout fonctionne très bien avec ta macro.
Cela n'empêche pas que j'aimerai bien avoir une macro pour copier coller comme expliqué dans mon message pour plusieurs raisons.
D'une part j'aurai du mal à modifier la formule dans la macro si nécessaire et de plus cela pourrait m'être utile pour d'autres tableaux.
Mais ta proposition est déjà super utile pour moi et je t'en remercie encore une fois.
Bonne journée !
Frédéric
 
Vote positif 0 Vote négatif
Re : Macro pour copier coller des formules d'une cellule à une autre

Salut Barbapapa,
et hop ! barbatruc...

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("E:G")) Is Nothing Then Exit Sub
If Not Target.Row Mod 2 = 0 Then Exit Sub
Target.Formula = Target.Offset(1, 0).Formula
Cancel = True
End Sub

Evènement sur les colonnes E à G, lignes paires, copie de la formule.

Si tu préfères la valeur à la formule
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("E:G")) Is Nothing Then Exit Sub
If Not Target.Row Mod 2 = 0 Then Exit Sub
Target.Formula = Target.Offset(1, 0).Formula
Target.Value = Target.Value
Cancel = True
End Sub
Cdlt
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour copier coller des formules d'une cellule à une autre

Bonjour et encore et encore merci sixair ! là au moins, j'aurai le choix.

Je vous souhaite une très bonne journée et un très bon week-end à tous !
Hupla hup!
Frédéric
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL 2016 récupérer une image depuis un SharePoint et la coller dans une cellule
Réponses
4
Affichages
164
halecs93
D
  • Résolu(e)
Microsoft 365 macro qui ne fonctionne pas pour colorisation d'une carte
Réponses
8
Affichages
353
job75
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
197
sylvanu
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
469
fenec
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
299
job75
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
254
treza88
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
698
MANU64360
M
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
522
laurent950
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
657
sylvanu
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
959
TooFatBoy
J
  • Résolu(e)
Microsoft 365 SI cellule autre feuille est égal à oui
Réponses
7
Affichages
319
juju91
J
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
250
SPARKLETOF
S
P
  • Résolu(e)
Microsoft 365 Copier coller les mêmes valeurs dans la même cellule
Réponses
12
Affichages
499
job75
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
419
MATLEA
M
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
426
DAVID-44-
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
374
StéphaneDeLà
S
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
684
sylvanu
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
126
Eric 888
H
  • Question Question
XL 2021 *RESOLU* Cellule personnalisée excel
Réponses
2
Affichages
335
hades
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…