Out of Range, que se passe-t-il ?

**iMaTh** · 06/09/2011, 18h11

Bonjour,

J'ai développé une macro qui tri une feuille en fonction de catégories spécifiées sur une autre feuille.

Quand je l’exécute, au bout d'un moment je me retrouve avec le message d'erreur "Out of Range" et je comprend pas du tout pourquoi.

Avez vous une idée ?

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
51
52
53
54
55
56
57
58
59
 
Sub reportingByModality()
 
    Application.DisplayAlerts = False
 
    With Sheets("raw_data")
 
    Dim category As String
    Dim lastCategory As String
    Dim modality As String
    Dim maxLineRawData As Long
    Dim maxLineModality As Long
    Dim cursor As Long
 
    category = ""
    lastCategory = ""
    maxLineModality = Sheets("Modality").Range("B65536").End(xlUp).Row
    maxLineRawData = Sheets("raw_data").Range("B65536").End(xlUp).Row
 
        For i = 2 To maxLineModality
 
            modality = Trim(Sheets("Modality").Range("A" & i).Value)
            category = Trim(Sheets("Modality").Range("B" & i).Value)
 
            If Replace(category, "/", "-") <> Replace(lastCategory, "/", "-") Then
                Application.ScreenUpdating = True
 
                'On crée une nouvelle feuille
                category = Replace(category, "/", "-")
                Sheets.Add.Move After:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = category
 
                'on copie l'entete
                Sheets("raw_data").Cells(1, "A").EntireRow.Copy
                Sheets(category).Cells(1, 1).Insert Shift:=xlDown
                Sheets(category).Range("A:CN").Columns.AutoFit
 
                Application.ScreenUpdating = False
            End If
 
            'On parse la feuille raw data
            cursor = 2
            For j = 1 To maxLineRawData
 
                If Trim(Sheets("raw_data").Range("CF" & j).Value) = Trim(modality) Then
                    Sheets("raw_data").Cells(j, "A").EntireRow.Copy
                    Sheets(category).Cells(cursor, 1).Insert Shift:=xlDown
                    cursor = cursor + 1
                End If
 
            Next j
 
            lastCategory = category
 
        Next i
 
    End With
 
End Sub

**SfJ5Rpw8** · 06/09/2011, 20h40

Sur qu'elle ligne ?

**iMaTh** · 07/09/2011, 09h24

Envoyé par bbil

Sur qu'elle ligne ?

Je débute complètement en VBA, comment connaitre la ligne qui pose soucis ?

**Theze** · 07/09/2011, 09h46

Bonjour,

Je pencherai pour une variable dont le type n'est pas adaptée du style :

Code :

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

1
2
3
4
5
 
Dim I As Integer 'bornes -32767 à 32767
 
'dépassement de capacité
I = 60000

Mais je peux me tromper sans plus de précision.

Oups,

Je n'ai pas fait attention au code, désolé, les variables semblent bien déclarées.
Je pense que le mieux est de faire un pas à pas, appuis successifs sur F8 et à un moment donné l'erreur surviendra sur la ligne incriminée.

Hervé.

**iMaTh** · 07/09/2011, 09h59

Envoyé par Theze

Oups,

Je n'ai pas fait attention au code, désolé, les variables semblent bien déclarées.
Je pense que le mieux est de faire un pas à pas, appuis successifs sur F8 et à un moment donné l'erreur surviendra sur la ligne incriminée.

Hervé.

Ouai j'y ai pensé, mais je parcoure 34 000 lignes, c'est super long :s

**Didier Gonard** · 07/09/2011, 10h06

Envoyé par bbil

Sur qu'elle ligne ?

Bonjour,

normalement, quand il y a message d'erreur, le code VBA s'arrête sur une ligne soulignée => celle qui provoque l'erreur.

C'est cette ligne qu'on te demande

Parfois, c'est plus complexe, si la ligne n'est pas significative, on te diras comment procéder.

Si c'est une variable compteur, il faut inspecter sa valeur au moment du blocage.

Genre I en integer ne pourrait monter à 34 000 par exemple s'il était concerné...

cordialement,

Didier

**iMaTh** · 07/09/2011, 10h08

Envoyé par Ormonth

Bonjour,

normalement, quand il y a message d'erreur, le code VBA s'arrête sur une ligne soulignée => celle qui provoque l'erreur.

Je suis sous Excel 2010 et il ne me souligne pas la ligne qui provoque l'erreur.
Dois je activer une option pour cela ?

Autrement, j'ai fais le teste en déclarant i et j en tant que Long, mais j'ai le même problème, c'est vraiment étrange !

**Didier Gonard** · 07/09/2011, 10h17

Bonjour,

Outils, Options, Général, Arrêt sur les erreurs non gérées (à cocher).

Sinon, c'est plus complexe, mais à tous les coups tu sors du champ d'une variable, d'une plage ou de la feuille.
Tu peux procéder par approximation, comme pour certaines recherches, tu limites ta procédure à 34000/ 2 = 17 000.
ça plante ou non, selon tu recommence pour
17 000 /2 ou 17 000 + 17 000/2 pour circonscrire la zone d'erreur, ça peut se programmer d'ailleurs

cordialement,

Didier

**iMaTh** · 07/09/2011, 10h25

Magnifique, grace à toi je sais ou le probléme se situe :

Code :

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

Sheets(category).Cells(cursor, 1).Insert Shift:=xlDown

Par contre c'est complètement fou, je ne vois aucun dépassement de variable :

Code :

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

1
2
3
cursor = 2
j = 9931
i = 10

**iMaTh** · 07/09/2011, 10h34

Problème résolu

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
51
52
53
54
55
56
57
58
59
60
61
62
Sub reportingByModality()
 
    Application.DisplayAlerts = False
 
    With Sheets("raw_data")
 
    Dim category As String
    Dim lastCategory As String
    Dim modality As String
    Dim maxLineRawData As Long
    Dim maxLineModality As Long
    Dim cursor As Long
    Dim j As Long
    Dim i As Long
 
    category = ""
    lastCategory = ""
    maxLineModality = Sheets("Modality").Range("B65536").End(xlUp).Row
    maxLineRawData = Sheets("raw_data").Range("B65536").End(xlUp).Row
 
        'For i = 2 To maxLineModality
        For i = 9 To 10
 
            modality = Trim(Sheets("Modality").Range("A" & i).Value)
            modality_s = modality
            category = Trim(Sheets("Modality").Range("B" & i).Value)
            category = Replace(category, "/", "-")
 
            If category <> lastCategory Then
                Application.ScreenUpdating = True
 
                'On crée une nouvelle feuille
                Sheets.Add.Move After:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = category
 
                'on copie l'entete
                Sheets("raw_data").Cells(1, "A").EntireRow.Copy
                Sheets(category).Cells(1, 1).Insert Shift:=xlDown
                Sheets(category).Range("A:CN").Columns.AutoFit
 
                Application.ScreenUpdating = False
            End If
 
            'On parse la feuille raw data
            cursor = 2
            For j = 1 To maxLineRawData
 
                If Trim(Sheets("raw_data").Range("CF" & j).Value) = Trim(modality) Then
                    Sheets("raw_data").Cells(j, "A").EntireRow.Copy
                    Sheets(category).Cells(cursor, 1).Insert Shift:=xlDown
                    cursor = cursor + 1
                End If
 
            Next j
 
            lastCategory = category
 
        Next i
 
    End With
 
End Sub

Un GRAND merci aux personnes qui m'ont aidées

Out of Range, que se passe-t-il ?

Macros et VBA Excel

Discussions similaires

Partager

Partager