Macro ne fonctionne pas de manière aléatoire

  • Initiateur de la discussion Initiateur de la discussion chris6999
  • 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 !

chris6999

XLDnaute Impliqué
Bonjour

Grâce à l'aide trouvée sur les FORUM j'ai inséré dans mon fichier une macro permettant de sélectionner les cellules non vides dans une feuille ("mise en forme") et de les coller dans une seconde feuille à partir de la première cellule vide de la colonne B.

Cela fonctionne très bien ... mais une fois sur deux...
Le collage s'effectue sans trop de problème puis la fois suivante EXCEL affiche un message d'erreur

Erreur d'exécution 1004
La methode paste de la classe worksheet a échoué

Je clique sur DEBOGAGE. Je ferme la fenêtre VBA et je relance ma macro qui fonctionne...
Et rebelote si j'essaye de repasser la macro.

Je mets en pièce jointe un fichier test pour que vous puissiez juger par vous même.

Si quelqu'un a une idée du pourquoi du comment de la chose et une proposition de correction, je suis preneuse.

Merci d'avance
Cordialement
 

Pièces jointes

Re : Macro ne fonctionne pas de manière aléatoire

Bonjour Cris6999 le forum
tu remplaces par cela
a+
papou😱

Code:
Sub TI43()
    Feuil6.Unprotect
    Sheets("TI432012").Unprotect
   feuil6. Range("A1").CurrentRegion.Copy Sheets("TI432012").Range("B65536").End(xlUp).Offset(1, 0)
    Feuil3.Protect: Feuil6.Protect
End Sub

EDIT: Bonjour Mecano
 
Dernière édition:
Re : Macro ne fonctionne pas de manière aléatoire

Bonjour Chris, Mecano, bonjour le forum,

Peut-ête comme ça :
Code:
Sub TI43()
Dim dest As Range
   
With Sheets("TI432012")
    Set dest = .Cells(Application.Rows.Count, 2).End(xlUp).Offset(1, 0)
    .Unprotect
    Range("A1").CurrentRegion.Copy dest
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

[Édition]
Bonjour Papou on s'est croisé... Tu vas bien ?
 
- 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

Réponses
7
Affichages
417
Réponses
2
Affichages
306
Retour