Erreur "L'indice n'appartient pas à la sélection"

Question

Bonjour,
Voilà ça fait un ptit moment que je suis cette fameuse erreur et je n'arrive pas à trouver la solution sur les forums.
Voici mon code :
Private Sub CommandButton1_Click()
    'fichier = "E:\Mantis\_excel.xls"
    Workbooks.Open Filename:=fichier
     Range("E1").Select
     
    For i = 3 To Range("E65536").End(xlUp).Row
   
        Date = Range("E" & CStr(i)).Cells ' je sélectionne la date dans la case de mon fichier excel
           If Date <= date_fin And Date >= date_deb Then
               Id(i) = Range("A" & CStr(i)).Cells ' l'erreur se produit ici
           Else: Range("E" & CStr(i)).EntireRow.Delete
           End If
      Next i  
End Sub

S'il vous plaît aidez moi , il doit y avoir une chose que je fais mal.

Utilisateur anonyme · Answer

Salut,

Quel est la déclaration du tableau Id ?

__________
  Kenji

kiligur · Answer

A y est j'ai trouvé : une erreur de taille de tableau .

kiligur · Answer

Merci quand même Charles j'avais pas vu ton message.

Erreur "L'indice n'appartient pas à la sélection"

3 réponses

Votre réponse

Discussions similaires