Simplifier une macro

[Klorane]

Bonsoir à tous,

j'utilise dans ma feuille la macro ci dessous à laquelle je vais devoir encore ajouter des lignes.

If Range('C8').Value <= Range('C7').Value Then
Feuil3.Range('C3').Value = Range('C8').Value
End If
If Range('C9').Value <= Range('C7').Value Then
Feuil3.Range('D3').Value = Range('C9').Value
End If
If Range('C10').Value <= Range('C7').Value Then
Feuil3.Range('E3').Value = Range('C10').Value
End If
If Range('C11').Value <= Range('C7').Value Then
Feuil3.Range('F3').Value = Range('C11').Value
End If
If Range('C12').Value <= Range('C7').Value Then
Feuil3.Range('G3').Value = Range('C12').Value
End If
If Range('C13').Value <= Range('C7').Value Then
Feuil3.Range('H3').Value = Range('C13').Value
End If
If Range('C14').Value <= Range('C7').Value Then
Feuil3.Range('I3').Value = Range('C14').Value
End If
If Range('C15').Value <= Range('C7').Value Then
Feuil3.Range('J3').Value = Range('C15').Value
End If
If Range('C16').Value <= Range('C7').Value Then
Feuil3.Range('K3').Value = Range('C16').Value
End If
If Range('C17').Value <= Range('C7').Value Then
Feuil3.Range('L3').Value = Range('C17').Value
End If
If Range('C18').Value = 0 Then
etc....

Merci pour votre aide
Sylvain

 

[Klorane]

Mon message ayant etait modifié à l'envoie je le reposte.

Bonsoir à tous,

j'utilise dans ma feuille la macro ci dessous à laquelle je vais devoir encore ajouter des lignes.

If Range('C8').Value <= Range('C7').Value Then
Feuil3.Range('C3').Value = Range('C8').Value
End If
If Range('C9').Value <= Range('C7').Value Then
Feuil3.Range('D3').Value = Range('C9').Value
End If
If Range('C10').Value <= Range('C7').Value Then
Feuil3.Range('E3').Value = Range('C10').Value
End If
If Range('C11').Value <= Range('C7').Value Then
Feuil3.Range('F3').Value = Range('C11').Value
End If
If Range('C12').Value <= Range('C7').Value Then
Feuil3.Range('G3').Value = Range('C12').Value
End If
If Range('C13').Value <= Range('C7').Value Then
Feuil3.Range('H3').Value = Range('C13').Value
End If
If Range('C14').Value <= Range('C7').Value Then
Feuil3.Range('I3').Value = Range('C14').Value
End If
If Range('C15').Value <= Range('C7').Value Then
Feuil3.Range('J3').Value = Range('C15').Value
End If
If Range('C16').Value <= Range('C7').Value Then
Feuil3.Range('K3').Value = Range('C16').Value
End If
If Range('C17').Value <= Range('C7').Value Then
Feuil3.Range('L3').Value = Range('C17').Value
End If

Je dois prochainement rajouter des lignes à cette macro. Pour me simplifier la vie et la simplifier qui pourrait m'aider à la presenter sous la forme suivante :

Dim L As Integer

For L = 1 To 17

If Range('C' & L).Value <= Range('C7').Value Then

etc.

je connais le principe pour le faire les une sous les autres mais pas les une à coté des autres.

Merci pour votre aide.
Sylvain

 

[Charly2]

Salut Sylvain

Tu pourrais peut-être essayer :

For i = 8 To 17
  If Cells(i, 3) <= Range('C7') Then
    Feuil3.Cells(3, i - 5) = Cells(i, 3)
  End If
Next i

En espérant que cela réponde à ta question...

A+

 

[Klorane]

Merci Charly!

C'est tout à fait se qu'il me faut!

Encore Merci

Sylvain