Erreur sur code pour supprimer et coller des données dans une plage dynamique

**capi81** · 27/03/2018, 14h57

Bonjour le forum

J'ai essayé de réaliser un code (déduction faite d'un autre code qui m'a été proposé) mais il y'a un message d'erreur (référence incorrecte ou non qualifiée).
Cette partie du code est directement soulignée

Code :

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

.[K7]

Si une solution venait à être trouvée pour l'erreur signalée, je pense pouvoir l'adapter au reste du code car presque identique.

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
60
61
62
63
Sub Gestion_Supr_collage()
 
'Supprimer la plage du bilan S-2
 
    With ThisWorkbook.Worksheets("BILAN_S-2").Range("A7", .[K7].End(xlDown)).EntireRow.Delete
 
    End With
 
'------------------------------------------
 
'copier le bilan S-1 dans la feuille BILAN_S-2
 
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).Copy
 
    .Worksheets("BILAN_S-2").[A6]
 
    End With
 
'-------------------------------------------
 
'Supprimer la plage du bilan S-1
 
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).EntireRow.Delete
 
    End With
 
'------------------------------------------
 
'copier le bilan S dans la feuille BILAN_S-1
 
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).Copy
 
    .Worksheets("BILAN_S-1").[A6]
 
    End With
 
'-----------------------------------------------------------
 
    With ThisWorkbook.Worksheets("BILAN_S")
 
        .Range("A7", .[K7].End(xlDown)).EntireRow.Delete
 
    End With
 
    With Workbooks("Traitement_Bilan_Agences_2018.xlsm").Worksheets("CENTRALISATION")
 
        .Range("B2", .[J2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_S").[C6]
 
    End With
 
    With Workbooks("Traitement_Bilan_Agences_2018.xlsm").Worksheets("CENTRALISATION")
 
        .Range("A2", .[A2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_PERIODE").[A6]
 
    End With
 
 
 
    'sh.Range("A1").Select
 
 
 
End Sub

Edit : je viens d'enlever le point (.) derrière le k et l'erreur n'est plus signalée.
Pensez-vous que c'est la caude du débogage?

**Menhir** · 27/03/2018, 17h10

A mon avis, tu n'as pas compris à quoi sert une structure With et comment ça s'utilise.
https://msdn.microsoft.com/en-us/VBA...with-statement

**capi81** · 27/03/2018, 17h42

Bonsoir Menhir et le forum

Merci pour votre lien.
Je sais que lorsqu'on utilise with, les objets doivent comporter un point avant(.).
Sans mentir je n'ai pas vu la cause de l'erreur signalée et j'ai voulu tâtonner pour voir ce que ça va donner.
Merci de m'aider à débloquer la situation.

**Marc-L** · 27/03/2018, 17h48

Le point seul doit être utilisé après la ligne With et non pas dedans ! Voir l'aide VBA …

P'tite question : à quoi peuvent bien servir les lignes de code n° 49 & 51 ?!

Rappel des usages de ce forum :

___________________________________________________________________________________________________________

Merci de cliquer sur

en bas à droite de chaque message ayant aidé puis sur

pour clore cette discussion …

**aziz1015** · 27/03/2018, 18h03

[QUOTE=capi81;10120007]

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
 
 
    With ThisWorkbook.Worksheets("BILAN_S-2")
 
            .Range("A7", .[K7].End(xlDown)).EntireRow.Delete
 
    End With
 
Ou
 
    With ThisWorkbook
 
            .Worksheets("BILAN_S-2").Range("A7", .Worksheets("BILAN_S-2").[K7].End(xlDown)).EntireRow.Delete
 
    End With

**capi81** · 27/03/2018, 18h14

Bonsoir Marc et le forum

Le point seul doit être utilisé après la ligne With et non pas dedans ! Voir l'aide VBA …

J'ai pas bien compris...pouvez-vous en dire un peu plus pour faciliter la compréhension.
Je parcours actu l'aide vba pour comprendre aussi.

P'tite question : à quoi peuvent bien servir les lignes de code n° 49 & 51 ?!

J'explique un peu pourquoi la macro a été conçu ainsi:
J'ai une plage générale (A:J).
Les premiers éléments de cette plage à copier sont C:J et la cellule de destination est BILAN_S!C6 de thisworkbook d'ou ce code:

Code :

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

1
2
3
4
5
With Workbooks("Traitement_Bilan_Agences_2018.xlsm").Worksheets("CENTRALISATION")
 
        .Range("B2", .[J2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_S").[C6]
 
    End With

ensuite je dois copier A2:A et le coller dans BILAN_S!A6 de thisworkbook d'ou le 2eme code ci-dessous:

Code :

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

1
2
3
4
5
With Workbooks("Traitement_Bilan_Agences_2018.xlsm").Worksheets("CENTRALISATION")
 
        .Range("A2", .[A2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_PERIODE").[A6]
 
    End With

Au juste Comment devrais-je procéder pour arriver à mes fins tout en optimisant le code?

**Menhir** · 27/03/2018, 18h24

Envoyé par capi81

Je sais que lorsqu'on utilise with, les objets doivent comporter un point avant(.).

Mettre une structure With sans rien dedans (comme tu as fait aux lignes 5 à 7, c'est comme avoir un aquarium sans poisson.

De plus, on ne mets quasiment jamais de méthode dans un With vu que la plupart des méthodes ne renvoient pas d'objets.

Pour ce qui est de ton erreur, la demande est incompréhensible : tu dis que l'erreur est au niveau de [K7] or cette séquence n'apparait nulle part dans ton code.

**capi81** · 27/03/2018, 18h57

Menhir:je lis souvent les cours vba mais certaines choses échappent à ma compréhension.
Je souhaite en français facile inspiration faite dans mon code m'expliquer ce que vous avez voulu dire ici

De plus, on ne mets quasiment jamais de méthode dans un With

Quel est l'objet que j'ai mis dans le with (est-ce le thisworkbook?)?

Mettre une structure With sans rien dedans

Cela va beaucoup m'aider.
merci de me comprendre car c'est souvent pas facile les lectures théoriques dans l'aide vba (tu peux lire sans rien comprendre).

**Menhir** · 27/03/2018, 19h15

Envoyé par capi81

Quel est l'objet que j'ai mis dans le with (est-ce le thisworkbook?)?

Un Objet VBA peut avoir deux sortes de membres : les méthodes et les propriétés.
pour simplifier, on peut dire que les méthodes réalisent des action alors que les propriétés stockent des valeurs.

Un With n'a d'intérêt que si l'élément qu'on y intègre renvoie un objet auquel vont se référer les objet contenus dans la structure With / End With par l'intermédiaire du "." placé devant.
Or, généralement, ce sont les propriétés qui renvoient des objets. Il y a peu de méthodes qui en renvoie. En tout cas, des méthodes comme Delete ou Copy n'en renvoient pas. Il est donc impropre de les avoir utiliser comme élément de With.

**capi81** · 28/03/2018, 02h14

Bonsoir à tous

Aziz1015 : je m'excuse d'avoir pas donné suite à votre solution.
Elle m'a échappé.
Menhir : merci pour votre disponibilité et surtout pour les explications que vous venez de me donner.
Ci-dessous ce que j'ai réamenagé pour appréciation:

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
Sub Gestion_Supr_collage()
'Supprimer la plage du bilan S-2
    With ThisWorkbook.Worksheets("BILAN_S-2")
        .Range("A7", .[K7].End(xlDown)).EntireRow.Delete
    End With
'------------------------------------------
'copier le bilan S-1 dans la feuille BILAN_S-2
    With ThisWorkbook
        .Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).Copy
        .Worksheets("BILAN_S-2").[A6].Paste
    End With
'-------------------------------------------
'Supprimer la plage du bilan S-1
    With ThisWorkbook
        .Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).EntireRow.Delete
    End With
'------------------------------------------
'copier le bilan S dans la feuille BILAN_S-1
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).Copy Worksheets("BILAN_S-2").[A6]
    End With
'-----------------------------------------------------------
    With ThisWorkbook.Worksheets("BILAN_S")
        .Range("A7", .[K7].End(xlDown)).EntireRow.Delete
    End With
    With Workbooks("Traitement_Bilan_Agences_2018.xlsm")
        .Worksheets("CENTRALISATION").Range("B2", .Worksheets("CENTRALISATION").[J2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_S").[C6]
    End With
    With Workbooks("Traitement_Bilan_Agences_2018.xlsm")
        .Worksheets("CENTRALISATION").Range("A2", .Worksheets("CENTRALISATION").[A2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_S").[A6]
    End With
 
End Sub

Je viens d'exécuter la macro mais elle tourne pour le moment car je travaille sur des tableau dynamique(mise sous forme de tableau comportant des données volumineuses (3000 lignes de 3 tableaux).
Est-ce que mon code semble correct sinon merci de faire une proposition sur comment je devrais m'y prendre pour bien faire et au besoin optimiser mon code pour accelerer le traitement.

**capi81** · 29/03/2018, 20h14

Menhir, Marc-L dites moi au moins quelque chose.

**Menhir** · 30/03/2018, 09h10

Tu veux savoir si ton code est correct ? Fais le tourner.
S'il fait ce que tu veux, c'est qu'il est correcte.
S'il ne fait pas ce que tu veux, décrit le problème.

Mais balancer comme ça un code sans plus de description et demander qu'on te le vérifie, c'est vraiment prendre les membres de ce forum pour tes domestiques.

Erreur sur code pour supprimer et coller des données dans une plage dynamique

Macros et VBA Excel

Discussions similaires

Partager

Partager