Bonjour à tous,
Ceci est mon premier message sur un forum ( grande première) et j'aimerais avoir un petit peu d'aide.
Cela fait 2 jours que j'essaye de faire un code qui me permettrais de récupérer les différentes valeurs que peut prendre une même cellule, et récupérer le temps de relevé de cette valeur et de créer un tableau qui mettrais côte à côte ces valeurs en fonction de l'heure de relevé.
Etant très très grand débutant en VBA j'ai essayé de faire un code mais qui ne marche pas car j'ai pris un petit peu de tout ce que j'ai pu trouver sur internet, le voici:
Pour être honnête avec vous, je ne comprend pas tout ce qu'il y a dans ce code mais j'aimerai récupérer la valeur de la cellule W5 ( en %) toutes les heures et en faire un tableau.
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 Sub marche() intervalle = TimeValue("01:00") NewTime = intervalle * (1 + Int(Now / intervalle)) Application.StatusBar = "Prochaine capture : " & Format(NewTime, "h:mm") Application.OnTime NewTime, "Action" End Sub Sub Arret() Application.OnTime NewTime, "Action", False Application.StatusBar = "Arret capture : " & Format(NewTime, "h:mm") End Sub Sub Action() Dim LastRow As Long With Sheets("Feuil1") LastRow = Range("a36565").End(xlUp).Row If Now > .Cells(LastRow, 1) Then Beep .Cells(LastRow + 1, 1) = Now .Cells(LastRow + 1, 2) = Sheets("Matin").Range("W5") Call marche ThisWorkbook.Save Beep End If End With End Sub
Merci beaucoup pour votre aide !
Partager