Erreur 1004 : .Columns

  • Initiateur de la discussion Initiateur de la discussion yoda63
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.

Savez-vous d'ou cela peut venir ?
 
Dernière édition:
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 ?
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
40
Réponses
2
Affichages
361
Réponses
0
Affichages
367
Réponses
9
Affichages
833
Réponses
17
Affichages
1 K
Réponses
4
Affichages
732
Retour