erreur d'execution6 : depassement de capacité [Résolu]

[hebh]

Bonjour

J'ai une application en 2003 que je le teste sur 2010. lors de l'execution j'ai un message d'erreur sur target.count: "erreur d'execution 6 : depassement de capacité"

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
For i = 1 To 4
    If Application.Intersect(Target, ThisWorkbook.ActiveSheet.Rows(i)) Is Nothing Then
 
    Else
        If Target.Count Mod 256 = 0 And Target.Count <> 65536 Then
            MsgBox "Pour le bon fonctionnement de la Matrice, merci de ne pas insérer de ligne entre les 4 premières lignes !", vbExclamation
            Exit Sub
        End If
    End If
Next
 
For i = 1 To 2
    If Application.Intersect(Target, ThisWorkbook.ActiveSheet.Columns(i)) Is Nothing Then
 
    Else
        If Target.Count > 65000 Then
            MsgBox "Pour le bon fonctionnement de la Matrice, merci de ne pas insérer de colonne entre les 2 premières colonnes !", vbExclamation
            Exit Sub
        End If
    End If
Next
 
End Sub

je sais que le nombre de lignes et colonnes ont été changé en 2010 mais je trouve pas de solution

Merci de votre aide

[Daniel.C]

Bonjour,

Est-ce que c'est systématique ? Qu'est-ce que tu sélectionnes ? Essaie comme ça et dis-moi l'adresse qui s'affiche :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
For i = 1 To 4
    If Application.Intersect(Target, ThisWorkbook.ActiveSheet.Rows(i)) Is Nothing Then
 
    Else
        If Target.Count Mod 256 = 0 And Target.Count <> 65536 Then
            MsgBox "Pour le bon fonctionnement de la Matrice, merci de ne pas insérer de ligne entre les 4 premières lignes !", vbExclamation
            Exit Sub
        End If
    End If
Next
 
For i = 1 To 2
    If Application.Intersect(Target, ThisWorkbook.ActiveSheet.Columns(i)) Is Nothing Then
 
    Else
        If Target.Count > 65000 Then
            MsgBox "Pour le bon fonctionnement de la Matrice, merci de ne pas insérer de colonne entre les 2 premières colonnes !", vbExclamation
            Exit Sub
        End If
    End If
Next
 
End Sub

[Ormonth]

Bonjour,

Ce que tu ne dis pas, c'est quelle est l'étendue de la sélection, ton message induirait que tu dépasses 131 072 colonnes pleines par exemple soit surtout : 2 147 483 648 cellules soit la capacité d'un Long.

Hors quand tu écris

Code :

Target.Count

tu écris en fait

Code :

Target.Cells.Count

et tu tombes sur ceci :

Pourquoi Worksheets(1).Cells.Count retourne-t-elle un message d’erreur sous Excel 2007 et suivants.


cordialement,

Didier

[Daniel.C]

Bonjour,

Ce qui est bizarre, c'est qu'il s'agit d'un classeur XL2003

[Ormonth]

Envoyé par Daniel.C

Bonjour,

Ce qui est bizarre, c'est qu'il s'agit d'un classeur XL2003

J'ai essayé de lire et de comprendre ce que disait hebh

Envoyé par hebh

J'ai une application en 2003 que je le teste sur 2010.

cordialement,

Didier

[hebh]

Bonjour,

Merci beaucoup de vos réponses

J'ai tester

Code :

MsgBox Target.Address

et le message est : "$1:$1048576"

Sinon l'application est exécutable sur 2003 et je dois la migrer sous 2010

Merci

[Ormonth]

Bonjour,

CQFD

Tu as la réponse dans le lien, tu emploies Countlarge au lieu de count et tu vois si ton appli doit tourner sous 2003 et plus, dans ce cas tu mets un filtre pour déterminer la version de l'instance genre :

Code :

1
2
3
4
5
If Application.Version <= "11.0" Then
    'code 2003 ou antérieur avec Count
Else
    'code 2007 et plus avec CountLarge
End If

Ps : sans préjuger du fait de sélectionner une telle plage... =qui représente le nombre de lignes maxi de base de la feuille.
En taguant "Toutes versions" dans ton titre au niveau version, tu renseignes qualitativement les lecteurs.

cordialement,

Didier

[hebh]

Merci beaucoup