Erreur d'exécution '6'

Version imprimable

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,

20/09/2011, 08h58
Didier Gonard

Bonjour,

tu as déclaré ta variable I ?

si oui de quel type ?

cordialement,

Didier
20/09/2011, 09h15
Edaine

Code:

Dim i As Integer

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é.

20/09/2011, 09h18
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.
20/09/2011, 09h23
Didier Gonard

Citation:

Envoyé par Edaine

Code:

Dim i As Integer

Citation:

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
20/09/2011, 09h27
Edaine

Oh !

C'est vrai...

Merci ^^'

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é.

20/09/2011, 09h47
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 :)