VBA Copier un tableau Excel sur ppt

lelele03062008 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je souhaite réaliser une présentation ppt automatique à l'aide de VBA. J'ai programmé le code VBA me permettant de créer une présentation. Or j'ai un problème:
je souhaite copier mon tableau Excel et le coller sur les slides que j'ai créé.
Le seul HIC: mon tableau change de nombre de lignes toutes les semaines. Mon tableau est, en faite ,constitué de 3 mini -tableaux , séparés chacun par une ligne vide.
Je souhaiterai donc dire à ma Macro:
étape 1: copie moi mon premier tableau jusqu'à la cellule vide ( Set Rng = ThisWorkbook.ActiveSheet.Range("B2").CurrentRegion) et ça marche.
étape 2: retrouve moi la ligne vide en dessous de la première sélection et sélectionne moi la cellule d'en dessous pour me copier le 2nd tableau sur une autre slide.
étape 3: retrouve moi la seconde ligne vide afin que je puisse copier la 3 eme partie de mon tableau sur une autre slide.
Je n'ai pas de nom de cellule car mes cellules débutent avec des formules. Je n'ai pas d'adresse de cellules car le nombre de ligne varie chaque semaine ( donc je ne peut demander à VBA de commencer par une cellule spécifique, si ce n'est la cellule qui suit la cellule vide et je ne sais pas comment le faire).
Pourriez vous svp me guider?
Merci par avance,
A voir également:

1 réponse

m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

Si tu fais des tableaux (avec la commande Insertion => Tableau), anciennement Listes, tu pourras te déplacer de tableau en tableau sans t'occuper du nombre de lignes. C'est vraiment le plus simple.

Tu utiliseras le même code mais à la place de
Range("B2")
tu mets
Range("Tableau2")


m@rina
0