Erreur 1004
SOW
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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
A voir également:
- Erreur 1004
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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 !!!!!!!!
Il n'y a pas de colonne 0, ca commence a 1. Vous ne copiez pas des colonnes, vous copiez une ligne !!!!!!!!
Re,
y a un peu plus simple
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
