Incrementation feuille dans VBA

[jimmarat]

Bonjour à tous,

Je vais avoir rapidement beaucoup de données tableau à traiter, aussi j'ai décidé d'automatiser tout ça sur VBA. M'y connaissant peu je bute sur certains points. Je présente la chose:

Mon fichier Excel origine est en sortie d'un autre programme. celui-ci me sort autant de feuilles qu'il en faut pour que dans chaque feuille il y'ait 5 tableaux de données. En bref une fois que Feuil1 est remplie par 5 tableaux il crée Feuil2, etc ...

Pour pouvoir créer des graphiques je prend seulement certaines informations dans ces tableaux, une colonne par tableau (soit 5 par feuille).
Je vois donc facilement comment copier au début les colonnes de Feuil1, mais comment enchainer sur Feuil2 puis Feuil3, etc ...

Merci d'avance pour vos réponses.

Jimmarat

 

[Poto]

Re : Incrementation feuille dans VBA

salut,

je sais aps si ca peut t aider car j ai pas tout compris (un ptit bou de ton code peu aider), mais pt etre que ca sera utile :

sub CopierCollerData()

sheets(feuil1).select
' ici tu met ton code pour copier/coller tes donnees

sheets(feuil2).select
'ici tu remet ton code de selection/collage des donnees, puis tu continue comme ca 😉

end sub

 

[jimmarat]

Re : Incrementation feuille dans VBA

Merci pour la réponse.

De manière pratique je peux pas le faire car j'ai plus de 900 feuilles, donc c'est un peu lourd. J'ai finalement trouvé en me promenant à droite à gauche.

Sub increment_feuille()
Dim Feuille As Integer
Dim FTotal As Integer

FTotal = ActiveWorkbook.Sheets.Count
Feuille = 1

Sheets(Feuille).Select (c'est cette forme là que je trouvais pas)

Call programm_copie

Next Feuille
End Sub

Merci pour le tuyau en tout cas

Jimmarat