Error Overflow sur worksheet

**adamgg** · 25/06/2014, 15h06

Bonjour,
Le code suivant permet de supprimer les lignes qui ne sont pas comprise entre les dates rentrees par l'utilisateur. Mon probleme se situe au niveau de la ligne 37, Vba me renvoie l'erreur overflow.
J'ai d'abord pense que le probleme se situe au niveau de la variable D1 et j'ai donc passe en Long toutes mes variables. Mais l'erreur a persistee du coup je pense que le probleme est au niveau de la worsheets, j'ai verifie le nom est le bon du coup je comprends pas ou ca bloque.

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
Private Sub CommandButton1_Click()
Dim D1 As Long
Dim D2 As Long
Dim EndNolig As Long
Dim Nolig As Long
Dim D1Lig As Long
Dim D2Lig As Long
Dim compt As Boolean
Dim j As Long
Dim i As Long
'****************REFRESH****************
Dim lastrow As Long
Worksheets("Do not Alter 501 source").Activate
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 2
Range("A1:D" & lastrow).Copy
Worksheets("Do not Alter 501").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
Application.Calculation = False
'*******************Date creation**********
EndNolig = Worksheets("TED Defects 501").Range("A" & Rows.Count).End(xlUp).Row
For Nolig = EndNolig To 2 Step -1
    Worksheets("Do not Alter 501").Cells(Nolig + 2, 4).Value = Worksheets("TED Defects 501").Cells(Nolig, 1).Value
Next
EndNolig = Worksheets("TED Defects 501").Range("A" & Rows.Count).End(xlUp).Row + 2
 
For Nolig = EndNolig To 2 Step -1
    Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = Val(Replace(Cells(Nolig, 4), "/", ""))
Next
'******************** tri****************************
D1 = UserForm1.TextBox1.Value
D2 = UserForm1.TextBox2.Value
Nolig = EndNolig
For Nolig = EndNolig To 3 Step -1
 
    If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = D1 Then
        D1Lig = Nolig
    End If
    If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = D2 And compt = 0 Then
        D2Lig = Nolig
        compt = 1
    End If
    Nolig = Nolig - 1
Next
 
For j = EndNolig To D2Lig + 1 Step -1
    Worksheets("Do not Alter 501").Cells(j, 1).EntireRow.Delete Shift:=xlUp
Next
For i = D1Lig - 1 To 4 Step -1
    Worksheets("Do not Alter 501").Cells(i, 1).EntireRow.Delete Shift:=xlUp
Next
UserForm1.Hide
Application.ScreenUpdating = True
Application.Calculation = True
End Sub

De plus sur une ancienne version du code l'erreur n'apparait pas voici le code:

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
Private Sub CommandButton1_Click()
Dim D1 As Long
Dim D2 As Long
Dim EndNolig As Long
Dim Nolig As Long
Dim D1Lig As Long
Dim D2Lig As Long
Dim compt As Boolean
Dim j As Long
Dim i As Long
'****************REFRESH****************
Dim lastrow As Long
Worksheets("Do not Alter 501 source").Activate
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 2
Range("A1:D" & lastrow).Copy
Worksheets("Do not Alter 501").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
Application.Calculation = False
 
EndNolig = Worksheets("TED Defects 501").Range("A" & Rows.Count).End(xlUp).Row + 2
 
D1 = UserForm1.TextBox1.Value
D2 = UserForm1.TextBox2.Value
Nolig = EndNolig
For Nolig = EndNolig To 3 Step -1
 
    If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = D1 Then
        D1Lig = Nolig
    End If
    If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = D2 And compt = 0 Then
        D2Lig = Nolig
        compt = 1
    End If
    Nolig = Nolig - 1
Next
 
For j = EndNolig To D2Lig + 1 Step -1
    Worksheets("Do not Alter 501").Cells(j, 1).EntireRow.Delete Shift:=xlUp
Next
For i = D1Lig - 1 To 4 Step -1
    Worksheets("Do not Alter 501").Cells(i, 1).EntireRow.Delete Shift:=xlUp
Next
UserForm1.Hide
Application.ScreenUpdating = True
Application.Calculation = True
End Sub

Pouvez vous m'expliquer pourquoi ca ne marche pas ?

Cordialement
Adam

**illight** · 25/06/2014, 16h22

Quelle est la valeur de NoLig au moment de l'erreur ?

Si mes souvenirs sont bons, l'erreur overflow signifie plutôt un dépassement de capacité..

Vu où ça plante :

Code :

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

Worksheets("Do not Alter 501").Cells(Nolig, 4).Value

je dirais que Cells(Nolig,4) est en dépassement de capacité. peux-tu vérifier la valeur de Nolig ?

**lucasgaetan** · 25/06/2014, 16h29

Bonjour Adam,

A première vue, je ne vois pas d'erreur.
j'ai quelques remarque pour "purifié" ton code

* mettre un Option Explicit tout en au du code --> ça t'oblige à avoir un code carré qui tourne rond

* quand tu écrits If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = D1 Then tu demande de comparer un string vs long

Sinon mets ton fichier en pièces jointe si tu veux plus d'aide, là je sèche

