Bonsoir à tous,
Je cherche à insérer une formule dans deux tableaux ("Classement A" - colonne "I5:I9") et ("Classement B" - colonne "I13:I19") situés sur une feuille.
Ces tableaux auront un nombre de ligne variable.
Ma macro (voir fichier joint) ne fonctionnant pas, quelqu'un a-t-il une solution?
Cordialement,
BChaly
**************************************************
Code:
Option Explicit
Sub Formule()
Dim cell As Range
Dim NbLigne As Long
NbLigne = [C65536].End(xlUp).Row - 12
For Each cell In Sheets("Sheet1").Range("C4:J50")
'Inserer formule dans colonne ("I5:I9")
If cell.Value = "T1" Then cell.Offset(1, 0).Resize(NbLigne).FormulaR1C1 = _
"=INDEX(R5C3:R9C4,MATCH(ROWS(R5C:RC)-1,R5C[-7]:R9C[-7],0),1)"
'Inserer formule dans colonne ("I13:I19")
If cell.Value = "T2" Then cell.Offset(1, 0).Resize(NbLigne).FormulaR1C1 = _
"=INDEX(R13C3:R19C4,MATCH(ROWS(R13C:RC)-1,R13C[-7]:R19C[-7],0),1)"
Next
End Sub
**************************************************
Je cherche à insérer une formule dans deux tableaux ("Classement A" - colonne "I5:I9") et ("Classement B" - colonne "I13:I19") situés sur une feuille.
Ces tableaux auront un nombre de ligne variable.
Ma macro (voir fichier joint) ne fonctionnant pas, quelqu'un a-t-il une solution?
Cordialement,
BChaly
**************************************************
Code:
Option Explicit
Sub Formule()
Dim cell As Range
Dim NbLigne As Long
NbLigne = [C65536].End(xlUp).Row - 12
For Each cell In Sheets("Sheet1").Range("C4:J50")
'Inserer formule dans colonne ("I5:I9")
If cell.Value = "T1" Then cell.Offset(1, 0).Resize(NbLigne).FormulaR1C1 = _
"=INDEX(R5C3:R9C4,MATCH(ROWS(R5C:RC)-1,R5C[-7]:R9C[-7],0),1)"
'Inserer formule dans colonne ("I13:I19")
If cell.Value = "T2" Then cell.Offset(1, 0).Resize(NbLigne).FormulaR1C1 = _
"=INDEX(R13C3:R19C4,MATCH(ROWS(R13C:RC)-1,R13C[-7]:R19C[-7],0),1)"
Next
End Sub
**************************************************