Remplisage d'un tableau par une fonction.
Bonjour,
J'automatise des procedures, et pour cella le doit recopier chaque colonne (6) de la feuill1 dans 6 autres onglets. je connait la colonne ou je doit coller grace à la date situe dans la premiere ligne de chaque onglet.
Dans ce projet je souhaite mettre les noms des onglets dans un tableau de taille 1x6. De ce fait j'ai fait une fonction qui est appelé dans le sub
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Public Function rempli_tab_nom(ByRef tabnomonglet() As String) As String
tabnomonglet(0, 0) = "AAA"
tabnomonglet(0, 1) = "BBB"
tabnomonglet(0, 2) = "CCC"
tabnomonglet(0, 3) = "DDD"
tabnomonglet(0, 4) = "EEE"
tabnomonglet(0, 5) = "FFF"
tabnomonglet(0, 6) = "CP"
End Function |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub copie_maj_mis()
Dim nummois As Integer, numannee As Integer
Dim tabnomonglet(1, 7) As String
Dim positionmoisw(2, 6) As Integer
Application.ScreenUpdating = False
rempli_tab_nom (tabnomonglet())
Set Resultats = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)
For i = 1 To Sheets.Count
Resultats.Cells(i, 1).Value = Sheets(i).Name
Next i
For i = 0 To 6
Resultats.Cells(5, i + 1).Value = tabnomonglet(0, i)
Next i
Application.Worksheets(Resultats).Activate
Application.ScreenUpdating = True
End Sub |
a ce moment il me dit "incompatibilite du type: tableau ou type defini par l utilisateur attendu"
Help me