a+

**adamgg** · 25/06/2014, 16h30

Envoyé par illight

Quelle est la valeur de NoLig au moment de l'erreur ?

Si mes souvenirs sont bons, l'erreur overflow signifie plutôt un dépassement de capacité..

Vu où ça plante :

Code :

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

Worksheets("Do not Alter 501").Cells(Nolig, 4).Value

je dirais que Cells(Nolig,4) est en dépassement de capacité. peux-tu vérifier la valeur de Nolig ?

Nolig =327 au moment ou le programme plante c'est a dire qu'il plante a la premiere passe du for (Nolig=EndNolig)
cordialement

**illight** · 25/06/2014, 16h31

D'ailleurs, D1 c'est pas une date ?

**adamgg** · 25/06/2014, 16h53

Envoyé par lucasgaetan

Bonjour Adam,

* quand tu écrits If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value = D1 Then tu demande de comparer un string vs long

a+

En fait j'ai transforme ma date JJ/MM/YYYY en un nombre JJMMYYYY du coup normalement je compare bien des nombres long
je te joins le fichier, j'ai du supprimer la page "Do not Alter 501 source" car le fichier etait trop lourd
cordialement

Envoyé par illight

D'ailleurs, D1 c'est pas une date ?

D1 est une date sous le format JJMMYYYY
cordialement

**Marc-L** · 25/06/2014, 16h55

Bonjour,

pour une date utiliser alors la propriété Value2 pour comparer avec une donnée de type Long …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**adamgg** · 25/06/2014, 16h58

ma date est passe en nombre dans ce cas donc j'ai pas besoin de l'utiliser si ?
Cordialement

**Marc-L** · 25/06/2014, 17h12

Du moment que cela fonctionne, peu importe …

**lucasgaetan** · 25/06/2014, 17h24

re bonjour,

rapidement, j'ai pas le temps:

Code :

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

1
2
3
4
5
6
7
8
9
10
For Nolig = EndNolig To 3 Step -1
    If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value2 = D1 Then
        D1Lig = Nolig
    End If
    If Worksheets("Do not Alter 501").Cells(Nolig, 4).Value2 = D2 And compt = 0 Then
        D2Lig = Nolig
        compt = 1
    End If
    Nolig = Nolig - 1 'Je pense qu'il faut supprimer cette ligne de code, elle te fait sauter une ligne sur deux dans ton fichier excel
Next Nolig

la réponse de Marc-L etait juste : Value2

**adamgg** · 25/06/2014, 18h27

Ah merci pour cette erreur que je n'avais pas vu
Cordialement

**adamgg** · 26/06/2014, 14h03

Envoyé par Marc-L

Bonjour,

pour une date utiliser alors la propriété Value2 pour comparer avec une donnée de type Long …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

J'essaye cette voix, du coup j'ai supprime la partie du code qui me permettait d'avoir la date sous la forme d'un nombre, du coup j'utilise une date de type dd month YYYY, j'aimerais du coup rentrer ma date sous cette forme, mais la methode .Value2 ne semble pas etre reconnu quand elle est utilise avec une textbox est ce normal ?

voici mon code

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
 
Option Explicit
Private Sub CommandButton1_Click()
Dim D1 As Long
Dim D2 As Long
Dim EndNolig As Long
Dim Nolig As Long
Dim D1Lig As Long
Dim D2Lig As Long
Dim compt As Boolean
Dim j As Long
Dim i As Long
'****************REFRESH****************
Dim lastrow As Long
Worksheets("Do not Alter 501 source").Activate
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 2
Range("A1:D" & lastrow).Copy
Worksheets("Do not Alter 501").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
Application.Calculation = False
'***************** TRI******************
EndNolig = Range("A" & Rows.Count).End(xlUp).Row
D1 = UserForm1.TextBox1.Value2
D2 = UserForm1.TextBox2.Value2
For Nolig = EndNolig To 3 Step -1
    If Worksheets("Do not Alter 501").Cells(Nolig, 2).Value2 = D1 Then
        D1Lig = Nolig
    End If
    If Worksheets("Do not Alter 501").Cells(Nolig, 2).Value2 = D2 And compt = 0 Then
        D2Lig = Nolig
        compt = 1
    End If
Next
 
For j = EndNolig To D2Lig + 1 Step -1
    Worksheets("Do not Alter 501").Cells(j, 1).EntireRow.Delete Shift:=xlUp
Next
For i = D1Lig - 1 To 4 Step -1
    Worksheets("Do not Alter 501").Cells(i, 1).EntireRow.Delete Shift:=xlUp
Next
UserForm1.Hide
Application.ScreenUpdating = True
Application.Calculation = True
End Sub

Merci pour l'idee
Cordialement

**Marc-L** · 26/06/2014, 14h13

Oui tout à fait normal comme indiqué dans l'aide de cette propriété !

Pour du texte, voir par exemple du côté des fonctions CDate et DateValue à affecter dans une variable de type Long.

Pour rappel, tout ceci est directement consultable et donc, à fortiori, dénichable, dans l'aide VBA intégrée, à portée de clic …

