Simplifier une macro

[Klorane]

Bonsoir à tous,

j'utilise actuellement la macro ci dessous dans ma feuille excel.

If Range('AQ7').Value >= 0 Then
Range('C8').Value = Range('AM7').Value * Range('C3').Value
End If
If Range('AQ8').Value >= 0 Then
Range('C9').Value = Range('AM8').Value * Range('C3').Value
End If
If Range('AQ9').Value >= 0 Then
Range('C10').Value = Range('AM9').Value * Range('C3').Value
End If
If Range('AQ10').Value >= 0 Then
Range('C11').Value = Range('AM10').Value * Range('C3').Value
End If
If Range('AQ11').Value >= 0 Then
Range('C12').Value = Range('AM11').Value * Range('C3').Value
End If
If Range('AQ12').Value >= 0 Then
Range('C13').Value = Range('AM12').Value * Range('C3').Value
End If
If Range('AQ13').Value >= 0 Then
Range('C14').Value = Range('AM13').Value * Range('C3').Value
End If
If Range('AQ14').Value >= 0 Then
Range('C15').Value = Range('AM14').Value * Range('C3').Value
End If
If Range('AQ15').Value >= 0 Then
Range('C16').Value = Range('AM15').Value * Range('C3').Value
End If
If Range('AQ16').Value >= 0 Then
Range('C17').Value = Range('AM16').Value * Range('C3').Value
End If
If Range('AQ17').Value >= 0 Then
Range('C18').Value = Range('AM17').Value * Range('C3').Value
End If

Je vais devois modifier cette macro mais celle ci va faire plus de 100 lignes si elle reste sur ce modèle.

Ne sachant pas faire y a til possibilité de présenter la macro ci dessus avec un systeme genre :

Dim A as range
If Range('AQ7:AQ17').Value >= 0 Then
.....

Qui pourrais m'aider si cela est possible pour la rédiger?

Merci.
Sylvain

 

[Hervé]

bonsoir klorane

peut etre comme ceci, sans avoir testé :

Dim i As Byte

For i = 7 To 17
If Range('aq' & i) >= 0 Then
Range('c' & i + 1) = Range('am' & i) * Range('C3')
End If
Next i

salut

Message édité par: Hervé, à: 05/01/2006 22:18

 

[Jacques87]

Bonsoir Sylvain

Dim I as Integer

For I = 7 To 17
If Range('AQ' & I).Value >= 0 Then
Range('C' & I+1).Value = Range('AM' & I).Value * Range('C3').Value
End If

Il va de soi que tu devras adapter en fonction du nombre d etests dans ta boucle (ici 10 - de 7 à 17)

Bon courage

 

[Jacques87]

Oups Hervé, il y a eu colision

Content de te croiser
Bonne soirée et à plus

 

[Hervé]

Bonsoir jacques

rien de grave pour la colision.

content également de te voir parmi nous jacques, c'est un réel plaisir.

salut

 

[Brigitte]

Bonsoir bonsoir

Tout en écoutant de la super music, je suis les posts... et que vois je : la collision de notre Hervé avec Jacques...

Alors j'en profite, Jacques, pour te souhaiter officiellement la bienvenue, sur le forum, en tant que Jacques87 (pardon Klorane)...

T'aurais pu trouver pire comme collision, Hervé est notre moussaillon adoré, il trouve des macros pour tout... et là les grands esprits se sont rencontrés, on dirait.

Jacques, une idée : et si tu nous faisais un ti fil dans le salon 'Présentation' ?

Bisous à tous...

PS : Klorane, c'est pas un shampooing qui sent super bon ?

 

[Klorane]

Merci à vous tous pour votre aide. ça marche super!

Sinon Brigitte, en effet Klorane c'est bien une marque pour un shampooing je crois que cette marque fait d'autre trucs,elle doit etre orientée vers les produits pour bébés.

Encore merci