G gnimitz XLDnaute Occasionnel 24 Octobre 2012 #1 Bonjour à tous !!!! Comment adapter le code ci-dessous pour qu'elle effectue la calculation de Q6 à Q2000 au lieu d'avoir 2000 lignes...(lol) Une bonne journée à tous et à toutes !!!! Mike Sub Macro2() ' ' Macro2 Macro ' ' Range("Q6").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q7").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q8").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q9").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q10").Select
Bonjour à tous !!!! Comment adapter le code ci-dessous pour qu'elle effectue la calculation de Q6 à Q2000 au lieu d'avoir 2000 lignes...(lol) Une bonne journée à tous et à toutes !!!! Mike Sub Macro2() ' ' Macro2 Macro ' ' Range("Q6").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q7").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q8").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q9").Select ActiveCell.FormulaR1C1 = "=calcul_sal_new(RC[-8])" Range("Q10").Select
Pierrot93 XLDnaute Barbatruc 24 Octobre 2012 #2 Re : Code VBA Bonjour, peut être comme ceci : Code: Dim i As Long For i = 6 To 2000 Cells(i, 17).FormulaR1C1 = "=calcul_sal_new(RC[-8])" Next i bonne journée @+ Vote positif 0 Vote négatif
Re : Code VBA Bonjour, peut être comme ceci : Code: Dim i As Long For i = 6 To 2000 Cells(i, 17).FormulaR1C1 = "=calcul_sal_new(RC[-8])" Next i bonne journée @+
G gnimitz XLDnaute Occasionnel 24 Octobre 2012 #3 Re : Code VBA Bonjour ! Merci je vais tester Mike Vote positif 0 Vote négatif