[XL-2003] Erreur d'exécution '6' [Résolu]

[Edaine]

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 :

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 :

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,

[Ormonth]

Bonjour,

tu as déclaré ta variable I ?

si oui de quel type ?

cordialement,

Didier

[Edaine]

Code :

Dim i As Integer

[Theze]

Bonjour,

Je ne sais pas trop ce que tu veux faire mais tu n'es pas obliger de faire de boucle :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Coller()
 
    With ActiveSheet
 
        If .Cells(1, 3).Value = "" Then
 
                .Range("A1").Select
                .Paste
 
        Else
 
            .Range("A" & .Cells(.Rows.Count, 3).End(xlUp).Row + 1).Select
            .Paste
 
    End With
 
End Sub

Hervé.

[Edaine]

Mon tableau fait 40 lignes.

Et je veux que si en A3 un 1 est inscrit, qu'il passe 40 lignes pour coller le tableau en dessous du premier.

[Ormonth]

Envoyé par Edaine

Code :

Dim i As Integer

Les variables de type Integer sont stockées sous la forme de nombres de 16 bits (2 octets) dont la valeur est comprise entre -32 768 et 32 767

=> dépassement de capacité au-delà



cordialement,

Didier

[Edaine]

Oh !

C'est vrai...

Merci ^^'

[Theze]

Re,

regarde si ça convient, sinon, il faudrait plus de précisions, savoir où est le tableau à copier ? Savoir si tout ça se fait sur la même feuille ?

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
26
27
 
Sub Coller()
 
    With ActiveSheet
 
        'suppose que le taleau est sélectionné
        Selection.Copy
 
        'si A3 est vide, colle à partir de A1
        If .Cells(3, 1).Value = "" Then
 
                .Range("A1").Select
                .Paste
 
        Else
 
            'sinon, défini la première ligne vide en colonne A et colle le tableau
            .Range("A" & .Cells(.Rows.Count, 3).End(xlUp).Row + 1).Select
            .Paste
 
        End If
 
        Application.CutCopyMode = False
 
    End With
 
End Sub

Hervé.

[Edaine]

J'ai testé avec la modification de Didier, en enlevant les 65500 dont je n'ai pas besoin d'ailleurs.


Et ça a l'air de fonctionner donc je pense que je vais laisser ainsi !


Merci beaucoup pour vos aides