run time error 6 : overflow [Résolu]

[Elcocco]

Bonjour,

j'essaye d'éxécuter une macro qui marchait très bien, mais j'ai du faire un ajustement afin de prendre le nombre de ligne remplis dans la colonne et ensuite utiliser cette valeurs dans une boucle. mais malheureusement au niveau de la boucle j'obtiens l'erreur Run time '6' : overflow.

Voici 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
Sub clean_typo()
 
Dim z As Long
Dim i As Integer
Dim zz As Integer
 
'z = Application.CountA(Range("G2:G40000"))
 
For i = 2 To z
 
'zz = i - 1
 
' calcul le trimestre
 
    Select Case Range("G" & i).Value
 
          Case "Aucune typologie"
 
              Range("G" & i).Value = Range("H" & i).Value
 
    End Select
 
Next
 
End Sub

je suis preneur d'une solution pour éviter cette erreur.

merci

[Philippe JOCHMANS]

Bonjour

Déclares tes variables i et zz en long et cela devrait passer.

Ton z dépasse la limite d'un Integer.

Philippe

[Elcocco]

Super merci, effectivement cela marche beaucoup mieux