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

Macro: décaler la copie de cellules d'une feuille à une autre

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

Jon

XLDnaute Nouveau
Bonjour à tous,

Je suis novice en VBA et j'aurais besoin d' une macro qui copie les valeurs d'un formulaire donc de cellules qui ne sont pas à la suite (exemple: A1; H19; V25..) dans un tableau d'une autre feuille.
Exemple: A1 feuille1 copiée en A2 feuille 2; H19 feuille 1 copiée en B2 feuille 2; V25 feuille 1 copiée en C2 feuille 2.

J'arrive à faire ceci, mais j'aimerais en plus qu'à chaque fois la macro décale la copie d'une ligne pour ne pas réécrire sur les lignes précédentes et là je bloque. 😕

Enfaite le but est de créer un tableau des données rentrées dans le formulaire.


Pièce jointe: Dans la pièce jointe je voudrais que les champs "nom", "prénom", "date de naissance" soient copiés dans la tableau page2. Chaque personne saisi ses informations et à la fin on retrouve un tableau récapitulatif avec les données de chacun.

Merci 🙂
 

Pièces jointes

Trier par date Trier par votes
Re : Macro: décaler la copie de cellules d'une feuille à une autre

Merci camarchepas, c'est exactement ça! 😀

Voici la partie du code qui permet de décaler la copie:
Code: 
  With Worksheets("tableau récap")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & Derligne + 1) = Prenom
    .Range("B" & Derligne + 1) = Nom
    .Range("C" & Derligne + 1) = Naissance

Je ne connaissais ni "derligne" ni "Rows.Count", c'est très intéressant.

Reste plus qu'a adaptée la macro à mon projet, merci! 🙂
 
Vote positif 0 Vote négatif
Re : Macro: décaler la copie de cellules d'une feuille à une autre

Jon,

Petite explication pour d'aider à adapter :

Derligne est une variable de type long où l'on peut stocker une valeur numérique entière, elle aurait aussi bien pu s'appeler LigneFin ou indexe. En l’occurrence l'on va stocker ici la dernière ligne non vide dans la colonne A grace à l'instruction .end qui nous permet grace au parametre xlup de balayer la colonne A en remontant vers le haut de la feuille, depuis la ligne 65536 si Excel 2003 ou 1048576 pour Excel 2010 , l'astuce rows.count permet entre autre une portabilité entre les différentes versions.

Voilà à oui , le balayage s'arrête sur la première ligne non vide, donc si l'on veut écrire sur la 1° ligne vide disponible, il faut incrémenter de 1.

Je vois que tu mets le doigt dans l'engrenage de la programmation, bon courage, quelques nuits blanches, mais quel plaisir lorsque qu'enfin ca marche et que c'est toi le créateur .... surtout lorsque OTTO dit Dacte ,
 
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

M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
122
ChTi160
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
228
caseras
C
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
647
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
681
Max
M
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
871
arnomorize
A
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
616
steph_29120
S
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
300
spike29
S
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
266
Phil69970
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
203
fanch55
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
221
olivier Clech
O
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
502
mromain
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
676
phoceenjo
P
N
  • Résolu(e)
Microsoft 365 Copie de données d'une feuille à une autre
Réponses
4
Affichages
496
Cousinhub
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
607
gui22
G
T
  • Question Question
Microsoft 365 Faire la somme de cellules d'une colonne ayant le même nom dans une autre colonne.
Réponses
6
Affichages
214
Thibox
T
A
  • Question Question
Autres Copie avec incrémentation de cellules de type =$A$nn
Réponses
6
Affichages
140
sylvanu
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
502
Al1_44
A
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
523
Faroyo
F
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
668
Nel'
N
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
1 K
S.J
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…