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 : 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
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