l indice n appartient pas a la selection

Version imprimable

bonjour je recois un mess d erreur:
erreur d'execution: '9'
l indice n appartient pas à la selection8O8O8O8O¨

mon code est le suivant:

Code:

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
    Dim numcol As Integer, numligne As Integer
    Dim nbtotalligne As Integer
    Dim nbtotalcol As Integer
    Dim i As Integer
    Dim d As Integer
    Dim colat As Integer
    
    
    
    Application.ScreenUpdating = False 'ici c est pour rendre inactif l affichage le travail de la macro

    On Error GoTo erreur
    
    Workbooks.Open Filename:="G:\Rapport stage\Organisation\Double et travail macro\Conversion xls\vegcdelux2l.xls"
    Application.Workbooks("vegcdelux2l.xls").Activate
    
    On Error GoTo 0         'pour dire de ne plus tenir compte du truc d erreur d avant si y en a pas eu
    
    numcol = 1          'A MODIF
    nbtotalligne = Compte_nb_lignes_non_caches(numcol)
    colat = 46
    MsgBox (nbtotalligne)
    For i = 2 To nbtotalligne
        If Worksheets("Sheet1").Cells(i, colat).Value = 0 Then ' et c est cette ligne qui me souligne:(:(:(:cry:
            Worksheets("Sheet1").Cells(i, colat).Value = 7
        End If

je ne comprend pas bien les selection des cases dans les feuille xls pouvez vous si vous avez un truc qui explique me donner le lien.
merci d avance

15/07/2008, 08h25
J.Michel

Bonjour,

Voici déjà 3 liens utiles:
La FAQ Excel
Les Tutoriels
La FAQ VBA

Concernant ton problème, assure toi que le classeur actif contient bien la feuille "sheet1".
Sinon active ton classeur, puis ta feuille, puis travaille avec ActiveSheet pour faire un test

Code:

1
2
Workbooks.Open Filename:="G:\Rapport stage\Organisation\Double et travail macro\Conversion xls\vegcdelux2l.xls"
    Application.Workbooks("vegcdelux2l.xls").Activate

Il me semble que cette ligne permet d'activer et la feuille et le classeur...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   numcol = 1          'A MODIF
    nbtotalligne = Compte_nb_lignes_non_caches(numcol)
    colat = 46
    MsgBox (nbtotalligne)
 
    For i = 2 To nbtotalligne
        If Worksheets("Sheet1").Cells(i, colat).Value = 0 Then
            Worksheets("Sheet1").Cells(i, colat).Value = 7
        End If
    Next i
 
    Application.ScreenUpdating = True  'ici c est pour rendre actif l affichage le travail de la macro
 
Exit Sub

sinon je mettrai bien un Worksheets("Sheet1").Activate avant la boucle for mais ca ne marche pas! help me

15/07/2008, 12h13
J.Michel

Code:

Application.Workbooks("vegcdelux2l.xls").Activate

Cette ligne permet d'activer le classeur

Quand tu dis

Citation:

Envoyé par manphenix

sinon je mettrai bien un Worksheets("Sheet1").Activate avant la boucle for mais ca ne marche pas! help me

Pourquoi ça ne marche pas ?
Quelle est l'erreur retournée ?

Sinon essaye

Code:

ActiveWorkbook.Worksheets("Sheet1").Activate

c'est la meme erreur qui est renvoyer, soit:

erreur d'execution: '9'
l indice n appartient pas à la selection

et il me surligne Worksheets("Sheet1").Activate quand je clique sur debuggage.

je vous remontre le code:

