Erreur 1004 : .Columns

Y

yoda63

XLDnaute Nouveau
Bonjour !!

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.
Cliquez pour agrandir...

Savez-vous d'ou cela peut venir ?
 
Dernière édition:
Trier par date Trier par votes
Y

yoda63

XLDnaute Nouveau
Re : Erreur 1004 : .Columns

Lorsqu'il y a pas d'erreur, le curseur va sur :

(IT, 147)

Lorsqu'il y aune erreur, le curseur va sur :

(IV, 147)

et c'est effectivement la dernière colonne. Cela doit être dû au décalage de la colone sur la droite.
Que dois-je faire pour éviter ce problême ?
 
Vote positif 0 Vote négatif
C

Caillou

XLDnaute Impliqué
Re : Erreur 1004 : .Columns

Re,

Si les colonnes sont inutiles, il suffit de les effacer :
tu sélectionnes la 1ere colonne à effacer, puis Shift Ctrl Flèche droite pour sélectionner jusqu'a la dernière colonne; ensuite tu vas dans Edition / Effacer / Tout

Jean-Pierre
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
660
Staple1600
Staple1600
F
  • Question
XL 2016 Comparer 2 tableaux
Réponses
4
Affichages
544
fil28
F
D
  • Question
XL 2016 VBA format date
2
Réponses
17
Affichages
938
vgendron
vgendron
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
638
Phil69970
Phil69970
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
660
Vermithor
V
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
355
Aldonanou
A
I
  • Résolu(e)
XL 2019 Supprimer une ligne d'une base de données une fois qu'elle est transférée sur une autre feuille
Réponses
8
Affichages
446
Isabellisa
I
R
  • Résolu(e)
XL 2016 extraire des données
Réponses
2
Affichages
541
rebatte
R
P
  • Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
307
Pimpon974
P
T
  • Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
367
troki74
T

Membres actuellement en ligne

14 membres et 133 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 609
Messages
2 090 192
Membres
104 447
dernier inscrit
Baldur