Bonjour,

J'ai une macro de recherche de valeur pour pouvoir coller correctement un tableau.

Quand je la test, j'ai une erreur qui s'affiche

"Erreur d'exécution '6' : Dépassement de capacité"

Voici un bout de ma macro,

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
If Cells(1, 3).Value = "" Then     
        Range("A1").Select
        ActiveSheet.Paste
 
    Else
        For i = 1 To 65500 Step 40
        If Cells(i, 3).Value = "" Then  
            Range("A" & i).Select
            ActiveSheet.Paste
            Exit Sub
        End If
 
        Next i
 
    End If
Il me met en jaune la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
For i = 1 To 65500 Step 40

Il arrive que cette macro fonctionne, mais dès qu'une de mes conditions précédentes est vérifiée et soulignée, la macro "bug".

(La condition consiste à m'afficher un message d'erreur si il manque une valeur dans le tableau)

Merci d'avance pour votre aide,