Discussion :

[Isabelle86]

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!

[BenjGe]

et comme ceci que se passe t-il ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub macro1()
Worksheets(2).UsedRange.FormulaR1C1 = "=SUM(IF(AND(YEAR(R1C)<=YEAR(RC4),RC8<R1C),RC7*RC6/100),IF(YEAR(R1C)=YEAR(RC4),RC6,0))"
end sub

et n'est ce pas plutôt ceci? car usedrange a des défauts

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub macro2()
Worksheets(2).Range("N2").CurrentRegion.FormulaR1C1 = "=SUM(IF(AND(YEAR(R1C)<=YEAR(RC4),RC8<R1C),RC7*RC6/100),IF(YEAR(R1C)=YEAR(RC4),RC6,0))"
end sub

[Isabelle86]

Cela ne fonctionne pas. Dans les deux cas, il calcule la formule pour tout le tableau, au lieu de commencer à la cellule N2.

[BenjGe]

quelle est l'adresse du tableau ou en quelle cellule commence t il, et quelle recopie doit être effectuée?

[Isabelle86]

Pour un nombre indéfini de lignes, on a des données de la colonne A à la colonne M.
Les colonnes suivantes (à partir de N) doivent être calculées en fonction des données dans ces M colonnes (le nombre M de ces colonnes est fixe).
Les formules apparaissent donc à partir de la colonne N, ligne 2 (puisque la première ligne dénomme les colonnes) et ce jusqu'à la colonne BJ (mais le nombre de colonne risque de changer) et descendent jusqu'à une ligne indéterminée.

C'est plus clair?

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim LastLig As Long
Dim LastCol As Integer
 
With Worksheets(2)
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    .Range(.Cells(2, 14), .Cells(LastLig, LastCol)).FormulaR1C1 = "=SUM(IF(AND(YEAR(R1C)<=YEAR(RC4),RC8<R1C),RC7*RC6/100),IF(YEAR(R1C)=YEAR(RC4),RC6,0))"
End With

[Isabelle86]

Super, ça fonctionne!
Merci beaucoup!