Conditions imbriquées

Le 07/12/2017 à 18:03

il manque pas mal de i

Range("E" & -1)

devrait être

Range("E" & i-1)

Le 11/12/2017 à 11:29

Merci Steelson, et désolé de ce temps de latence.

Je regarde ça dans la journée, et je reviens vers toi pour toute question.

Merci encore !

Le 11/12/2017 à 13:21

Voilà,

je t'ai fait la correction,

en espérant que cela fonctionne (je n'ai pas testé !)

Sub Alea_frequence_arrivee()

Dim Alea As Currency
    Alea = -Log(1 - Rnd())

For i = 23 To 372

If Range("E" & i - 1).Value < 480 Then
    Range("C" & i).Value = Alea / Range("C13").Value

ElseIf Range("E" & i - 1).Value >= 480 And Range("E" & i - 1).Value < 540 Then
    Range("C" & i).Value = Alea / Range("D13").Value

ElseIf Range("E" & i - 1).Value >= 540 And Range("E" & i - 1).Value < 600 Then
    Range("C" & i).Value = Alea / Range("E13").Value

ElseIf Range("E" & i - 1).Value >= 600 And Range("E" & i - 1).Value < 660 Then
    Range("C" & i).Value = Alea / Range("F13").Value

ElseIf Range("E" & i - 1).Value >= 660 And Range("E" & i - 1).Value < 720 Then
    Range("C" & i).Value = Alea / Range("G13").Value

ElseIf Range("E" & i - 1).Value >= 720 And Range("E" & i - 1).Value < 780 Then
    Range("C" & i).Value = Alea / Range("H13").Value

ElseIf Range("E" & i - 1).Value >= 780 And Range("E" & i - 1).Value < 840 Then
    Range("C" & i).Value = Alea / Range("I13").Value

ElseIf Range("E" & i - 1).Value >= 840 And Range("E" & i - 1).Value < 900 Then
    Range("C" & i).Value = Alea / Range("J13").Value

ElseIf Range("E" & i - 1).Value >= 900 And Range("E" & i - 1).Value < 960 Then
    Range("C" & i).Value = Alea / Range("K13").Value

ElseIf Range("E" & i - 1).Value >= 1020 And Range("E" & i - 1).Value < 1020 Then
    Range("C" & i).Value = Alea / Range("L13").Value

ElseIf Range("E" & i - 1).Value >= 1020 And Range("E" & i - 1).Value < 1080 Then
    Range("C" & i).Value = Alea / Range("M13").Value

ElseIf Range("E" & i - 1).Value >= 1080 And Range("E" & i - 1).Value < 1140 Then
    Range("C" & i).Value = Alea / Range("N13").Value

ElseIf Range("E" & i - 1).Value >= 1140 Then
    Range("C" & i).Value = Alea / Range("O13").Value

Else
    Range("C" & i).Value = "|000|"

End If

Next

End Sub

Le 22/12/2017 à 11:56

Hello Zabko

Le 16/02/2018 à 12:28

Merci beaucoup Steelson, ça marche super bien !

Désolé de ce contretemps et de mon inactivité prolongée. Je reviens frais et dispo pour de nouvelles aventures.

Ce sujet est donc résolu, merci encore pour ton aide précieuse !