Re bonsoir le forum,
J'ai un "dépassement de capacité" et je suis perdu
Merci
With Sheets("sheet1")
If .[b1].Value = "Réponse" Then .[b1].EntireColumn.Delete
imax = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns("B:B").Insert Shift:=xlToRight
.Range("B1").Value = "Réponse"
formule = "=INDEX(base!R2C3:R50000C3,MATCH(1,(base!R2C1:R50000C1=RC1)*(base!R2C2:R50000C2=RC3),0))"
.Range("B2").FormulaArray = formule
.Range("B2").AutoFill Destination:=.Range("b2:b" & imax), Type:=xlFillDefault
End With
J'ai un "dépassement de capacité" et je suis perdu
Merci
With Sheets("sheet1")
If .[b1].Value = "Réponse" Then .[b1].EntireColumn.Delete
imax = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns("B:B").Insert Shift:=xlToRight
.Range("B1").Value = "Réponse"
formule = "=INDEX(base!R2C3:R50000C3,MATCH(1,(base!R2C1:R50000C1=RC1)*(base!R2C2:R50000C2=RC3),0))"
.Range("B2").FormulaArray = formule
.Range("B2").AutoFill Destination:=.Range("b2:b" & imax), Type:=xlFillDefault
End With