Erreur 6 " dépassement de capacité"

[JANO]

Bonjour le Forum,

Est t'il possible de remédier au message suivant :

- Erreur 6 " dépassement de capacité"


Sub test()

Dim imax As Integer

With Sheets("1")
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:R60000C3,MATCH(1,(base!R2C1:R6000C1=RC1)*(base!R2C2:R60000C2=RC3),0))"
.Range("B2").FormulaArray = formule
.Range("B2").AutoFill Destination:=.Range("b2:b" & imax), Type:=xlFillDefault
End With
End Sub

Merci de votre aide et bonne journée à tous

 

[fhoest]

Re : Erreur 6 " dépassement de capacité"

Bonjour,
a essayer:

 dim imax as long

A+

 

[JANO]

Re : Erreur 6 " dépassement de capacité"

merci fhoest, cela fonctionne.