Excel boucle While

Bonjour tout le monde,

Je suis débutant en code et j'essaye de coder un programme, mon tableur excel contient une colonne (A) avec des données de temps et une colonne (B) avec des mesures de Températures toutes les 30 min ou 15 min. L'objectif finale est de étant de copier des données de T°C et de connaitre le temps écoulé lorsque T > 24,5°C et lorsque T < 15.5°C.

J'ai tenté quelque chose avec une boucle while mais une erreur s'affiche. Je voulais afficher les numeros de ligne lorsque la T°C passe les 24.5°C et losque la T°C revient en dessus des 24.5°C et après j'aurais pu calculer la durée en faisant :

Range("A"& X).value - Range("A"& Y ).value 

avec X = n° de ligne du passage au dessus des 24.5°C

Y = n° de ligne du passage au dessous des 24.5°C

Et reproduire ça pour chaque passage au dessus des 24.5°C.

Je vous laisse ci joint mon excel pour voir si vous voyer d'où viens l'erreur.

Merci d'avance

Bonsoir,

proposition de correction de ton code

Private Sub CommandButton2_Click()
    w = 8
    x = 9
    Z = 0
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    Do While Range("B" & w) <> "" And w <= dl
        w = w + 1
        Z = Z + 1
        While Range("f" & x) = "" And x <= dl
            x = x + 1
        Wend
        If Z > 1 Then If Range("M" & Z - 1) = x - 1 Then Exit Do
        Range("m" & Z).Value = x - 1
        While Range("f" & x) <> "" And x <= dl
            x = x + 1
        Wend
        Range("g1").Value = x - 1
    Loop
    m = 1
    While Range("m" & m) <> "" And m <= dl
        u = Range("m" & m).Value
        Range("n" & m) = Range("a" & u)
        m = m + 1
    Wend
End Sub

Bonjour h2so4,

dans ta sub, pour les 2 Range("m" & m) y'a 2 " en trop, et il manque 's !

Spoiler

c'est un code VBA pour gourmands ?

dhany

Ça fonctionne merci !