Discussion :

[MaMart]

Bonjour a tous,

Dans le cadre d un stage en angleterre je voudrais realiser une commande simple je pense mais qui me pose probleme car je ne suis pas cense faire de la programmation (Je n en avais jamais fait jusqu a hier)

Je voudrais realiser une simple multiplication par mille pour changer une valeur en seconde au lieu de milliseconde.
Le nom de la cellule d entree du temps sous excel est interval.
Mon probleme provient de la syntaxe a cette ligne (*).
Jai cherche dans la FAQ en vain car je crois que c est trop simple en fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim interval, titre As Integer
 
Private Sub Start()
    'MsgBox ("Timer1.Enabled = True")
    Timer1.interval = interval.Value * 1000 (*)
 
    Timer1.Enabled = True
End Sub

Je remercis par avance si quelqu un peut m expliquer le probleme.
J espere avoir ete comprehensible.

ps: desole pour les accents mais clavier anglais oblige.

[SfJ5Rpw8]

pour accéder au cellules nommées.. utilise range..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("Interval").value

[MaMart]

Merci pour cette reponse rapide.

Malheureusement en ayant effecute le changement il m indique toujours une erreur sur cette ligne.
En fait cette valeur regit une horloge aui effectuera une action repetitive.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Interval, titre As Integer
 
 
Private Sub Start()
    'MsgBox ("Timer1.Enabled = True")
    Timer1.Interval = Range("Interval").Value * 1000
    Timer1.Enabled = True
End Sub

Bien sur j ai bien verifie l orthographe de ma cellule excel.
Vois tu une autre explication?
Merci

[SfJ5Rpw8]

quand tu utilise range .. sans rien devant .. il agit sur la feuille courante tu peu aussi écrire!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.sheets("Feuil1").range("Interval").value

affiche la valeur dans un messagebox avant de l'utiliser dans ton Timer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox ThisWorkbook.sheets("Feuil1").range("Interval").value

[MaMart]

Ok je vais faire ca. Je pense que ca marchera.
Merci bcp pour l info.
a+