Code:

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
 
 
Sub transfo_xls_be_en_lu()
 
 
    Dim numcol As Integer, numligne As Integer
    Dim nbtotalligne As Integer
    Dim nbtotalcol As Integer
    Dim i As Integer
    Dim d As Integer
    Dim colat As Integer
 
 
    Application.ScreenUpdating = False 
    On Error GoTo erreur
 
    Workbooks.Open Filename:="G:\Rapport stage\Organisation\Double et travail macro\Conversion xls\vegcdelux2l.xls"
    Application.Workbooks("vegcdelux2l.xls").Activate
 
    numcol = 1
    nbtotalligne = Compte_nb_lignes_non_caches(numcol)
    colat = 46
    MsgBox (nbtotalligne)
    Worksheets("Sheet1").Activate
    For i = 2 To nbtotalligne
        If Worksheets("Sheet1").Cells(i, colat).Value = 0 Then
            Worksheets("Sheet1").Cells(i, colat).Value = 7
        End If
    Next i
 
    Application.ScreenUpdating = True 
Exit Sub
 
Application.Workbooks("vegcdelux2l.xls").Close False
'Application.Workbooks("conversion.xls").Close False
 
End Sub

15/07/2008, 12h39
J.Michel

Peux tu nous envoyer ton fichier pour mieux comprendre.
Si nécessaire, efface les datas à ne pas divulguer ;)

1 pièce(s) jointe(s)

