Discussion :

[oliver75]

Bonjour

Voilà mon souci. je cherche à tester que le code "FR0007419171" existe bien dans mon fichier "EVLSAV".


j'obtiens sur la ligne de code en gras ci-dessous le code erreur :

"erreur execution 9: l'indice n'appartient pas à la sélection".

Après diverses tentatives de corrections, je reste blocqué

Avez vous une solution?

merci

oliver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    
Sub vérification_du_fichier_evlsav()
'ce sub sert à vérifier que les monétaires sont bien presents dans le fichier evlsav

    Dim i
   
    'Windows("EVLSAV.XLS").Activate
        
For i = 1 To 500

If (Sheets("EVLSAV").Range("C" & i)) = "FR0007419171" Then

    
Call suite_copy_fich

 
 Else
    
    
    
    End If
Next i
    
    
    
    
    For i = 1 To 500

If (Sheets("EVLSAV").Range("C" & i)) <> "FR0007419171" Then

    

  MsgBox " Le contrôle ne peut être lancé. Les monétaires ne sont pas prises en compte"

 
 Else
    
    
    
    End If
Next i
    
    
        
          
  
   
    
End Sub

[mordrhim]

fichier "EVLSAV".
ou
feuille "EVLSAV" ?

pakse si c'est un fichier le sheets() va pas etre bon

[oliver75]

je recherche le code dans le fichier EVLSAV.XLS qui contient la feuille "EVLSAV

[tirex28]

Bonjour,

A priori le nom de la feuille n'est pas reconnu, vérifie qu'elle existe bien dans le classeur actif au moment de l'execution.

A part ca, ton instruction peut s'écrire plus simplement comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Sheets("EVLSAV").Cells(i,3) = "FR0007419171" Then

Cordialement,

Tirex28/

[oliver75]

Est ce que le fait que le feuille ou je recherche l'info ait le meme nom que le fichier pose un pb?

[Azounet1529]

Essaie peut-être en activant la feuille aussi ....

[oliver75]

je viens de remettre

Windows("EVLSAV.XLS").Activate


et là ça passe.........


merci de votre aide

olivier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub vérification_du_fichier_evlsav()

'ce sub sert à vérifier que les monétaires sont bien presents dans le fichier evlsav

    Dim i
   
   Windows("EVLSAV.XLS").Activate
        
For i = 1 To 500

If Sheets("EVLSAV").Cells(i, 3) = "FR0007419171" Then

Call suite_copy_fich

 Else
    
    End If
Next i

    For i = 1 To 500

If (Sheets("EVLSAV").Range("C" & i)) <> "FR0007419171" Then

  MsgBox " Le contrôle ne peut être lancé. Les monétaires ne sont pas prises en compte"

 Else
    
    End If
Next i

End Sub

[oliver75]

bonjour,

comprends pas ce qui ce passe. Le code ci-dessus parait instable. Vendredi il passait et aujourdhui je me reprends le meme message d'erreur "erreur execution 9: l'indice n'appartient pas à la sélection".

Par contre lorsque je me mets sur la macro et que je la déroule avec F8 , les instructions passent bien

what's happen?

oliver

[mordrhim]

il est possible que lorsque tu lance la macro autrement que par "F8", tu e sois pas positioné au bon endroit.

si tu as plusieurs classeurs (fenêtre) ouvert(e)s, il faut que tu te positionne sur celui qui contient la feuille que tu veux utiliser ("EVLSAV"), personnellement je travaille avec des objets (set FeuilleTravail = Sheets("Celle que je veux")), mais il faut penser qu'il faut bien définir quelle feuille, quel classeur est quoi dans tes variables.
sinon je vois pas trop ^^