Erreur 1004
SOW
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
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
