Jack Lethycien
XLDnaute Junior
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 :
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
Private Sub Workbook_Open()
For Each Tableau In Worksheets("kWh").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
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
End Sub
Merci
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 :
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
Private Sub Workbook_Open()
For Each Tableau In Worksheets("kWh").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
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
End Sub
Merci