Discussion :

[manphenix]

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 :

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

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 :

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
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

[Invité]

Bonjour,

Avant de chercher plus loin, il me semble qu'il y a déjà une incohérence ici :

Dim tabnomonglet(1, 7) As String

dans la définition de votre tableau vous avez bien de 0 à 6.

Dans la boucle suivante vous avez bien :

Code :

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

For i = 0 to 6

Et là vous redéfinissez la tableau avec les valeurs de 1 à 7 ?

Pour que votre tableau commence à = 1 il faut mettre en tout début de procédure :

Code :

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

Option Base 1

et bien évidemment utiliser partout de 1 à 7.

[manphenix]

Bonjour,

Avant de chercher plus loin, il me semble qu'il y a déjà une incohérence ici :

dans la définition de votre tableau vous avez bien de 0 à 6.

effectivement je garde une casse du tableau pour d'autres manipulations qui seront bien apres cette etape.


merci