Rédiger un code copier-coller
Salut le forum
Je souhaite qu'on m'aide avec un code qui me permettra de:
- copier les données des cellules non vide de la plage SOURCE!A2:E (jusqu'à la dernière cellule non vide de E)
- coller les données copier sur TABLEAU_N!A5
Ci-joint le fichier pour appréciation
bonjour
si tu sais faire ces manipulations au clavier et à souris, essaye de lancer l'enregistreur de macro et fais les manipulations
l'enregistreur de macro est remarquablement efficace pour ces opérations simples de copier/coller (et effacer)
ensuite, dans la macro tu modifieras facilement les plages si nécessaire
Salut jmd et le forum
Merci pour vos conseils.
J'utilise bien souvent l'enregistreur mais dans certaines situations, il a des limites.
Ex: si par exemple je souhaite qu'il sélectionne la plage A2:E (dernière ligne non vide de E) il m’ait difficile d'y arriver par l'enregistreur. pour ne citer que cela... Si solution il y'a pour contourner souvent ces limites, je suis preneur.
Merci
re
c'est pour ça que je suggère d'aller éditer la macro et d'étendre la zone sur 1000 ou 5000 lignes/colonnes
Je ne souhaite pas que l'extention soit manuel puisque le fichier sera utilisé par des novistes donc difficile pour eux d'avoir à étendre la plage. merci de me proposer une extention auto.
Merci
je me suis mal exprimé : c'est à toi d'éditer la macro maintenant, en supposant que la zone fera X lignes par Y colonnes au maximum
tu mets X et Y. Personne n'y retouchera ensuite.
je fais comme ça et c'est hyper simple et fiable
Salut jmd
merci pour vos conseils.
Je m'excuse du temps mis pour vous revenir.
J'ai essayé de réaliser le code ci-dessous (par l'enregistreur comme vous me l'avez conseillé) mais il y'a erreur dans
Range("A2:E")Est-ce que c'est ce que vous avez voulu dire par x et y?
Sinon pouvez-vous proposer votre solution?
Sub Copier_z()
'
Range("A2:E").Select
Selection.Copy
Sheets("TABLEAU_N").Select
Range("Tableau1[Code Agence]").Select
ActiveSheet.Paste
End SubCordialement