Bonjour,

J'ai écrit un programme pour remplir un tableau avec une formule. Mais le programme ne semble pas avoir d'erreurs mais par contre, si je lance la macro, rien ne se passe et mon fichier Excel est même bloqué.

Voici mon programme (calcul d'une formule à partir de la cellule N2 jusqu'au plus bas et le plus à droite):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub macro()
 
Dim NbLignes As Long
Dim NbColumns As Long
Dim i As Long
Dim j As Long
 
Worksheets(2).Activate
 
'Détermine le nombre de colonnes et lignes
NbLignes = ActiveSheet.UsedRange.Rows.Count
NbColumns = ActiveSheet.UsedRange.Columns.Count
 
 
For i = 2 To NbLignes
    For j = 14 To NbColumns
    Cells(i, j).FormulaR1C1 = "=SUM(IF(AND(YEAR(R1C)<=YEAR(RC4),RC8<R1C),RC7*RC6/100),IF(YEAR(R1C)=YEAR(RC4),RC6,0))"
     Next j
Next i
 
End Sub
Merci d'avance!