remplir une colonne en fonction d'une condition

[alexou4281]

Bonjour tout le monde
JE voudrai conditionner une colonne en fonction de la colonne 1 qui est la colonne des temps (en seconde).
Un declencheur fixé à une valeur determinée ex: x=10 seconde doit conditionner le signal de sortie colonne G. Avant le temps x, la colonne g prend la valeur de la case K16 et apres le temps x, la colonne prends la valeur L16.

j'ai fait cette routine mais ça fonctionne pas.
pouvez vous m'aider s'il vs plait.
Merci


Sub k(i)
Dim i&

For i = 1 To Range("A65536").End(xlUp).Row

If Cells(i, 1).Value > Cells(K6).Value Then
cell(i, G) = Cells([16], [k])

If Cells(i, 1).Value < Cells(K6).Value Then
cell(i, G) = Cells([16], [L])

End Sub

 

[alexou4281]

Re : remplir une colonne en fonction d'une condition

j'avais copié l'ancienne version.
Voila la nvelle version

Sub choix()
Dim i

For i = 1 To Range("A65536").End(xlUp).Row

If Cells(i, 1).Value > Cells(K6).Value Then
cell(i, G).Value = Cells(K16).Value
End if
If Cells(i, 1).Value < Cells(K6).Value Then
cell(i, G).Value = Cells(L16).Value
End if

End Sub

 

[pierrejean]

Re : remplir une colonne en fonction d'une condition

bonjour alexou4281

A tester:

For i = 1 To Range("A65536").End(xlUp).Row

If Cells(i, 1).Value > Range("K6").Value Then
Range("G" & i).Value = Range("K16").Value

If Cells(i, 1).Value < Range("K6").Value Then
Range("G" & i).Value = Range("L16").Value

Note qu'en cas d'egalité Cells(i,1)=Range("K6") Range("G" & i) restera vide