Macro ne fonctionne pas de manière aléatoire

[chris6999]

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

 

[mécano41]

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

Bonjour,

Mets en première ligne ...

Sheets("Mise en forme").Select

Cordialement

 

[Paritec]

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

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

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

 

[Robert]

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

Bonjour Chris, Mecano, bonjour le forum,

Peut-ête comme ça :

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 ?

 

[chris6999]

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

Merci à tous pour vos propositions.
J'ai opté pour la méthode de Robert et cela fonctionne nickel.

Bonne fin de week end