Objet requis : set d'un tableau de type range
Bonjour,
Voici mon premier message posté sur ce forum qui m'a bien servis jusqu'ici étant débutant en VB.
Voici le début de mon code :
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
| Sub chrono6()
Dim ChartObj(200) As ChartObjects
Dim plg(200) As Range
Dim noms(200) As String
Dim valeure(200) As Range
Dim i As Integer
Dim j As Integer
Dim compt As Integer
i = 3
j = 2 * i
compt = 1
For i = 1 To j
If i Mod 2 <> 0 Then 'Si impair
Set plg(i) = Application.InputBox _
("Sélectionner la cellule contenant le noms du chronogramme" & compt & "", Type:=8)
noms(compt) = plg(i).Value
Else 'Si pair
Set plg(i) = Application.InputBox _
("Sélectionner les cellule contenant les valeures du chronogramme" & compt & "", Type:=8)
Set valeure(compt) = plg(i).Value ----------- Erreur d'exécution '424': Objet requis
compt = compt + 1
End If
Next i |
Mon a pour but de selectionner des des plages afin de tracer automatiquement des chronogramme.
Je ne comprend pas cette erreur "objet requis" et n'ai toujours pas trouvé de solution, si vous pouviez m'éclairer sur le sujet cela serait fort gentil.
Merci d'avance
