Discussion :

[Jack Ilo]

Bonjour,

Je vous voudrais de l'aide svp. Je ne suis pas un expert en macro pour me présenter.

J'ai réçu de l'aide à créer un macro pour glissade d'un tableau (ie ajout automatique des jours sur un tableau excel) sur une feuille cela marche sans probème.

Voici le macro:
Dans module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Tableau_Ajout(Tableau As String)
 
Dim y As Long, objListRows As Object, derdate As Date, Jour As Integer
 
    With ActiveSheet.ListObjects(Tableau)
        y = .ListRows.Count
        derdate = .ListRows(y).Range.Cells(1, 1).Value
        If derdate <> Date - 1 Then
            For Jour = 1 To Date - 1 - derdate
                Set objListRows = .ListRows.Add
                .ListRows(y + Jour).Range.Cells(1, 1).Value = derdate + Jour
            Next Jour
        End If
    End With
 
End Sub

Et dans workbook

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
    For Each Tableau In Worksheets("Donnée").ListObjects
        Call Tableau_Ajout(Tableau.Name)
    Next Tableau
End Sub

Je voudrais maintenant l'exécuter sur quelques feuilles mais j'ai n'y arrive pas. Je voudrais quelqu'un m'aide svp.

Voici comment j'essaye d'écrire sur workbook mais toujours bug

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
Application.ScreenUpdating = False
 
Dim kWh As Worksheet
For Each kWh In Worksheets
 
  If kWh.Name <> "kW ER1" And kWh.Name <> "kW ER2" And kWh.Name <> "kW ER3" And kWh.Name <> "Graph" And kWh.Name <> "Main Menu" And kWh.Name <> "Explanation" Then
     Call Tableau_Ajout(Tableau.Name)
  End If
Next

Merci

[Limace_hurlante]

Et si dans ton nouveau code tu active la worksheet avant de relancer ta macro ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Application.ScreenUpdating = False
 
Dim kWh As Worksheet
For Each kWh In Worksheets
 
  If kWh.Name <> "kW ER1" And kWh.Name <> "kW ER2" And kWh.Name <> "kW ER3" And kWh.Name <> "Graph" And kWh.Name <> "Main Menu" And kWh.Name <> "Explanation" Then
     kWh.activate
     Call Tableau_Ajout(Tableau.Name)
  End If
Next

[mjpmjp]

bonjour,

ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_Open()
 
Application.ScreenUpdating = False
 
Dim kWh As Worksheet
For Each kWh In Worksheets
 
  If kWh.Name <> "kW ER1" And kWh.Name <> "kW ER2" And kWh.Name <> "kW ER3" And kWh.Name <> "Graph" And kWh.Name <> "Main Menu" And kWh.Name <> "Explanation" Then
     Call Tableau_Ajout(Tableau.Name)
  End If
Next

Application.ScreenUpdating = False --> n'oublie pas à la fin Application.ScreenUpdating = True

Call Tableau_Ajout(Tableau.Name) --> Tableau.Name = quoi ?

c'est quoi le but de If kWh.Name <> "kW ER1" And .... ?
si tu cible un seul onglet alors active cet onglet
ou ajoute un paramètre OngletName as String dans Sub Tableau_Ajout(Tableau As String) --> Sub Tableau_Ajout(Tableau As String,OngletName as String)

la solution de "Limace_hurlante" --> kWh.activate --> active tous les autres onglets qui ne sont pas dans la liste des "<>" et le dernier sera toujours activé

@+JP

[Jack Ilo]

Merci JP pour ta réponse.

Call Tableau_Ajout(Tableau.Name) --> Tableau.Name , c'est pour appeler le macro tableau_ajout à s'exécuter sur une feuille donnée.
If kWh.Name <> "kW ER1" And ... c'est pour éviter que ledit macro s'exécuter sur les feuilles que je cite.

Mais je n'arrive pas à exécuter.
J'ai toujours un bug.

Le principe est que mon macro d'ajout automatique des jours puisse s'exécuter sur les feuilles que j'ai mis des tableau, il n'ya que quatre alors que dans le fichier j'ai plus de 10 feuille

[Jack Ilo]

Thanks
en faisant cela je lebug ici

Code :

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

Call Tableau_Ajout(Tableau.Name)

[Limace_hurlante]

la solution de "Limace_hurlante" --> kWh.activate --> active tous les autres onglets qui ne sont pas dans la liste des "<>" et le dernier sera toujours activé

Oui je pensait utiliser le fait que dans sa macro Tableau_Ajout il y à ça :

Code :

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

With ActiveSheet.ListObjects(Tableau)

pour ne pas finir sur la derière feuille on peux aussi modifier comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim FeuilleDejaOuverte As Worksheet
Set FeuilleDejaOuverte = ActiveSheet
    For Each Tableau In Worksheets("Donnée").ListObjects
        Call Tableau_Ajout(Tableau.Name)
    Next Tableau
FeuilleDejaOuverte.Activate
End Sub

C'est bête ?

[Theze]

Bonjour,

Je voudrais maintenant l'exécuter sur quelques feuilles mais j'ai n'y arrive pas. Je voudrais quelqu'un m'aide svp.

Testes ceci en ayant au préalable inscris les noms des feuilles cible dans l'Array() (donc, différents des "kW ER1", "kW ER2", "kW ER3", etc...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Workbook_Open()
 
    Dim Fe As Worksheet
    Dim Tableau As ListObject
 
    'ici, tu inscris les noms des feuilles cible
    For Each Fe In Worksheets(Array("Feuil1", "Feuil4", "Feuil6"))
 
        For Each Tableau In Fe.ListObjects: Tableau_Ajout Tableau.Name: Next Tableau
 
    Next Fe
 
End Sub