Discussion :

[seb4835]

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 :

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

[Invité]

Bonjour,
Soit tu veux que ton objet fasse références à un objet range ou à sa valeur!

Set valeure(compt) = plg(i)

[seb4835]

Merci beaucoup de ta réponse, l'erreur à disparue.

Je me souviendrais de ça maintenant.

Merci et bonne soirée !