Discussion :

[DOUMLASS87]

Bonjour,

dans mon classeur à plusieurs feuilles je dois chaque fois pour chaque feuille, créer un TCD (à partir d'un tableau 35066 lignes 3 colonnes dont date, conso. et prod.) filtrer le TCD en fonction des dates, copies ces valeur du TCD quelque part dans la feuille, refaire un nouveau filtre et la même procédure. en fin supprimer le TCD. Ensuite tracer les nuages de points avec les nouvelles valeurs filtrées. Je demande donc de l'aide car je suis à ma première expérience avec VBA.

Cordialement.

[Limace_hurlante]

Bonjour,
Si c'est ta première expérience en VBA je te conseillerai d'utiliser l’enregistreur de macro pour comprendre un peu comment cela fonctionne.
Commence par des très petits bouts d'action pour faciliter ta compréhension du code. Ensuite revient vers nous quand tu aura un blocage un peu plus précis.
Bonne journée

[DOUMLASS87]

Bonjour,

bien sûr que j'ai fait toutes ces étapes et enregistré plusieurs petites macros. Aussi j'ai lu de nombreux cours sur VBA, mais concernant mon problème quand j'utilise l'enregistreur de macro pour la première feuille, après cette macro ne fonctionne que pour celle-ci pourtant je voudrais pouvoir l'utiliser pour toute les feuilles pour faciliter mon travail.

[Limace_hurlante]

Si ta macro ne fonctionne que sur une feuille, peux-être que tu ne spécifies pas dans ton code de quelle feuille tu parle, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'préfère :
WorkSheets("Feuil1").cells(1,1).value = 1
'à 
Cells(1,1).value = 1

[anasecu]

Bonjour,

après cette macro ne fonctionne que pour celle-ci pourtant je voudrais pouvoir l'utiliser pour toute les feuilles pour faciliter mon travail.

Pour que cela fonctionne pour toute les feuilles, il te faut une boucle sur les feuilles du classeur, comme ceci par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub boucle_feuilles(book)
Dim feu As Worksheet
    For Each feu In book.Sheets
        ' ton traitement feuille : par exemple
        MsgBox feu.Name
    Next feu
End Sub

Pour appeler ta boucle tu peux le faire ainsi par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Sub test()
    Call boucle_feuilles(ThisWorkbook)
End Sub

[DOUMLASS87]

Salut,

Merci à tous pour vos contributions ça m'a vraiment aidé!