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

Macro imbriquée ou à la suite

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion burovil
  • 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

burovil

Guest
Bonjour,

Voilà plusieurs jours que je cherche sur différents forums sans trouver la solution à mon problème.

J'ai deux feuilles Excel, l'une sert à enregistrer (temporairement) des infos sur un produit (n° de série, type, marque...). Une fois les champs remplis, ils doivent être copiés sur la seconde feuille qui recueille l'ensemble des produits de ce client.
J'ai donc fait une macro qui copie tous les éléments sur la feuille 2 puis les efface de la feuille 1.
Jusque là tout va bien, cela fonctionne.
Mon souci est que lorsque j'enregistre un deuxième produit, ma macro colle ses infos au même endroit que précédemment.
Je souhaiterai donc qu'elle les colle dessous.
Tout sachant que je suis plus que débutante en macro (j'ai utilisé le pas à pas pour la réaliser...)
Ci-dessous ma macro et joint mon fichier

Range("C2:C10").Select
Selection.Copy
Sheets("Feuil10").Select
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Nouveau bien").Select
Selection.ClearContents

End Sub

D'avance merci à tout ceux qui voudront bien m'aider.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Macro imbriquée ou à la suite

Bonjour et bienvenue parmi nous,

A mon avis tu devrais faire un Copy Range("ta cellule de départ" & Cells(Rows.Count, le nombre de cellules décalées (exemple 25 pour Y).End(xlUp).Row + 1)

Tu nous dis si tu peux adapter à ton fichier

a+
 
Vote positif 0 Vote négatif
Re : Macro imbriquée ou à la suite

Bonjour

Toujours plus facile d'essayer sur un petit classeur exemple joint à la demande...
essaie cela

Code: 
Ligne=sheets("feuil10").Range("B1").end(xldown).row
Sheets("Nouveau bien").Range("C2:C10").copy destination:= Sheets("Feuil10").Range("B" & ligne)
    Sheets("Nouveau bien").ClearContents

Ce lien n'existe plus
tu y trouveras des tutos pour être plus à l'aise avec le VBA et notamment pour nettoyer le code de l'enregistreur qui met des select à tour de bras qui ralentissent et ne servent à rien.
 
Vote positif 0 Vote négatif
Re : Macro imbriquée ou à la suite

Bonjour à tous,
Petit souci d'où la lenteur du retour...
Encore merci à JJ1 et Misange de m'avoir répondu même si j'ai eu l'occasion de trouver la solution autrement. Ceci dit, je poste LA solution qui fonctionne à merveille en espérant qu'elle puisse aider d'autres personnes :

si("b4")nonvide decaler right column+1
Range("B7:C26").Select
Selection.Copy
Sheets("Feuil10").Select
Range("A1048576").Select

Selection.End(xlUp).Select
ActiveCell.Offset(6, 0).Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False
Sheets("Nouveau bien").Select
Range("C7:C26").Select
Selection.ClearContents

Encore merci à tous ceux qui font vivre ces forums qui nous permettent d'avancer et de nous former.

Par contre, je ne vois pas comment faire pour mettre le statut "résolu"...
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
508
job75
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
600
AtTheOne
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
502
xavieralvaro
X
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
361
MATLEA
M
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
318
Phil69970
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
405
sylvanu
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
919
Nounours4173
N
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
510
sylvanu
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
488
Yogean
Y
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
460
caseras
C
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
692
kiki29
M
  • Résolu(e)
Microsoft 365 Problème Excel Macros Liaison Ppt
Réponses
11
Affichages
663
D. HANIB
D
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
518
zendb
Z
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
694
gui22
G
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
616
francha62
F
M
  • Question Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
1 K
MCO2406
M
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
573
Francky79
F
F
  • Question Question
XL 2010 Appeler une macro dans une autre
Réponses
5
Affichages
697
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…