Copier un tablau avec vba
fripouille
-
fripouille -
fripouille -
Bonjour,
Ma problématique est plutôt simple j'ai un tableau avec des thémes fixes mais les données varient d'une année à l'autre. j'aimerai savoir comment faire pour quand fonction d'un champ renseigné ( ex année) les données ce copie dans un tableau.
Je mets en fichier joint un exemple. si des âmes courageuses veulent bien me donner des infos.
Merci
http://www.cijoint.fr/cjlink.php?file=cj201103/cijMfKrUwJ.xls
Ma problématique est plutôt simple j'ai un tableau avec des thémes fixes mais les données varient d'une année à l'autre. j'aimerai savoir comment faire pour quand fonction d'un champ renseigné ( ex année) les données ce copie dans un tableau.
Je mets en fichier joint un exemple. si des âmes courageuses veulent bien me donner des infos.
Merci
http://www.cijoint.fr/cjlink.php?file=cj201103/cijMfKrUwJ.xls
A voir également:
- Copier un tablau avec vba
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Retrouver un copier-coller android - Guide
- Copier un disque dur sur un autre - Guide
- Comment copier un mail - Guide
4 réponses
--
Aucune idée comment tu pourrais faire..
Je cherche,si je trouve je te le dit.
Owersystem,membre de Commentçamarche.net.
Aucune idée comment tu pourrais faire..
Je cherche,si je trouve je te le dit.
Owersystem,membre de Commentçamarche.net.
Re,
J'ai trouvé un bout de code qui répond en parti à mon problème car il permet de coller les donnée d'une feuille à une autre et si il y a déjà du texte les copient en dessous.
code :
dim Cellule as range
dim PlageCopiee as range
set plagecopiee=worksheets("Feuillesource").range("...") ' on détermine la plage source
' on cherche la cellule qui suit la dernière cellule
' remplie en C
set cellule =worksheets("FeuilleCible").range("c65536").end(xlup)(2)
plagecopiee.copy destination:=cellule
Comment je pourrais mettre un espace lors de la deuxième copie svp ?
Merci
J'ai trouvé un bout de code qui répond en parti à mon problème car il permet de coller les donnée d'une feuille à une autre et si il y a déjà du texte les copient en dessous.
code :
dim Cellule as range
dim PlageCopiee as range
set plagecopiee=worksheets("Feuillesource").range("...") ' on détermine la plage source
' on cherche la cellule qui suit la dernière cellule
' remplie en C
set cellule =worksheets("FeuilleCible").range("c65536").end(xlup)(2)
plagecopiee.copy destination:=cellule
Comment je pourrais mettre un espace lors de la deuxième copie svp ?
Merci