**adamgg** · 26/06/2014, 14h28

le code suivant me renvoie une erreur de type mistmatch(run time errror 13) a la ligne 28 alors aue je compare 2 Longs ? j' ai essaye de transdormer le type de D1 et D2 en type Date mais l'erreur persiste
peut-on comparer 2 dates de cette maniere ?

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
Option Explicit
Private Sub CommandButton1_Click()
Dim D1 As Long
Dim D2 As Long
Dim EndNolig As Long
Dim Nolig As Long
Dim D1Lig As Long
Dim D2Lig As Long
Dim compt As Boolean
Dim j As Long
Dim i As Long
'****************REFRESH****************
Dim lastrow As Long
Worksheets("Do not Alter 501 source").Activate
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 2
Range("A1:D" & lastrow).Copy
Worksheets("Do not Alter 501").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
Application.Calculation = False
'***************** TRI******************
EndNolig = Range("A" & Rows.Count).End(xlUp).Row
D1 = DateValue(UserForm1.TextBox1.Value)
D2 = DateValue(UserForm1.TextBox2.Value)
For Nolig = EndNolig To 3 Step -1
    If DateValue(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value) = D1 Then
        D1Lig = Nolig
    End If
    If DateValue(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value) = D2 And compt = 0 Then
        D2Lig = Nolig
        compt = 1
    End If
Next
 
For j = EndNolig To D2Lig + 1 Step -1
    Worksheets("Do not Alter 501").Cells(j, 1).EntireRow.Delete Shift:=xlUp
Next
For i = D1Lig - 1 To 4 Step -1
    Worksheets("Do not Alter 501").Cells(i, 1).EntireRow.Delete Shift:=xlUp
Next
UserForm1.Hide
Application.ScreenUpdating = True
Application.Calculation = True
End Sub

**Marc-L** · 26/06/2014, 15h04

Oh que non, ah que coucou ‼

Dans la ligne n°28, il n'y a qu'une seule donnée de type Long …

… sinon il n'y aurait point d'erreur !

**lucasgaetan** · 26/06/2014, 15h04

re

Code :

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

Worksheets("Do not Alter 501").Cells(Nolig, 4).Value2

**adamgg** · 26/06/2014, 15h22

j'ai encore l'erreur meme avec le 2

Avec ce code j'obtiens une erreur de type mismatch :

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
 
Option Explicit
Private Sub CommandButton1_Click()
Dim D1 As Long
Dim D2 As Long
Dim EndNolig As Long
Dim Nolig As Long
Dim D1Lig As Long
Dim D2Lig As Long
Dim compt As Boolean
Dim j As Long
Dim i As Long
 
'****************REFRESH****************
Dim lastrow As Long
Worksheets("Do not Alter 501 source").Activate
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 2
Range("A1:D" & lastrow).Copy
Worksheets("Do not Alter 501").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = False
Application.Calculation = False
'***************Date********************
For Nolig = 4 To lastrow
    Worksheets("Do not Alter 501").Cells(Nolig, 2).Value = Worksheets("TED Defects 501").Cells(Nolig - 2, 2).Value
Next
 
'***************** TRI******************
EndNolig = Range("A" & Rows.Count).End(xlUp).Row
D1 = DateValue(UserForm1.TextBox1.Value)
D2 = DateValue(UserForm1.TextBox2.Value)
For Nolig = EndNolig To 3 Step -1
    If DateValue(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value2) = D1 Then
        D1Lig = Nolig
    End If
    If DateValue(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value2) = D2 And compt = 0 Then
        D2Lig = Nolig
        compt = 1
    End If
Next
 
For j = EndNolig To D2Lig + 1 Step -1
    Worksheets("Do not Alter 501").Cells(j, 1).EntireRow.Delete Shift:=xlUp
Next
For i = D1Lig - 1 To 4 Step -1
    Worksheets("Do not Alter 501").Cells(i, 1).EntireRow.Delete Shift:=xlUp
Next
UserForm1.Hide
Application.ScreenUpdating = True
Application.Calculation = True
End Sub

Je ne comprends pas bien quand il faut utiliser la fonction .value2 du coup comme le type etait pas bon je me suis dit que ca venait de D1 et du coup je l'ai code comme ceci

Code :

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

1
2
 
D1 = DateValue(UserForm1.TextBox1.Value2)

la foncion?method .Value2 n'est alors pas reconnu, du coup je suis repasse sur le code precedant mais j'ai toujours la meme erreur sans comprendre pourquoi
Vous pouvez m'expliquer pourquoi les types sont pas les meme ?
Merci de votre comprehension
Cordialement

**Marc-L** · 27/06/2014, 15h21

C'est simple pourtant !
Exemple pour la propriété Value2 : y positionner le curseur puis appuyer sur la touche

puis vérifier à quoi elle s'applique et ce qu'elle renvoie !

**adamgg** · 27/06/2014, 15h38

Mais j'ai essaye d'avoir l'aide avec F1 mais je recois un message comme quoi il ne le trouve pas dans la bilbiotheque
Nom : untitled2.JPG
Affichages : 181
Taille : 14,6 Ko