Bonjour !!
sur cette ligne de commande "Feuil22.Columns("A").Insert" en débogage, ceratines personnes utilisant la macros ont une erreur 1004,
Savez-vous d'ou cela peut venir ?
sur cette ligne de commande "Feuil22.Columns("A").Insert" en débogage, ceratines personnes utilisant la macros ont une erreur 1004,
Code:
Sub evolution_bourse()
Dim ligne As Range
Feuil22.Columns("A").Insert
Feuil22.Cells(1, 1).Interior.Color = RGB(220, 220, 220)
Feuil22.Cells(2, 1).Interior.Color = RGB(200, 200, 200)
Feuil22.Cells(1, 1) = Time
Feuil22.Cells(2, 1) = Date
l = 3
c = 1
v1 = Feuil22.Cells(l, c)
Dim new_ As Boolean
If (v1 = 0) Then
Feuil22.Cells(3, 1) = Feuil4.Cells(30, 3)
Feuil22.Cells(4, 1) = Feuil4.Cells(31, 3)
Feuil22.Cells(5, 1) = Feuil4.Cells(32, 3)
Feuil22.Cells(6, 1) = Feuil4.Cells(33, 3)
Feuil22.Cells(7, 1) = Feuil4.Cells(34, 3)
Feuil22.Cells(8, 1) = Feuil4.Cells(35, 3)
Feuil22.Cells(9, 1) = Feuil4.Cells(36, 3)
Feuil22.Cells(10, 1) = Feuil4.Cells(37, 3)
Feuil22.Cells(11, 1) = Feuil4.Cells(38, 3)
Feuil22.Cells(12, 1) = Feuil4.Cells(39, 3)
Feuil22.Cells(20, 1) = Feuil5.Cells(15, 8)
Feuil22.Cells(21, 1) = Feuil5.Cells(16, 8)
Feuil22.Cells(22, 1) = Feuil5.Cells(17, 8)
Feuil22.Cells(23, 1) = Feuil5.Cells(18, 8)
Feuil22.Cells(24, 1) = Feuil5.Cells(19, 8)
Feuil22.Cells(25, 1) = Feuil5.Cells(20, 8)
Feuil22.Cells(26, 1) = Feuil5.Cells(21, 8)
Feuil22.Cells(27, 1) = Feuil5.Cells(22, 8)
Feuil22.Cells(28, 1) = Feuil5.Cells(23, 8)
Feuil22.Cells(29, 1) = Feuil5.Cells(24, 8)
End If
If Feuil22.Cells(3, 9) > 0 Then
Feuil3.Cells(34, 7) = Feuil22.Cells(3, 1)
Feuil3.Cells(35, 7) = Feuil22.Cells(4, 1)
Feuil3.Cells(36, 7) = Feuil22.Cells(5, 1)
Feuil3.Cells(37, 7) = Feuil22.Cells(6, 1)
Feuil3.Cells(38, 7) = Feuil22.Cells(7, 1)
Feuil3.Cells(39, 7) = Feuil22.Cells(8, 1)
Feuil3.Cells(40, 7) = Feuil22.Cells(9, 1)
Feuil3.Cells(41, 7) = Feuil22.Cells(10, 1)
Feuil3.Cells(42, 7) = Feuil22.Cells(11, 1)
Feuil3.Cells(43, 7) = Feuil22.Cells(12, 1)
Feuil3.Cells(32, 6) = Feuil22.Cells(2, 1)
Feuil3.Cells(32, 7) = Feuil22.Cells(1, 1)
Feuil3.Cells(34, 2) = Feuil22.Cells(20, 1)
Feuil3.Cells(35, 2) = Feuil22.Cells(21, 1)
Feuil3.Cells(36, 2) = Feuil22.Cells(22, 1)
Feuil3.Cells(37, 2) = Feuil22.Cells(23, 1)
Feuil3.Cells(38, 2) = Feuil22.Cells(24, 1)
Feuil3.Cells(39, 2) = Feuil22.Cells(25, 1)
Feuil3.Cells(40, 2) = Feuil22.Cells(26, 1)
Feuil3.Cells(41, 2) = Feuil22.Cells(27, 1)
Feuil3.Cells(42, 2) = Feuil22.Cells(28, 1)
Feuil3.Cells(43, 2) = Feuil22.Cells(29, 1)
End If
If Feuil22.Cells(3, 7) > 0 Then
Feuil3.Cells(34, 9) = Feuil22.Cells(3, 2)
Feuil3.Cells(35, 9) = Feuil22.Cells(4, 2)
Feuil3.Cells(36, 9) = Feuil22.Cells(5, 2)
Feuil3.Cells(37, 9) = Feuil22.Cells(6, 2)
Feuil3.Cells(38, 9) = Feuil22.Cells(7, 2)
Feuil3.Cells(39, 9) = Feuil22.Cells(8, 2)
Feuil3.Cells(40, 9) = Feuil22.Cells(9, 2)
Feuil3.Cells(41, 9) = Feuil22.Cells(10, 2)
Feuil3.Cells(42, 9) = Feuil22.Cells(11, 2)
Feuil3.Cells(43, 9) = Feuil22.Cells(12, 2)
Feuil3.Cells(32, 8) = Feuil22.Cells(2, 2)
Feuil3.Cells(32, 9) = Feuil22.Cells(1, 2)
Feuil3.Cells(34, 8) = Feuil22.Cells(20, 1) - Feuil22.Cells(20, 2)
Feuil3.Cells(35, 8) = Feuil22.Cells(21, 1) - Feuil22.Cells(21, 2)
Feuil3.Cells(36, 8) = Feuil22.Cells(22, 1) - Feuil22.Cells(22, 2)
Feuil3.Cells(37, 8) = Feuil22.Cells(23, 1) - Feuil22.Cells(23, 2)
Feuil3.Cells(38, 8) = Feuil22.Cells(24, 1) - Feuil22.Cells(24, 2)
Feuil3.Cells(39, 8) = Feuil22.Cells(25, 1) - Feuil22.Cells(25, 2)
Feuil3.Cells(40, 8) = Feuil22.Cells(26, 1) - Feuil22.Cells(26, 2)
Feuil3.Cells(41, 8) = Feuil22.Cells(27, 1) - Feuil22.Cells(27, 2)
Feuil3.Cells(42, 8) = Feuil22.Cells(28, 1) - Feuil22.Cells(28, 2)
Feuil3.Cells(43, 8) = Feuil22.Cells(29, 1) - Feuil22.Cells(29, 2)
End If
If Feuil22.Cells(3, 5) > 0 Then
Feuil3.Cells(34, 11) = Feuil22.Cells(3, 3)
Feuil3.Cells(35, 11) = Feuil22.Cells(4, 3)
Feuil3.Cells(36, 11) = Feuil22.Cells(5, 3)
Feuil3.Cells(37, 11) = Feuil22.Cells(6, 3)
Feuil3.Cells(38, 11) = Feuil22.Cells(7, 3)
Feuil3.Cells(39, 11) = Feuil22.Cells(8, 3)
Feuil3.Cells(40, 11) = Feuil22.Cells(9, 3)
Feuil3.Cells(41, 11) = Feuil22.Cells(10, 3)
Feuil3.Cells(42, 11) = Feuil22.Cells(11, 3)
Feuil3.Cells(43, 11) = Feuil22.Cells(12, 3)
Feuil3.Cells(32, 10) = Feuil22.Cells(2, 3)
Feuil3.Cells(32, 11) = Feuil22.Cells(1, 3)
Feuil3.Cells(34, 10) = Feuil22.Cells(20, 2) - Feuil22.Cells(20, 3)
Feuil3.Cells(35, 10) = Feuil22.Cells(21, 2) - Feuil22.Cells(21, 3)
Feuil3.Cells(36, 10) = Feuil22.Cells(22, 2) - Feuil22.Cells(22, 3)
Feuil3.Cells(37, 10) = Feuil22.Cells(23, 2) - Feuil22.Cells(23, 3)
Feuil3.Cells(38, 10) = Feuil22.Cells(24, 2) - Feuil22.Cells(24, 3)
Feuil3.Cells(39, 10) = Feuil22.Cells(25, 2) - Feuil22.Cells(25, 3)
Feuil3.Cells(40, 10) = Feuil22.Cells(26, 2) - Feuil22.Cells(26, 3)
Feuil3.Cells(41, 10) = Feuil22.Cells(27, 2) - Feuil22.Cells(27, 3)
Feuil3.Cells(42, 10) = Feuil22.Cells(28, 2) - Feuil22.Cells(28, 3)
Feuil3.Cells(43, 10) = Feuil22.Cells(29, 2) - Feuil22.Cells(29, 3)
End If
If Feuil22.Cells(3, 3) > 0 Then
Feuil3.Cells(34, 13) = Feuil22.Cells(3, 4)
Feuil3.Cells(35, 13) = Feuil22.Cells(4, 4)
Feuil3.Cells(36, 13) = Feuil22.Cells(5, 4)
Feuil3.Cells(37, 13) = Feuil22.Cells(6, 4)
Feuil3.Cells(38, 13) = Feuil22.Cells(7, 4)
Feuil3.Cells(39, 13) = Feuil22.Cells(8, 4)
Feuil3.Cells(40, 13) = Feuil22.Cells(9, 4)
Feuil3.Cells(41, 13) = Feuil22.Cells(10, 4)
Feuil3.Cells(42, 13) = Feuil22.Cells(11, 4)
Feuil3.Cells(43, 13) = Feuil22.Cells(12, 4)
Feuil3.Cells(32, 12) = Feuil22.Cells(2, 4)
Feuil3.Cells(32, 13) = Feuil22.Cells(1, 4)
Feuil3.Cells(34, 12) = Feuil22.Cells(20, 3) - Feuil22.Cells(20, 4)
Feuil3.Cells(35, 12) = Feuil22.Cells(21, 3) - Feuil22.Cells(21, 4)
Feuil3.Cells(36, 12) = Feuil22.Cells(22, 3) - Feuil22.Cells(22, 4)
Feuil3.Cells(37, 12) = Feuil22.Cells(23, 3) - Feuil22.Cells(23, 4)
Feuil3.Cells(38, 12) = Feuil22.Cells(24, 3) - Feuil22.Cells(24, 4)
Feuil3.Cells(39, 12) = Feuil22.Cells(25, 3) - Feuil22.Cells(25, 4)
Feuil3.Cells(40, 12) = Feuil22.Cells(26, 3) - Feuil22.Cells(26, 4)
Feuil3.Cells(41, 12) = Feuil22.Cells(27, 3) - Feuil22.Cells(27, 4)
Feuil3.Cells(42, 12) = Feuil22.Cells(28, 3) - Feuil22.Cells(28, 4)
Feuil3.Cells(43, 12) = Feuil22.Cells(29, 3) - Feuil22.Cells(29, 4)
End If
If Feuil22.Cells(3, 15) > 0 Then
Feuil22.Columns("N").Delete
End If
End Sub
erreur d'exécution "1004": pour éviter la perte de données, micrsoft office excel ne peut pas déplacer de cellules non vides en dehors de la feuille.
essayez de localiser la dernière cellule non vide en apuyant sur controle + fin et supprimer ou éffacer toutes les cellules situiées entre la dernière cellule et la find e vois données. Puis sélectionnez la cellule A1 et enregistrez votre classeur pour redéfinir la dernière cellule.
Savez-vous d'ou cela peut venir ?
Dernière édition: