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

Macro Copier Coller avec boucle

Créer une discussion

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

balinos

XLDnaute Nouveau
Bonjour le Forum!!

Je souhaiterais creer une macro qui me permettrais de coller certaines cellules d'une feuille a une autre (dans un meme fichier) apres une validation par un double click. Je m'explique...

Si vous regardez mon fichier joint, j'aimerais que lorsque je double click dans la cellule H2 de la collonne Validation (feuille Data), les donnees des cellules A2,B2,C2,D2,E2 se colle respectivement dans les cellules A2,B2,C2,D2 et E2 (ou en ligne 3 si il ya deja des donnees..) de la feuille Bilan. Je sais faire une macro qui copie colle juste le contenu (et non pas la formule) d'une cellule dans une autre grace a l'enregistrement de macro mais je ne sais pas comment inserer une boucle dans la macro (afin de ne pas ecrire une ligne vba pour chaque ligne de mon tableau data) et surtout je ne sais pas comment faire pour que la macro copie les donnees a la suite dans le tableau bilan et donc detecte si la ligne du dessus est vide...

Voila, j'espere que j'ai ete assez clair dans mes explications et que quelqu'un pourra m'aider a resoudre mon probleme!!!

Merci d'avance a tout le monde!!!
 

Pièces jointes

Trier par date Trier par votes
Re : Macro Copier Coller avec boucle

Bonjour,

voici une proposition
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 8 Then Exit Sub
Range(Target.Offset(0, -7), Target.Offset(0, -3)).Copy Sheets("Bilan").Range("A65536").End(xlUp).Offset(1, 0)
End Sub

Il faut mettre ce code dans la feuille “Data” : bouton droit sur l’onglet de la feuille, visualiser le code et met le code dans la fenêtre ouverte.

Pour info, c’est une macro évenementielle.
 
Vote positif 0 Vote négatif
Re : Macro Copier Coller avec boucle

Re bonjour!

En fait j'ai une derniere petite question...

Vos macros sont tres bien pour ce que je veux faire mais je voulais juste savoir comment rajouter une ligne disant de ne copier que la valeur?? Car normalement je fais ca avec un paste special mais la ya ke copy....

Merci encore!!
 
Vote positif 0 Vote négatif
Re : Macro Copier Coller avec boucle

Re,
bonjour jp14,
remplace
Code: 
Range(Target.Offset(0, -7), Target.Offset(0, -3)).Copy Sheets("Bilan").Range("A65536").End(xlUp).Offset(1, 0)
par
Code: 
Range(Target.Offset(0, -7), Target.Offset(0, -3)).Copy
Sheets("Bilan").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
Voilà.
 
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ésolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
290
AtTheOne
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
366
benjy555
B
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
256
xavieralvaro
X
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
280
Phil69970
S
  • Question Question
XL pour MAC récupérer les valeurs d’une plage colonne continue à partir d’une plage discontinue.
Réponses
12
Affichages
479
sergio_bzh
S
S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
207
job75
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
121
dadaze
D
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
944
fanfan38
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
120
dadaze
D
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
337
chinel
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
584
job75
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
866
Krome36
K
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
411
Nico77
N
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
557
Phil69970
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
425
sylvanu
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
151
AlineJ
A
O
  • Question Question
Autres copier données selon critères
Réponses
1
Affichages
82
Nain porte quoi
N
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
324
sylvanu
N
  • Résolu(e)
Microsoft 365 Ecrire une formule de calcul en Vba Excel
24 25 26
Réponses
385
Affichages
14 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…