Erreur 1004
SOW
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
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! -
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Ne dis surtout pas sur quelle ligne, ça deviendrait trop facile.
Laisse-nous chercher...
eric
