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
je suis preneur d'une solution pour éviter cette erreur.
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
merci
Partager