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 : Sélectionner tout - Visualiser dans une fenêtre à part
Set p2(X) = MultiPage1.Pages.Add("p", Sheets("Champs").Cells(1, X))

Les déclarations sont faites en haut de page (hors 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
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é !