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

mon code est le suivant:

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
    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