Bonjour à tousBonjour,
Je souhaiterais multiplier la colonne L par la colonne AU et divisé par la colonne G et inscrire ce résultat dans la colonne AW pour 170 000 lignes.
Merci d'avance,
Cordialement,
Sub calcul()
With Feuil1.Range("AW2:aw" & Feuil1.Cells.Find("*", , , , xlByRows, xlPrevious).Row)
.Formula = "=l2*au2/g2"
.Value = .Value
End With
End Sub
Bonjour @MR.O,Bonjour,
Je souhaiterais multiplier la colonne L par la colonne AU et divisé par la colonne G et inscrire ce résultat dans la colonne AW pour 170 000 lignes.
Merci d'avance,
Cordialement,
Bonjour à tousBonjour,
Je souhaiterais multiplier la colonne L par la colonne AU et divisé par la colonne G et inscrire ce résultat dans la colonne AW pour 170 000 lignes.
Merci d'avance,
Cordialement,
Sub calcul()
With Feuil1.Range("AW2:aw" & Feuil1.Cells.Find("*", , , , xlByRows, xlPrevious).Row)
.Formula = "=l2*au2/g2"
.Value = .Value
End With
End Sub
Sub test()
Dim TabData() As Variant
With ActiveSheet
fin = .Range("AV" & .Rows.Count).End(xlUp).Row
TabData = .Range("A1:AW" & fin).Value
For i = LBound(TabData, 1) + 1 To UBound(TabData, 1)
TabData(i, 49) = TabData(i, 12) * TabData(i, 47) / TabData(i, 7)
Next i
.Range("A2:AW" & fin) = TabData
End With
End Sub
Sub ProduitEtDivision()
Dim dl As Long
dl = ActiveSheet.Cells(Application.Rows.Count, 7).End(xlUp).Row
ActiveSheet.Range("AW2:AW" & dl).FormulaR1C1 = "=RC12*RC47/RC7"
End Sub
Sub test()
Dim TabData() As Variant
With ActiveSheet
'fin = .Range("AV" & .Rows.Count).End(xlUp).Row
fin = .UsedRange.Rows.Count
TabData = .Range("A1:AW" & fin).Value
For i = LBound(TabData, 1) + 1 To UBound(TabData, 1)
TabData(i, 49) = TabData(i, 12) * TabData(i, 47) / TabData(i, 7)
Next i
.Range("A1:AW" & fin) = TabData
End With
End Sub
Sub MaFormule()
Application.ScreenUpdating = False
Dim Derlig&
Derlig = Worksheets("T_Cartographie").Range("L" & Rows.Count).End(xlUp).Row
[AW2].FormulaLocal = "=(L2*AU2)/AU2"
[AW2].AutoFill Destination:=Range("AW2:AW" & Derlig), Type:=xlFillDefault
End Sub
C'est avec plaisirMerci à tous pour vos réponses j'ai repris le code de LeSaintKebab mais celui de vgendron fonctionne aussi.
Encore merci à vous,
Cordialement,