Incompatibilité de type sur un Multipage
Bonjour,
J'ai une application qui fonctionne parfaitement sur Excel 2000 mais qui curieusement ne fonctionne pas dans Excel 2010.
Quand je lance le programme, j'ai une erreur de type 13 (incompatibilité de type), dès le premier passage dans la boucle.
sur la ligne :
Code:
Set p2(X) = MultiPage1.Pages.Add("p", Sheets("Champs").Cells(1, X))
Les déclarations sont faites en haut de page (hors module).
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| [...]
Dim X, i, Y As Integer
Dim l2(1 To 150) As Control
Dim p2(1 To 150) As page
[...]
Private Sub UserForm_Initialize()
[...]
While Sheets("Champs").Cells(1, X) <> ""
NbChamps = NbChamps + 1
Y = 1
While Sheets("Champs").Cells(Y + 1, X) <> ""
Y = Y + 1
Wend
'Cette commande ne fonctionne pas à cause d'une incompatibilité de type
Set p2(X) = MultiPage1.Pages.Add("p", Sheets("Champs").Cells(1, X))
Set l2(X) = p2(X).Controls.Add("Forms.ListBox.1", "liste", True)
'Dimensions de la listbox
l2(X).Left = 0
l2(X).Width = p2(X).InsideWidth
l2(X).Top = 0
l2(X).Height = 150
l2(X).ColumnHeads = True
l2(X).MultiSelect = 2
'Source de la listbox (nombre de modalités)
l2(X).RowSource = Sheets("Champs").Range(Sheets("Champs").Cells(2, X), _
Sheets("Champs").Cells(Y, X)).Address(, , , True)
X = X + 1
Wend
[...]
End sub |
Merci de m'aider je suis bloqué !
