l'activation d'une cellule lance un timerRésolu

Question

Bonjour,

Actuellement &#233;tudiant en bts je travaille sur un projet qui me permet
de travailler sur de de la programmation en visual basic. Cependant je
rencontre des probl&#232;mes :

Lorsque la cellule B2 de ma feuille excel affiche 1, je souhaite qu'un
compteur se lance et qu'au bout de 30 minutes, le programme v&#233;rifie que
la valeur 1 se trouve dans la cellule C2.

Si la valeur 1 se situe bien dans la cellule C2, alors il ne se passe
rien. Si au contraire, la valeur 0 est pr&#233;sente dans la cellule C2
alors la cellule D2 devra m'afficher le mot "Absent".

Pouvez vous m'aider dans l'&#233;criture d'un programme qui r&#233;aliserait ces fonctions ?

michelxld · Accepted Answer

bonjour

j'espere que cet exemple pourra t'aider

'---- au niveau de la feuille ----
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    
    If x = True Then Exit Sub
    
    If Target.Address = "$B$2" Then
    x = True
    Application.OnTime Now + TimeValue("00:00:10"), "laProcedure"
    End If
End Sub
'---------------------------------

'------dans un module standard ---------
Option Explicit


Public x As Boolean


Sub laProcedure()
    If Range("C2") = 1 Then
    MsgBox "Il ne se passe rien"
    Else
    Range("D2") = "Absent"
    End If
    
    x = False
End Sub
'--------------------------------------

'--- au niveau de ThisWorkbook----
Option Explicit


Private Sub Workbook_Open()
x = False
End Sub
'---------------------------------

bon week end
michel

michelxld · Answer

....

bien entendu tu remplaces

TimeValue("00:00:10")
 
par la tempo qui t'interesse

TimeValue("00:30:00")

...

gizmo47 · Answer

Merci beaucoup pour cette exemple qui m'a grandement aid&#233;.

gizmo47 · Answer

Sans vouloir abuser de votre gentillesse, je n'ai pas bien compris pour qu'elle raison vous utiliser un module standard et ThisWorkbook en plus de la feuille.

michelxld · Answer

bonsoir

c'est juste pour initialiser &#224; False la variable Boolean X , 

cette variable est utilis&#233;e pour ne pas relancer une 2eme fois la procedure lorsque la temporisation est en cours

bonne soiree
michel

esteban25 · Answer

cool

esteban25 · Answer

cool

esteban25 · Answer

cool

esteban25 · Answer

cool

imana1987 · Answer

bonjour tt le monde je suis entrain de faire une applications sur excel pour le calcul d'exploitation, alors j'ai kelke difficulté avec excel 
1- je dois créer une liste déroulante qui contient les mois de l'année, quand je sélectionne janvier ( par exemple) je divise le coût par 31 pour avoir le coût journalier de cette mois.
merci pour votre aide

ucfoutu · Answer

Bonjour, imanna1987,
1) ouvre ta propre discussion (mais surtout pas, comme celle-ci, dans la section inadéquate de ce forum). Tu développes sous VBA ? ===>> langages dérivés > VBA
2) expose (dans TA discussion ainsi ouverte) clairement et avec précision les tenants et aboutissants.



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

imana1987 · Answer

dsl

L'activation d'une cellule lance un timer

12 réponses

Discussions similaires