Erreur 1004
Bonjour,
Je suis débutant VBA, j'ai développé cette macro pour recopier des cellules de deux feuilles excel sources vers une feuille cible et il s'afficher une erreur 1004!!
Macro:
Sub Macro1()
'
' Macro1 Macro
'
' Recopie des colonnes de T1, T2
Set T1 = ActiveWorkbook.Worksheets("T1")
Set T2 = Worksheets("T2")
Set T3 = Worksheets("T3")
Dim i As Integer, j As Integer
i = 0
Do While T1.Cells(1, i).Value <> ""
i = i + 1
T3.Cells(1, i) = T1.Cells(1, i).Value
Max_i = i
Loop
j = 0
Do While T2.Cells(1, i) <> ""
j = j + 1
T3.Cells(1, Maax_i + 1 + j) = T2.Cells(1, j).Value
Loop
End Sub
Je suis débutant VBA, j'ai développé cette macro pour recopier des cellules de deux feuilles excel sources vers une feuille cible et il s'afficher une erreur 1004!!
Macro:
Sub Macro1()
'
' Macro1 Macro
'
' Recopie des colonnes de T1, T2
Set T1 = ActiveWorkbook.Worksheets("T1")
Set T2 = Worksheets("T2")
Set T3 = Worksheets("T3")
Dim i As Integer, j As Integer
i = 0
Do While T1.Cells(1, i).Value <> ""
i = i + 1
T3.Cells(1, i) = T1.Cells(1, i).Value
Max_i = i
Loop
j = 0
Do While T2.Cells(1, i) <> ""
j = j + 1
T3.Cells(1, Maax_i + 1 + j) = T2.Cells(1, j).Value
Loop
End Sub
5 réponses
-
Bonjour,
Il n'y a pas de colonne 0, ca commence a 1. Vous ne copiez pas des colonnes, vous copiez une ligne !!!!!!!! -
C'est bien ça je recopie une ligne je me suis mal exprimé!
ça fonctionne! -
Merci
-
Re,
y a un peu plus simple
Sub Macro1()
Sheets("T1").Rows("1:1").Copy Sheets("T3").Range("A1")
Sheets("T2").Rows("1:1").Copy Sheets("T3").Range("A2")
End Sub -
ContributeurBonjour,
Ne dis surtout pas sur quelle ligne, ça deviendrait trop facile.
Laisse-nous chercher...
eric
