K
Klorane
Guest
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
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