Lecture de donnees

Version imprimable

Lecture de donnees

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:

data(i) = Worksheets(feuille_donnees).Cells(i + debut_donnees - 1, colonne_donnees)

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

Bonjour mehdi

Tu as probablement une valeur qui n'est pas une valeur numérique.
Vérifies ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim test As Variant
For i = 1 To npts
 test = Worksheets(feuille_donnees). _
 Cells(i + debut_donnees - 1, colonne_donnees)
If Not IsNumeric(test) Then
 Stop
Else
 data(i) = Worksheets(feuille_donnees). _
 Cells(i + debut_donnees - 1, colonne_donnees)
End If
Next i

11/12/2014, 14h49
mehdi.PM

Emmmmmmmm ... sa marche pas .... sa me donne que des zeros
merci beaucoup en tt cas ;)
11/12/2014, 19h02
Marc-L

Bonjour.

Edit : ai mal lu le code, suivre la voie Docmarti … Erreur #13 : mélange de torchons et de serviettes !

Bonjour mehdi

Je voulais dire : dans ton code

remplace
:

Code:

1
2
3
4
5
ReDim data(1 To npts)
For i = 1 To npts
data(i) = Worksheets(feuille_donnees). _
Cells(i + debut_donnees - 1, colonne_donnees)
Next i

par

Code:

1
2
3
4
5
6
7
8
9
10
Dim test As Variant
For i = 1 To npts
 test = Worksheets(feuille_donnees). _
 Cells(i + debut_donnees - 1, colonne_donnees)
If Not IsNumeric(test) Then
 Stop
Else
 data(i) = Test
End If
Next i