Discussion :

[FrogerMH]

Bonjour,

Je crée un programme VBA où je compte le nombre de ligne et colonne d'un tableau pour pouvoir copier-coller ces données dans une autre feuille. Excel me donne une erreur d'exécution 1004 disant

Erreur définie par l'application ou par l'objet

sur la ligne Worksheets(i).Range(Cells(6, 1), Cells(LLRow, LLColumn)).Copy _ Destination:=Worksheets(2).Cells(LLRowData, 1). Je ne vois pas où est l'erreur que me donne Excel. Pouvez-vous m'aider s'il vous plait!
Voici mon code:

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
NbWS = Application.Sheets.Count
Dim LLRow, LLColumn As Integer
 
For i = 3 To NbWS
    m = 6
    j = 6
    k = 1
    While Worksheets(i).Cells(6, k).Value <> ""
    k = k + 1
    Wend
    LLColumn = k - 1
 
    While Worksheets(i).Range("A" & j).Value <> ""
    j = j + 1
    Wend
    LLRow = j - 1
 
    n = 1
    While Worksheets(2).Range("A" & n).Value <> ""
    n = n + 1
    Wend
    LLRowData = n
    MsgBox (LLRowData)
 
    Worksheets(i).Range(Cells(6, 1), Cells(LLRow, LLColumn)).Copy _
    Destination:=Worksheets(2).Cells(LLRowData, 1)
 
Next

Merci d'avance,

MH Froger

[Gado2600]

Hello !

Bon, ce n'est pas une façon très optimale ce que tu as fait mais ça doit fonctionner

Remplaces ta ligne à problème par

Code :

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

1
2
Worksheets(i).Range(Worksheets(i).Cells(6, 1), Worksheets(i).Cells(LLRow, LLColumn)).Copy _
Destination:=Worksheets(2).Cells(LLRowData, 1)

Et fais un petit test avec

Cordialement,

[FrogerMH]

Merci ça fonctionne comme je souhaite!

[Gado2600]

Nice !
Pour explication, le "cell(a, b)" indique la cellule de l'onglet actif.

Worksheets(i).Range(Cells(6, 1), Cells(LLRow, LLColumn))

Peux se traduire par :
"Je cible une range de mon worksheet i et la range est définie par deux cellules d'un worksheet quelconque du classeur".