en fait je veux:
1 ouvrir un fichier xls ( ca c'est bon )
2 qui selectionne la seule feuille du fichier (la je suis a moitié convaincu
car je lui ai demander dans une fonction de compter le nb de ligne sur la xeme colonne et il m'a repondu correctement)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function Compte_nb_lignes_non_caches(numcol As Integer) As Integer Dim l As Integer, R As Integer R = 0 For l = 1 To Cells(65536, numcol).End(xlUp).Row If Not Rows(l) Is Nothing Then R = R + 1 Next l ' MsgBox ("il y a " & R & " lignes visibles dans la colonne A") controle Compte_nb_lignes_non_caches = R End Function
3 je lui demander de verifier le contenu de chaque celulle d une meme colonne.
et si le contenu est 0 alors il doit le remplacer par 7. (et la ca merde)
8O:cry::cry:

voila le fichier ou il y a la macro. voila et merci d avance

15/07/2008, 13h02
manphenix

1 pièce(s) jointe(s)

voila le 2 eme. celuis ci c'est le tableau a modifier. fichier qui change chaque jour

Ok Vu.
Ta feuille ne s'appelle pas "Sheet1" mais "vegcdelux2l" d'où l'erreur.
Par contre, vu qu'il n'y a qu'une seule feuille, tu peux utiliser "Worksheets(1)" comme dans le code ci dessous:

Code:

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
 
Sub transfo_xls_be_en_lu()
 
 
    Dim numcol As Integer, numligne As Integer
    Dim nbtotalligne As Integer
    Dim nbtotalcol As Integer
    Dim i As Integer
    Dim d As Integer
    Dim colat As Integer
 
 
    Application.ScreenUpdating = False 
    On Error GoTo erreur
 
    Workbooks.Open Filename:="G:\Rapport stage\Organisation\Double et travail macro\Conversion xls\vegcdelux2l.xls"
    Application.Workbooks("vegcdelux2l.xls").Activate
 
    numcol = 1
    nbtotalligne = Compte_nb_lignes_non_caches(numcol)
    colat = 46
    MsgBox (nbtotalligne)
    Worksheets(1).Activate
    For i = 2 To nbtotalligne
        If Worksheets(1).Cells(i, colat).Value = 0 Then
            Worksheets(1).Cells(i, colat).Value = 7
        End If
    Next i
 
    Application.ScreenUpdating = True 
Exit Sub
 
Application.Workbooks("vegcdelux2l.xls").Close False
'Application.Workbooks("conversion.xls").Close False
 
End Sub

15/07/2008, 13h46
manphenix

reussi

Tous d abord un grand merci.

apres j'ai une question:

je pensais que Application.Workbooks("vegcdelux2l.xls").Activate c'est uniquement pour ouvrir le fichier

et que chaque feuille de excel s'appeler feuil1,feuil2...
meme si on peut les renommer, je penser que c'etait un renomer de surface(formule imagé).

si j'ai 3 feuill:feuil1,feuil2, feuil3
je doit ecrire pour ativer la feuil2: Worksheets("feuil2").Activate
et pour avoir la valeur d'une celule c'est Worksheets("feuil2").Cells(x,y).Value

et comme j'ai worksheets("feuil2") je peut mettre dans la suite .cells(x,y).value (sans worksheets("feuil2") avant)

enfin une derniere question:
je vais ouvrir un fichier, je souhaiterai qu'il le prenne dans le repertoire du fichier de la macro. j'ai essayer avec:
Workbooks.Open Filename:=".\vegcdelux2l.xls" et ca n a pas marché
a tu quelques pistes? merci encore
15/07/2008, 15h04
fring

Citation:

Envoyé par manphenix

je vais ouvrir un fichier, je souhaiterai qu'il le prenne dans le repertoire du fichier de la macro. j'ai essayer avec:
Workbooks.Open Filename:=".\vegcdelux2l.xls" et ca n a pas marché
a tu quelques pistes? merci encore

Code:

Workbooks.Open Filename:=ThisWorkbook.Path & "\vegcdelux2l.xls"

netoyage ou simplification du code

Bonjour à tous, et merci :king:

Je viens vous poser une nouvelle question:
Comment simplifier le code tout en sachant que le programme marche comme il le doit. Cependant je pense qu il est simplifiable mais je suis pour l'instant demuni.

Code:

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
51
52
53
54
 
 Dim numcol As Integer, numligne As Integer
    Dim nbtotalligne As Integer
    Dim nbtotalcol As Integer
    Dim i As Integer
    Dim d As Integer
    Dim colat As Integer
 
 
 
    Application.ScreenUpdating = False 
    Workbooks.Open Filename:=ThisWorkbook.Path & "\vegcdelux2l.xls"
    Application.Workbooks("vegcdelux2l.xls").Activate
 
 
    numcol = 1         
    nbtotalligne = Compte_nb_lignes_non_caches(numcol)
    colat = 46
    For i = 2 To nbtotalligne
        If Worksheets("vegcdelux2l").Cells(i, colat).Value = 0 Then
            If Worksheets("vegcdelux2l").Cells(i, colat + 1).Value Like "titi *" Then
                Worksheets("vegcdelux2l").Cells(i, colat).Value = "'3"
              ElseIf Worksheets("vegcdelux2l").Cells(i, colat + 1).Value Like "toto *" Then
                Worksheets("vegcdelux2l").Cells(i, colat).Value = "'3"
              ElseIf Worksheets("vegcdelux2l").Cells(i, colat + 1).Value Like "lolo *" Then
                Worksheets("vegcdelux2l").Cells(i, colat).Value = "'3"
              Else:
                If Worksheets("vegcdelux2l").Cells(i, colat + 3).Value <> "" Then
                        Worksheets("vegcdelux2l").Cells(i, colat).Value = "'2"
                    Else
                        If Worksheets("vegcdelux2l").Cells(i, colat + 2).Value <> "" Then
                            Worksheets("vegcdelux2l").Cells(i, colat).Value = "'1"
                         Else
                            If Worksheets("vegcdelux2l").Cells(i, colat + 1).Value Like "* SA *" Then
                                Worksheets("vegcdelux2l").Cells(i, colat).Value = "'2"
                            ElseIf Worksheets("vegcdelux2l").Cells(i, colat + 1).Value Like "* SARL *" Then
                                Worksheets("vegcdelux2l").Cells(i, colat).Value = "'2"
                            Else
                                Worksheets("vegcdelux2l").Cells(i, colat).Value = "'1"
                            End If
                        End If
                End If
              End If
        End If
    Next i
    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\vecdelux.xls"
    Application.Workbooks("vecdelux.xls").Close False
    CreMAJCDES
    Workbooks.Open Filename:=ThisWorkbook.Path & "\vevehlux2.xls"
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\vevehlux.xls"
    CreMAJ
    Application.ScreenUpdating = True  
Exit Sub