run time error 6 : overflow
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
