Erreur "i n'appartient pas à la selection " Fermé

Question

Bonjour, je suis débutante en vba et je n'arrive pas à résoudre ce problème. On me dit que l'indice i n'appartient pas à la séléction.

Merci. 

Sub compareSheets()
Application.ScreenUpdating = False

Dim i As Integer
Dim j As Integer
Dim cmp As Integer
Dim nbLignes1 As Integer
Dim nbLignes2 As Integer

Worksheets("Données CSV").Cells.Interior.Pattern = xlNone


nbLignes1 = Worksheets("Données CSV").Range("A65536").End(xlUp).Row
nbLignes2 = Worksheets("Données Apollo").Range("A65536").End(xlUp).Row

    For i = 1 To nbLignes1
     cmp = 0
     
        For j = 1 To nbLignes2
         If Worksheets("Données CSV").Range("E" & i + 2).Value = Worksheets("Données Apollo").Range("A" & j + 8).Value Then
            cmp = cmp + 1
         End If
        Next j
        
        If cmp = 0 Then
            Worksheets("Données CSV").Rows(i).Interior.ColorIndex = 3
        End If
        
    Next i
         
        

Application.ScreenUpdating = True
End Sub

scinarf · Answer

Bonjour, 

Je dirai normal ... 

I va de 1 à 65536 or dans votre test vous faites i+2 donc 65538 qui ne doit probablement pas exister. 

Question : 

êtes vous obligée de parcourir l'ensemble du fichier Excel ? 

Ceci :
If Worksheets("Données CSV").Range("E" & i + 2).Value = Worksheets("Données Apollo").Range("A" & j + 8).Value Then 
peut être remplacé par ceci:
If Worksheets("Données CSV").cells(5,i+2) = Worksheets("Données Apollo").cells(1,j+8) Then 

Personnellement je prefère utiliser Cells que Range, cela permet une navigation en ligne et en colonne plus facilement. 

Pour que votre programme marche sans soucis vous pouvez ajouter :
"if(i +2 <= 65536) then "
juste avant la 2eme boucle for. 

Si vous avez d'autre question ne pas hésiter.

SalmaZ · Answer

Merci beaucoup scinarf mais le problème ne venait pas de là finalement. Excel ne reconnaisait pas la Worksheets("Données Apollo"). J'ai du passer par :

Set principal = ThisWorkbook
principal.Sheets(2).Activate

Erreur "i n'appartient pas à la selection "

2 réponses

Discussions similaires