Bonjour
J'ai un problème lors de l'execution de programme, un message d'erreur se genere disant qu'il a un problème de incompatibilité (13)
a
Code : Sélectionner tout - Visualiser dans une fenêtre à part
data(i) = Worksheets(feuille_donnees).Cells(i + debut_donnees - 1, colonne_donnees)

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
Option Explicit
Dim feuille_donnees As String
Dim colonne_donnees As Long
Dim debut_donnees As Long
Dim fin_donnees As Long
Dim data() As Single ' les données à traiter
Dim npts As Long 'le nombre de points dans
'les données à traiter.
' procédure de lecture des paramétres
' et des données
Sub read_parametres()
Dim i As Long
'lecture des paramétres:
feuille_donnees = Worksheets("parametres").Range("B2")
colonne_donnees = Worksheets("parametres").Range("B3")
debut_donnees = Worksheets("parametres").Range("B4")
fin_donnees = Worksheets("parametres").Range("B5")
MsgBox (feuille_donnees)
'lecture des données:
npts = fin_donnees - debut_donnees + 1
ReDim data(1 To npts)
For i = 1 To npts
data(i) = Worksheets(feuille_donnees). _
Cells(i + debut_donnees - 1, colonne_donnees)
Next i
End Sub