Erreur 1004 avec With

**idate** · 15/07/2013, 14h16

Bonjour,

je suis entrain de réordonner une base de données simple. Pour cela, j'ai développé un petit programme VBA pour automatiser tout ca !

Cependant, j'ai une erreur 1004 "Erreur définie par l'application ou l'objet" à ma ligne "With Cells( i-1-k,2)" .

Je ne comprend pas d'où elle vient. Voici mon programme:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub CopiéCollé()
    ' macro à utiliser sur les données traitée (marque et code séparés)
    Windows("URC2562.xlsx").Activate
 
    Dim i As Integer 'On définit les variables
    Dim j As Integer
    Dim marque As String
    Dim marque1 As String
    Dim k As Integer
    Dim p As Integer
    Dim code As String
 
 
    For i = 1 To 300 'On parcourt toutes les lignes
    Sheets("Feuil3").Activate 'On définit la feuille de données de bas
    If IsEmpty(Cells(i, 1)) Then
    p = 0
    While (IsEmpty(Cells(p + i, 1)))
        code = Cells(i + p, 2).Value
        Sheets("Feuil1").Activate
        With Cells(i - 1 - p, 2)
            .Value = .Value & code
        End With
        p = p + 1
    Wend
 
    Else 'Si la ligne a une marque
        If IsEmpty(Cells(i, 2)) Then 'Si la ligne n'a pas de code, on mémorise la marque pour l'ajouter après
        marque = Cells(i, 1).Value
        k = 1
        Else
            If k = 1 Then
            Cells(i, 2).Select
            Selection.Copy
            marque1 = Cells(i, 1).Value
            Sheets("Feuil1").Activate
            Cells(i, 2).Select
            ActiveSheet.Paste
            With Cells(i, 1)
                .Value = marque & marque1
            End With
 
            k = 0
            Else 'Si tout va bien
                For j = 1 To 2
                Sheets("Feuil3").Activate
                Cells(i, j).Select
                Selection.Copy
                Sheets("Feuil1").Activate
                Cells(i, j).Select
                ActiveSheet.Paste
                Next j
            End If
 
        End If
    End If
    Next i
 
End Sub

Quelqu'un pourrait il déceler mon erreur?

merci d'avance

Invité · 15/07/2013, 14h23

Je ne suis pas sur mais si tu commences à 1 et que tu rentres dans la boucle contenant le code 'With Cells(i - 1 - p, 2)' alors tu fais références à la cellule 'Cells(0, 2)' qui n'existe pas.

**idate** · 15/07/2013, 14h27

Je me suis aussi posé la question.
Mais lorsque que je met (i - p) au lieu de (i - 1 - p) j'ai la même erreur...

Invité · 15/07/2013, 14h34

Oui parce que c'est une boucle 'While' et que tu incrémentes p.
Du coup il est possible que la cellule référencée n'existe pas auquel cas ta boucle n'est pas bonne.

Ajoute un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print (i - 1 - p)

pour voir les valeurs prises pour le numéro de ligne de la cellule.

**idate** · 15/07/2013, 14h52

D'accord, je viens d'ajouter la ligne que tu m'as proposé comme ceci:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub CopiéCollé()
    ' macro à utiliser sur les données traitée (marque et code séparés)
    Windows("URC2562.xlsx").Activate
 
    Dim i As Integer 'On définit les variables
    Dim j As Integer
    Dim marque As String
    Dim marque1 As String
    Dim k As Integer
    Dim p As Integer
    Dim code As String
 
 
    For i = 1 To 300 'On parcourt toutes les lignes
    Sheets("Feuil3").Activate 'On définit la feuille de données de bas
    If IsEmpty(Cells(i, 1)) Then
    p = 0
    While (IsEmpty(Cells(p + i, 1)))
        Debug.Print (i - 1 - p)
        p = p + 1
    Wend
 
    Else 'Si la ligne a une marque
        If IsEmpty(Cells(i, 2)) Then 'Si la ligne n'a pas de code, on mémorise la marque pour l'ajouter après
        marque = Cells(i, 1).Value
        k = 1
        Else
            If k = 1 Then
            Cells(i, 2).Select
            Selection.Copy
            marque1 = Cells(i, 1).Value
            Sheets("Feuil1").Activate
            Cells(i, 2).Select
            ActiveSheet.Paste
            With Cells(i, 1)
                .Value = marque & marque1
            End With
 
            k = 0
            Else 'Si tout va bien
                For j = 1 To 2
                Sheets("Feuil3").Activate
                Cells(i, j).Select
                Selection.Copy
                Sheets("Feuil1").Activate
                Cells(i, j).Select
                ActiveSheet.Paste
                Next j
            End If
 
        End If
    End If
    Next i
 
End Sub

Cependant, je ne sais pas comment me servir du debug.print . Ou est ce que je vois les valeurs prises?

Edit: j'avais pas ma fenetre d'execution ouverte^^

j'obtiens ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Du coup j'ai l'impression qu'il ne prend jamais de valeur inférieure ou égale à zero.

Invité · 15/07/2013, 15h08

Comme la boucle est assez longue remplace le plutôt par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If i - 1 - p <= 0 Then Debug.Print ("Erreur !")

pour voir s'il y a effectivement des erreurs.

Erreur 1004 avec With [XL-2013]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager